This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add $tied ^ $tied test
authorDavid Mitchell <davem@iabyn.com>
Tue, 12 Apr 2011 16:33:14 +0000 (17:33 +0100)
committerDavid 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

index e90f2e6..7cb324b 100644 (file)
@@ -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;