Change 11945 by jhi@alpha on 2001/09/08 14:49:15
Subject: Re: [PATCH MANIFEST, lib/ExtUtils/testlib.t] More Tests
From: "chromatic" <[EMAIL PROTECTED]>
Date: Fri, 07 Sep 2001 17:53:15 -0600
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/MANIFEST#545 edit
... //depot/perl/lib/ExtUtils/testlib.t#1 add
Differences ...
==== //depot/perl/MANIFEST#545 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST.~1~ Sat Sep 8 09:00:05 2001
+++ perl/MANIFEST Sat Sep 8 09:00:05 2001
@@ -868,6 +868,7 @@
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
==== //depot/perl/lib/ExtUtils/testlib.t#1 (text) ====
Index: perl/lib/ExtUtils/testlib.t
--- perl/lib/ExtUtils/testlib.t.~1~ Sat Sep 8 09:00:05 2001
+++ perl/lib/ExtUtils/testlib.t Sat Sep 8 09:00:05 2001
@@ -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!' );
End of Patch.
