diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-07-08 23:13:15 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-07-08 23:14:27 -0500 |
commit | 6880b0945aeb93eaf7f2bc2ebb84fcadacd3d087 (patch) | |
tree | 9e32c4c7e93ff5204342f3d9562fd58c43e6088a /t | |
parent | 9174cec546b4dba5821ce29a408feb860f49c244 (diff) | |
download | smartmatch-6880b0945aeb93eaf7f2bc2ebb84fcadacd3d087.tar.gz smartmatch-6880b0945aeb93eaf7f2bc2ebb84fcadacd3d087.zip |
whoops
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 })); } |