diff options
Diffstat (limited to 't/comp')
| -rwxr-xr-x | t/comp/proto.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index 3474a7e1ba..6d60342b5f 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -419,6 +419,7 @@ print "ok ", $i++, "\n"; sub star (*&) { &{$_[1]} } sub star2 (**&) { &{$_[2]} } sub BAR { "quux" } +sub Bar::BAZ { "quuz" } my $star = 'FOO'; star FOO, sub { print "ok $i\n" if $_[0] eq 'FOO' }; $i++; star(FOO, sub { print "ok $i\n" if $_[0] eq 'FOO' }); $i++; @@ -432,8 +433,8 @@ star \*FOO, sub { print "ok $i\n" if $_[0] eq \*FOO }; $i++; star(\*FOO, sub { print "ok $i\n" if $_[0] eq \*FOO }); $i++; star2 FOO, BAR, sub { print "ok $i\n" if $_[0] eq 'FOO' and $_[1] eq 'BAR' }; $i++; -star2(BAR, FOO, sub { print "ok $i\n" - if $_[0] eq 'BAR' and $_[1] eq 'FOO' }); $i++; +star2(Bar::BAZ, FOO, sub { print "ok $i\n" + if $_[0] eq 'Bar::BAZ' and $_[1] eq 'FOO' }); $i++; star2 BAR(), FOO, sub { print "ok $i\n" if $_[0] eq 'quux' and $_[1] eq 'FOO' }; $i++; star2(FOO, BAR(), sub { print "ok $i\n" |