Commit | Line | Data |
---|---|---|
3409ec4c | 1 | #!./perl |
2 | ||
ff7e6c8c | 3 | BEGIN { |
4 | chdir 't' if -d 't'; | |
5 | @INC = qw(. ../lib); | |
6 | } | |
3409ec4c | 7 | |
ff7e6c8c | 8 | require "test.pl"; |
9 | plan( tests => 7 ); | |
3409ec4c | 10 | |
11 | sub foo { | |
12 | $a='abcd'; | |
3409ec4c | 13 | $a=~/(.)/g; |
ff7e6c8c | 14 | cmp_ok($1,'eq','a','context ' . curr_test()); |
3409ec4c | 15 | } |
16 | ||
17 | $a=foo; | |
18 | @a=foo; | |
19 | foo; | |
ff7e6c8c | 20 | foo(foo); |
21 | ||
22 | my $before = curr_test(); | |
23 | $h{foo} = foo; | |
24 | my $after = curr_test(); | |
25 | ||
26 | cmp_ok($after-$before,'==',1,'foo called once') | |
27 | or diag("nr tests: before=$before, after=$after"); |