1 # This file was automatically generated by SWIG (http://www.swig.org).
4 # Don't modify this file, modify the SWIG interface instead.
9 @ISA = qw(Exporter DynaLoader);
10 require Amanda::Types;
11 package Amanda::Testsc;
12 bootstrap Amanda::Tests;
13 package Amanda::Tests;
16 # ---------- BASE METHODS -------------
18 package Amanda::Tests;
21 my ($classname,$obj) = @_;
22 return bless $obj, $classname;
32 my ($self,$field) = @_;
33 my $member_func = "swig_${field}_get";
34 $self->$member_func();
38 my ($self,$field,$newval) = @_;
39 my $member_func = "swig_${field}_set";
40 $self->$member_func($newval);
49 # ------- FUNCTION WRAPPERS --------
51 package Amanda::Tests;
53 *take_guint64 = *Amanda::Testsc::take_guint64;
54 *take_gint64 = *Amanda::Testsc::take_gint64;
55 *take_guint32 = *Amanda::Testsc::take_guint32;
56 *take_gint32 = *Amanda::Testsc::take_gint32;
57 *take_guint16 = *Amanda::Testsc::take_guint16;
58 *take_gint16 = *Amanda::Testsc::take_gint16;
59 *take_guint8 = *Amanda::Testsc::take_guint8;
60 *take_gint8 = *Amanda::Testsc::take_gint8;
61 *give_guint64 = *Amanda::Testsc::give_guint64;
62 *give_gint64 = *Amanda::Testsc::give_gint64;
63 *give_guint32 = *Amanda::Testsc::give_guint32;
64 *give_gint32 = *Amanda::Testsc::give_gint32;
65 *give_guint16 = *Amanda::Testsc::give_guint16;
66 *give_gint16 = *Amanda::Testsc::give_gint16;
67 *give_guint8 = *Amanda::Testsc::give_guint8;
68 *give_gint8 = *Amanda::Testsc::give_gint8;
69 *sizeof_size_t = *Amanda::Testsc::sizeof_size_t;
70 *write_random_file = *Amanda::Testsc::write_random_file;
71 *verify_random_file = *Amanda::Testsc::verify_random_file;
73 # ------- VARIABLE STUBS --------
75 package Amanda::Tests;
83 Amanda::Tests -- test functions for installchecks
87 This module exists only to provide functions for installcheck scripts to call,
88 mostly to test that various C-Perl interface techniques are working.