array.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
use lib '..';
use Memoize;
print "1..11\n";
sub timelist {
return (time) x $_[0];
}
sleep 2;
$BAD = 0;
for ($i = 1; $i < 7; $i++) {
}
sleep 2;
$BAD = 0;
for ($i = 1; $i < 7; $i++) {
}
# Properly memoized?
sub con {
return wantarray()
}
# Same arguments yield different results in different contexts?
$s = con(1);
@a = con(1);
print ((($s == $a[0]) ? 'not ' : ''), "ok 7\n");
# Context propagated correctly?
# Context propagated correctly to normalizer?
sub n {
my $arg = shift;
my $test = shift;
} else {
}
}
sub f { 1 }
$s = f('SCALAR', 10); # Test 10
@a = f('ARRAY' , 11); # Test 11