Commit | Line | Data |
---|---|---|
be25f609 | 1 | #!./perl |
2 | ||
341b7876 | 3 | BEGIN { |
4 | chdir 't' if -d 't'; | |
5 | @INC = '../lib'; | |
6 | require './test.pl'; | |
7 | } | |
be25f609 | 8 | |
341b7876 | 9 | use strict; |
10 | ||
11 | plan 5; | |
12 | ||
13 | my $err = "Unimplemented at $0 line " . ( __LINE__ + 2 ) . ".\n"; | |
be25f609 | 14 | |
15 | eval { ... }; | |
16 | ||
341b7876 | 17 | is $@, $err; |
be25f609 | 18 | |
19 | $err = "foo at $0 line " . ( __LINE__ + 2 ) . ".\n"; | |
20 | ||
21 | eval { !!! "foo" }; | |
22 | ||
341b7876 | 23 | is $@, $err; |
be25f609 | 24 | |
25 | $err = "Died at $0 line " . ( __LINE__ + 2 ) . ".\n"; | |
26 | ||
27 | eval { !!! }; | |
28 | ||
341b7876 | 29 | is $@, $err; |
30 | ||
31 | my $warning; | |
be25f609 | 32 | |
33 | local $SIG{__WARN__} = sub { $warning = shift }; | |
34 | ||
35 | $err = "bar at $0 line " . ( __LINE__ + 2 ) . ".\n"; | |
36 | ||
37 | eval { ??? "bar" }; | |
38 | ||
341b7876 | 39 | is $warning, $err; |
be25f609 | 40 | |
41 | $err = "Warning: something's wrong at $0 line " . ( __LINE__ + 2 ) . ".\n"; | |
42 | ||
43 | eval { ??? }; | |
44 | ||
341b7876 | 45 | is $warning, $err; |