Add a new warning "Negative repeat count"

[p5sagit/p5-mst-13.2.git] / t / lib / warnings / pp

diff --git a/t/lib/warnings/pp b/t/lib/warnings/pp
index 5ed7aa0..db42027 100644 (file)
--- a/t/lib/warnings/pp
+++ b/t/lib/warnings/pp
@@ -102,3 +102,12 @@ use utf8 ;
 $_ = "\x80  \xff" ;
 reverse ;
 EXPECT
+########
+# pp.c
+use warnings;
+$a = "b" x -1;
+$a = "b" x 0;
+no warnings;
+$a = "b" x -1;
+EXPECT
+Negative repeat count at - line 3.