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 1.3.39
   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 require Amanda::Types;
  11 package Amanda::Testsc;
  12 bootstrap Amanda::Tests;
  13 package Amanda::Tests;
  14 @EXPORT = qw();
  15
  16 # ---------- BASE METHODS -------------
  17
  18 package Amanda::Tests;
  19
  20 sub TIEHASH {
  21     my ($classname,$obj) = @_;
  22     return bless $obj, $classname;
  23 }
  24
  25 sub CLEAR { }
  26
  27 sub FIRSTKEY { }
  28
  29 sub NEXTKEY { }
  30
  31 sub FETCH {
  32     my ($self,$field) = @_;
  33     my $member_func = "swig_${field}_get";
  34     $self->$member_func();
  35 }
  36
  37 sub STORE {
  38     my ($self,$field,$newval) = @_;
  39     my $member_func = "swig_${field}_set";
  40     $self->$member_func($newval);
  41 }
  42
  43 sub this {
  44     my $ptr = shift;
  45     return tied(%$ptr);
  46 }
  47
  48
  49 # ------- FUNCTION WRAPPERS --------
  50
  51 package Amanda::Tests;
  52
  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;
  72
  73 # ------- VARIABLE STUBS --------
  74
  75 package Amanda::Tests;
  76
  77
  78 @EXPORT_OK = ();
  79 %EXPORT_TAGS = ();
  80
  81 =head1 NAME
  82
  83 Amanda::Tests -- test functions for installchecks
  84
  85 =head1 SYNOPSIS
  86
  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.
  89
  90 =cut
  91 1;