Re: [PATCH MANIFEST, lib/ExtUtils/testlib.t] More Tests
authorchromatic <chromatic@wgz.org>
Fri, 7 Sep 2001 17:53:15 +0000 (11:53 -0600)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 8 Sep 2001 14:49:15 +0000 (14:49 +0000)
Message-ID: <20010907235740.80566.qmail@onion.perl.org>

p4raw-id: //depot/perl@11945

MANIFEST
lib/ExtUtils/testlib.t [new file with mode: 0644]

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
@@ -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!' );