Commit | Line | Data |
---|---|---|
15db8fc4 | 1 | BEGIN { |
a9153838 | 2 | if( $ENV{PERL_CORE} ) { |
3 | chdir 't'; | |
4 | @INC = ('../lib', 'lib'); | |
5 | } | |
6 | else { | |
7 | unshift @INC, 't/lib'; | |
8 | } | |
15db8fc4 | 9 | } |
10 | ||
33459055 | 11 | # Can't use Test.pm, that's a 5.005 thing. |
4dd974da | 12 | package My::Test; |
13 | ||
b1ddf169 | 14 | # This has to be a require or else the END block below runs before |
15 | # Test::Builder's own and the ending diagnostics don't come out right. | |
16 | require Test::Builder; | |
17 | my $TB = Test::Builder->create; | |
18 | $TB->plan(tests => 2); | |
19 | ||
20 | sub is { $TB->is_eq(@_) } | |
4dd974da | 21 | |
22 | ||
23 | package main; | |
24 | ||
25 | require Test::Simple; | |
26 | ||
d020a79a | 27 | require Test::Simple::Catch; |
28 | my($out, $err) = Test::Simple::Catch::caught(); | |
30e302f8 | 29 | local $ENV{HARNESS_ACTIVE} = 0; |
4dd974da | 30 | |
31 | Test::Simple->import(tests => 5); | |
32 | ||
0cd946aa | 33 | #line 30 |
4dd974da | 34 | ok(1, 'Foo'); |
35 | ok(0, 'Bar'); | |
36 | ||
37 | END { | |
b1ddf169 | 38 | My::Test::is($$out, <<OUT); |
4dd974da | 39 | 1..5 |
40 | ok 1 - Foo | |
41 | not ok 2 - Bar | |
42 | OUT | |
43 | ||
b1ddf169 | 44 | My::Test::is($$err, <<ERR); |
45 | # Failed test 'Bar' | |
b7f9bbeb | 46 | # at $0 line 31. |
33459055 | 47 | # Looks like you planned 5 tests but only ran 2. |
b1ddf169 | 48 | # Looks like you failed 1 test of 2 run. |
33459055 | 49 | ERR |
4dd974da | 50 | |
51 | exit 0; | |
52 | } |