Fix test for overload in given() with smart match after last change
Rafael Garcia-Suarez [Sun, 24 May 2009 22:22:25 +0000 (00:22 +0200)]
t/op/switch.t

index 55ed457..7d33b3e 100644 (file)
@@ -816,8 +816,8 @@ SKIP: {
            default {$matched = 0}
        }
     
-       is($obj->{called}, 0, "$test: called");
-       ok(!$matched, "$test: not matched");
+       is($obj->{called}, 1, "$test: called");
+       ok($matched, "$test: matched");
     }
 
     {
@@ -828,7 +828,7 @@ SKIP: {
            when ("other arg") {$matched = 1}
        }
     
-       is($obj->{called}, 0, "$test: called");
+       is($obj->{called}, 1, "$test: called");
        ok(!$matched, "$test: not matched");
     }