add $tied ^ $tied test

when tests were added for C<$tied op $tied>, the '^' op was missed
Perl · Apr 12, 2011 · 3216d30 · 3216d30
1 parent 5e2aa8f
commit 3216d30
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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;