From 6880b0945aeb93eaf7f2bc2ebb84fcadacd3d087 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 8 Jul 2011 23:13:15 -0500 Subject: whoops --- t/basic.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 't') diff --git a/t/basic.t b/t/basic.t index 39b564c..545621a 100644 --- a/t/basic.t +++ b/t/basic.t @@ -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 })); } -- cgit v1.2.3-54-g00ecf