From: chromatic <chromatic@wgz.org>
Date: Fri, 7 Sep 2001 17:53:15 +0000 (-0600)
Subject: Re: [PATCH MANIFEST, lib/ExtUtils/testlib.t] More Tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a5004db7a578bd1778ed75b583dbcdbe0863220;p=p5sagit%2Fp5-mst-13.2.git

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