Jakub Wilk is now a Perl author.
[perl.git] / t / op / context.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     require "./test.pl";
6     set_up_inc( qw(. ../lib) );
7 }
8
9 require "./test.pl";
10 plan( tests => 8 );
11
12 sub foo {
13     $a='abcd';
14     $a=~/(.)/g;
15     cmp_ok($1,'eq','a','context ' . curr_test());
16 }
17
18 $a=foo;
19 @a=foo;
20 foo;
21 foo(foo);
22
23 my $before = curr_test();
24 $h{foo} = foo;
25 my $after = curr_test();
26
27 cmp_ok($after-$before,'==',1,'foo called once')
28         or diag("nr tests: before=$before, after=$after");
29
30 sub context {
31     $cx = qw[void scalar list][wantarray + defined wantarray];
32 }
33 $_ = sub { context(); BEGIN { } }->();
34 is($cx, 'scalar', 'context of { foo(); BEGIN {} }');