#!./perl
#
# Copyright (c) 1995-2000, Raphael Manfredi
#
# You may redistribute only under the same terms as Perl 5, as specified
# in the README file that comes with the distribution.
#
chdir('t') if -d 't';
} else {
}
print "1..0 # Skip: Storable was not built\n";
exit 0;
}
sub ok;
}
print "1..20\n";
$a = 'toto';
$b = \$a;
$c->{attribute} = $b;
$d = {};
$e = [];
$d->{'a'} = $e;
$e->[0] = $d;
%a = ('key', 'value', 1, 0, $a, $b, 'cvar', \$c);
$b, \$a, $a, $c, \$c, \%a);
print "ok 1\n";
print "ok 2\n";
print "ok 3\n";
print "ok 4\n";
print "ok 5\n";
return $self;
};
print "ok 6\n";
print "ok 7\n";
print "ok 8\n";
print "ok 9\n";
print "ok 10\n";
print "ok 11\n";
print "ok 12\n";
print "ok 13\n";
$VAR1 = [
'method',
1,
'prepare',
'SELECT table_name, table_owner, num_rows FROM iitables
where table_owner != \'$ingres\' and table_owner != \'DBA\''
];
print "ok 14\n";
# Test the workaround for LVALUE bug in perl 5.004_04 -- from Gisle Aas
$foo = [];
print "not " if $@;
print "ok 15\n";
# Test cleanup bug found by Claudio Garcia -- RAM, 08/06/2001
eval {
};
ok 16, $@;
my $frozen;
eval {
$frozen = freeze \%to_be_frozen;
};
ok 17, !$@;
freeze {};
ok 18, !$@;
ok 19, 1;
if ($] >= 5.006) {
eval '
$a = []; $#$a = 2; $a->[1] = undef;
$b = thaw freeze $a;
@a = map { ~~ exists $a->[$_] } 0 .. $#$a;
@b = map { ~~ exists $b->[$_] } 0 .. $#$b;
ok 20, "@a" eq "@b";
';
}
else {
print "ok 20 # skipped (no av_exists)\n";
}