git.gag.com Git - debian/amanda/blob - perl/Amanda/Tests.pm

   1 # This file was automatically generated by SWIG (http://www.swig.org).
   2 # Version 2.0.4
   3 #
   4 # Do not make changes to this file unless you know what you are doing--modify
   5 # the SWIG interface file instead.
   6
   7 package Amanda::Tests;
   8 use base qw(Exporter);
   9 use base qw(DynaLoader);
  10 package Amanda::Testsc;
  11 bootstrap Amanda::Tests;
  12 package Amanda::Tests;
  13 @EXPORT = qw();
  14
  15 # ---------- BASE METHODS -------------
  16
  17 package Amanda::Tests;
  18
  19 sub TIEHASH {
  20     my ($classname,$obj) = @_;
  21     return bless $obj, $classname;
  22 }
  23
  24 sub CLEAR { }
  25
  26 sub FIRSTKEY { }
  27
  28 sub NEXTKEY { }
  29
  30 sub FETCH {
  31     my ($self,$field) = @_;
  32     my $member_func = "swig_${field}_get";
  33     $self->$member_func();
  34 }
  35
  36 sub STORE {
  37     my ($self,$field,$newval) = @_;
  38     my $member_func = "swig_${field}_set";
  39     $self->$member_func($newval);
  40 }
  41
  42 sub this {
  43     my $ptr = shift;
  44     return tied(%$ptr);
  45 }
  46
  47
  48 # ------- FUNCTION WRAPPERS --------
  49
  50 package Amanda::Tests;
  51
  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;
  72
  73 # ------- VARIABLE STUBS --------
  74
  75 package Amanda::Tests;
  76
  77
  78 @EXPORT_OK = ();
  79 %EXPORT_TAGS = ();
  80
  81
  82 =head1 NAME
  83
  84 Amanda::Tests -- test functions for installchecks
  85
  86 =head1 SYNOPSIS
  87
  88 This module exists only to provide functions for installcheck scripts
  89 to call, mostly to test that various C-Perl interface techniques are
  90 working.
  91
  92 =cut
  93
  94
  95 1;