diff options
| author | David Mitchell <davem@iabyn.com> | 2011-04-12 17:33:14 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-04-12 21:25:28 +0100 |
| commit | 3216d3097f9c9570546c2f4a76881de927df4bab (patch) | |
| tree | 73e10b617d4dc4ee7ea72338947f211a9881eb33 /t | |
| parent | 5e2aa8f5378f1ea747613936965416cd7ab17628 (diff) | |
| download | perl-3216d3097f9c9570546c2f4a76881de927df4bab.tar.gz | |
add $tied ^ $tied test
when tests were added for C<$tied op $tied>, the '^' op was missed
Diffstat (limited to 't')
| -rw-r--r-- | t/op/tie_fetch_count.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index e90f2e6d40..7cb324b1df 100644 --- 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 => 172); + plan (tests => 174); } 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; |