just_plain_nasty.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
# This is a test suite to cover all the nasty and horrible data
# structures that cause bizarre corner cases.
# Everyone's invited! :-D
sub BEGIN {
chdir('t') if -d 't';
} else {
}
print "1..0 # Skip: Storable was not built\n";
exit 0;
}
}
use strict;
BEGIN {
if (!eval q{
use Test;
use B::Deparse 0.61;
use 5.006;
1;
}) {
print "1..0 # skip: tests only work with B::Deparse 0.61 and at least pe
rl 5.6.0\n";
exit;
}
print "1..0 # Skip: newer File::Spec needed\n";
exit 0;
}
}
#$Storable::DEBUGME = 1;
BEGIN {
}
{
use overload
fallback => 1;
}
my (@a);
# nasty means having a reference to the object
# directly within itself. otherwise it's in the
# second array.
my $nasty = [
($a[1] = [ ]),
];
$a[$dbun]->[0] = $a[0];
#print $icicle; # cat -ve recommended :)
#print $icicle;
#use Data::Dumper;
#print Dumper $nasty;
#print $icicle;
#print Dumper $nasty;
#print $icicle;
#print Dumper $nasty;
#print $icicle;
#print Dumper $nasty;
#print $icicle;
}
sub headit {
return; # comment out to get headings - useful for scanning
# output with $Storable::DEBUGME = 1
my $title = shift;
}