X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcomp%2Fbproto.t;h=70748be551c201c73c043442a6bae03fe9de0fcc;hb=6b845e562be40aac749b544b6d494078c54de4aa;hp=699ea57a3694e4d0655b1455c97326987ad5d5a6;hpb=62c18ce2c158fdc3401f5009417ddcfd1effff4a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/comp/bproto.t b/t/comp/bproto.t
index 699ea57..70748be 100755
--- a/t/comp/bproto.t
+++ b/t/comp/bproto.t
@@ -5,10 +5,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
 }
 
-print "1..7\n";
+print "1..10\n";
 
 my $i = 1;
 
@@ -38,4 +38,7 @@ q[	scalar(&foo,$bar);
 	defined &foo, &foo, &foo;
 	undef &foo, $bar;
 	uc $bar,$bar;
+	grep(not($bar), $bar);
+	grep(not($bar, $bar), $bar);
+	grep((not $bar, $bar, $bar), $bar);
 ];