Remove duplicate entries from MANIFEST

[p5sagit/p5-mst-13.2.git] / t / op / gmagic.t

diff --git a/t/op/gmagic.t b/t/op/gmagic.t
index ab6d2ee..ce05aff 100644 (file)
--- a/t/op/gmagic.t
+++ b/t/op/gmagic.t
@@ -6,7 +6,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..18\n";
+print "1..20\n";
 
 my $t = 1;
 tie my $c => 'Tie::Monitor';
@@ -50,6 +50,10 @@ ok_string($s, 'x0', 2, 1);
 $s = $c = $c . $c;
 ok_string($s, '00', 3, 1);
 
+# multiple magic in core functions
+$s = chop($c);
+ok_string($s, '0', 1, 1);
+
 # adapted from Tie::Counter by Abigail
 package Tie::Monitor;