Re: [PATCH MANIFEST, lib/ExtUtils/testlib.t] More Tests

Message-ID: <20010907235740.80566.qmail@onion.perl.org>

p4raw-id: //depot/perl@11945

diff --git a/MANIFEST b/MANIFEST
index b4d2c72..8232d04 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -868,6 +868,7 @@ lib/ExtUtils/MM_VMS.pm              MakeMaker methods for VMS
 lib/ExtUtils/MM_Win32.pm       MakeMaker methods for Win32
 lib/ExtUtils/Packlist.pm       Manipulates .packlist files
 lib/ExtUtils/testlib.pm                Fixes up @INC to use just-built extension
+lib/ExtUtils/testlib.t         Fixes up @INC to use just-built extension
 lib/ExtUtils/typemap           Extension interface types
 lib/ExtUtils/xsubpp            External subroutine preprocessor
 lib/fastcwd.pl                 a faster but more dangerous getcwd

diff --git a/lib/ExtUtils/testlib.t b/lib/ExtUtils/testlib.t
new file mode 100644 (file)
index 0000000..e0ef990
--- /dev/null
+++ b/lib/ExtUtils/testlib.t
@@ -0,0 +1,16 @@
+#!./perl 
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
+use Test::More tests => 3;
+
+my @blib_paths = grep { /blib/ } @INC;
+is( @blib_paths, 0, 'No blib dirs yet in @INC' );
+
+use_ok( 'ExtUtils::testlib' );
+
+@blib_paths = grep { /blib/ } @INC;
+is( @blib_paths, 2, 'ExtUtils::testlib added two @INC dirs!' );