projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5e2aa8f
)
add $tied ^ $tied test
author
David Mitchell
<davem@iabyn.com>
Tue, 12 Apr 2011 16:33:14 +0000
(17:33 +0100)
committer
David Mitchell
<davem@iabyn.com>
Tue, 12 Apr 2011 20:25:28 +0000
(21:25 +0100)
when tests were added for C<$tied op $tied>, the '^' op was missed
t/op/tie_fetch_count.t
patch
|
blob
|
history
diff --git
a/t/op/tie_fetch_count.t
b/t/op/tie_fetch_count.t
index
e90f2e6
..
7cb324b
100644
(file)
--- a/
t/op/tie_fetch_count.t
+++ b/
t/op/tie_fetch_count.t
@@
-7,7
+7,7
@@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
- plan (tests => 17
2
);
+ plan (tests => 17
4
);
}
use strict;
@@
-219,6
+219,7
@@
bin_test 'ne', 1, 2, 1;
bin_test 'cmp', 1, 2, -1;
bin_test '&' , 1, 2, 0;
bin_test '|' , 1, 2, 3;
+bin_test '^' , 3, 5, 6;
bin_test '.' , 1, 2, 12;
bin_test '==', 1, 2, "";
bin_test '+' , 1, 2, 3;