/usr/lib/amanda/perl/Amanda/Tests.pm is in amanda-common 1:3.3.3-2ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 | # This file was automatically generated by SWIG (http://www.swig.org).
# Version 2.0.4
#
# Do not make changes to this file unless you know what you are doing--modify
# the SWIG interface file instead.
package Amanda::Tests;
use base qw(Exporter);
use base qw(DynaLoader);
package Amanda::Testsc;
bootstrap Amanda::Tests;
package Amanda::Tests;
@EXPORT = qw();
# ---------- BASE METHODS -------------
package Amanda::Tests;
sub TIEHASH {
my ($classname,$obj) = @_;
return bless $obj, $classname;
}
sub CLEAR { }
sub FIRSTKEY { }
sub NEXTKEY { }
sub FETCH {
my ($self,$field) = @_;
my $member_func = "swig_${field}_get";
$self->$member_func();
}
sub STORE {
my ($self,$field,$newval) = @_;
my $member_func = "swig_${field}_set";
$self->$member_func($newval);
}
sub this {
my $ptr = shift;
return tied(%$ptr);
}
# ------- FUNCTION WRAPPERS --------
package Amanda::Tests;
*take_guint64 = *Amanda::Testsc::take_guint64;
*take_gint64 = *Amanda::Testsc::take_gint64;
*take_guint32 = *Amanda::Testsc::take_guint32;
*take_gint32 = *Amanda::Testsc::take_gint32;
*take_guint16 = *Amanda::Testsc::take_guint16;
*take_gint16 = *Amanda::Testsc::take_gint16;
*take_guint8 = *Amanda::Testsc::take_guint8;
*take_gint8 = *Amanda::Testsc::take_gint8;
*give_guint64 = *Amanda::Testsc::give_guint64;
*give_gint64 = *Amanda::Testsc::give_gint64;
*give_guint32 = *Amanda::Testsc::give_guint32;
*give_gint32 = *Amanda::Testsc::give_gint32;
*give_guint16 = *Amanda::Testsc::give_guint16;
*give_gint16 = *Amanda::Testsc::give_gint16;
*give_guint8 = *Amanda::Testsc::give_guint8;
*give_gint8 = *Amanda::Testsc::give_gint8;
*sizeof_size_t = *Amanda::Testsc::sizeof_size_t;
*write_random_file = *Amanda::Testsc::write_random_file;
*verify_random_file = *Amanda::Testsc::verify_random_file;
*try_threads = *Amanda::Testsc::try_threads;
# ------- VARIABLE STUBS --------
package Amanda::Tests;
@EXPORT_OK = ();
%EXPORT_TAGS = ();
=head1 NAME
Amanda::Tests -- test functions for installchecks
=head1 SYNOPSIS
This module exists only to provide functions for installcheck scripts
to call, mostly to test that various C-Perl interface techniques are
working.
=cut
1;
|