require should ignore directories found when searching @INC not just

[p5sagit/p5-mst-13.2.git] / t / comp / bproto.t

diff --git a/t/comp/bproto.t b/t/comp/bproto.t
index 699ea57..70748be 100755 (executable)
--- 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);
 ];