This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix test for overload in given() with smart match after last change
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 24 May 2009 22:22:25 +0000 (00:22 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
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");
     }