diff options
Diffstat (limited to 't')
-rw-r--r-- | t/basic.t | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -11,14 +11,15 @@ ok(1 ~~ 1); } ok(1 ~~ 1); -{ +BEGIN { package smartmatch::engine::foo; sub match { ref($_[1]) eq 'ARRAY' } + $INC{'smartmatch/engine/foo.pm'} = 1; } { use smartmatch 'foo'; - ok([] ~~ qr/ARRAY/); + ok(1 ~~ []); ok(!(1 ~~ sub { 0 })); } |