This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2c9d255
)
Fix test for overload in given() with smart match after last change
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Sun, 24 May 2009 22:22:25 +0000
(
00:22
+0200)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Sun, 24 May 2009 22:22:25 +0000
(
00:22
+0200)
t/op/switch.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/switch.t
b/t/op/switch.t
index
55ed457
..
7d33b3e
100644
(file)
--- a/
t/op/switch.t
+++ b/
t/op/switch.t
@@
-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");
}