4 use Test qw($TESTOUT $ntest ok skip plan);
12 # Shut up deprecated usage warning.
18 $r |= ok(sub { 1+1 }, 3);
19 $r |= ok(sub { 1+1 }, sub { 2 * 0});
22 $r |= ok @list, 1, "\@list=".join(',',@list);
23 $r |= ok @list, 1, sub { "\@list=".join ',',@list };
24 $r |= ok 'segmentation fault', '/bongo/';
26 for (1..2) { $r |= ok(0); }
31 ok($r); # (failure==success :-)
34 $TESTOUT = *STDOUT{IO};
39 while (<F>) { $O .= $_; }
43 ok join(' ', map { m/(\d+)/; $1 } grep /^not ok/, split /\n+/, $O),
46 my @got = split /not ok \d+\n/, $O;
50 my @expect = split /\n\n/, $Expect;
52 for (my $x=0; $x < @got; $x++) {
53 ok $got[$x], $expect[$x]."\n";
59 # Failed test 1 in $0 at line 14
61 # Failed test 2 in $0 at line 16
63 # Test 3 got: '0' ($0 at line 17)
66 # Test 4 got: '2' ($0 at line 18)
69 # Test 5 got: '2' ($0 at line 19)
72 # Test 6 got: '2' ($0 at line 22)
73 # Expected: '1' (\@list=0,0)
75 # Test 7 got: '2' ($0 at line 23)
76 # Expected: '1' (\@list=0,0)
78 # Test 8 got: 'segmentation fault' ($0 at line 24)
81 # Failed test 9 in $0 at line 26
83 # Failed test 10 in $0 at line 26 fail #2
85 # Failed test 11 in $0 at line 28
87 # Test 12 got: <UNDEF> ($0 at line 29)
90 # Failed test 13 in $0 at line 31