1 # This file was automatically generated by SWIG (http://www.swig.org).
4 # Do not make changes to this file unless you know what you are doing--modify
5 # the SWIG interface file instead.
9 use base qw(DynaLoader);
10 package Amanda::Testsc;
11 bootstrap Amanda::Tests;
12 package Amanda::Tests;
15 # ---------- BASE METHODS -------------
17 package Amanda::Tests;
20 my ($classname,$obj) = @_;
21 return bless $obj, $classname;
31 my ($self,$field) = @_;
32 my $member_func = "swig_${field}_get";
33 $self->$member_func();
37 my ($self,$field,$newval) = @_;
38 my $member_func = "swig_${field}_set";
39 $self->$member_func($newval);
48 # ------- FUNCTION WRAPPERS --------
50 package Amanda::Tests;
52 *take_guint64 = *Amanda::Testsc::take_guint64;
53 *take_gint64 = *Amanda::Testsc::take_gint64;
54 *take_guint32 = *Amanda::Testsc::take_guint32;
55 *take_gint32 = *Amanda::Testsc::take_gint32;
56 *take_guint16 = *Amanda::Testsc::take_guint16;
57 *take_gint16 = *Amanda::Testsc::take_gint16;
58 *take_guint8 = *Amanda::Testsc::take_guint8;
59 *take_gint8 = *Amanda::Testsc::take_gint8;
60 *give_guint64 = *Amanda::Testsc::give_guint64;
61 *give_gint64 = *Amanda::Testsc::give_gint64;
62 *give_guint32 = *Amanda::Testsc::give_guint32;
63 *give_gint32 = *Amanda::Testsc::give_gint32;
64 *give_guint16 = *Amanda::Testsc::give_guint16;
65 *give_gint16 = *Amanda::Testsc::give_gint16;
66 *give_guint8 = *Amanda::Testsc::give_guint8;
67 *give_gint8 = *Amanda::Testsc::give_gint8;
68 *sizeof_size_t = *Amanda::Testsc::sizeof_size_t;
69 *write_random_file = *Amanda::Testsc::write_random_file;
70 *verify_random_file = *Amanda::Testsc::verify_random_file;
71 *try_threads = *Amanda::Testsc::try_threads;
73 # ------- VARIABLE STUBS --------
75 package Amanda::Tests;
84 Amanda::Tests -- test functions for installchecks
88 This module exists only to provide functions for installcheck scripts
89 to call, mostly to test that various C-Perl interface techniques are