10 return (time) x $_[0];
18 print ((("@t1" eq "@u1") ? '' : 'not '), "ok 1\n");
21 print (((@t7 == 7) ? '' : 'not '), "ok 2\n");
23 for ($i = 1; $i < 7; $i++) {
24 $BAD++ unless $t7[$i-1] == $t7[$i];
26 print (($BAD ? 'not ' : ''), "ok 3\n");
30 print (((@u7 == 7) ? '' : 'not '), "ok 4\n");
32 for ($i = 1; $i < 7; $i++) {
33 $BAD++ unless $u7[$i-1] == $u7[$i];
35 print (($BAD ? 'not ' : ''), "ok 5\n");
37 print ((("@t7" eq "@u7") ? '' : 'not '), "ok 6\n");
43 # Same arguments yield different results in different contexts?
47 print ((($s == $a[0]) ? 'not ' : ''), "ok 7\n");
49 # Context propagated correctly?
50 print ((($s eq '') ? '' : 'not '), "ok 8\n"); # Scalar context
51 print ((("@a" eq '1' && @a == 1) ? '' : 'not '), "ok 9\n"); # List context
53 # Context propagated correctly to normalizer?
58 print ((($arg eq ARRAY) ? '' : 'not '), "ok $test\n"); # List context
60 print ((($arg eq SCALAR) ? '' : 'not '), "ok $test\n"); # Scalar context
65 memoize('f', NORMALIZER => 'n');
66 $s = f('SCALAR', 10); # Test 10
67 @a = f('ARRAY' , 11); # Test 11