new test
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 29 Jan 2002 22:03:45 +0000 (23:03 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 30 Jan 2002 01:55:57 +0000 (01:55 +0000)
Message-ID: <20020129220345.A704@rafael>

p4raw-id: //depot/perl@14496

t/op/inccode.t

index 49ab85f..1a3d3cf 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
 use File::Spec;
 
 require "test.pl";
-plan(tests => 43);
+plan(tests => 44);
 
 my @tempfiles = ();
 
@@ -172,3 +172,11 @@ ok( ! ref $INC{'Toto.pm'},         q/  val Toto.pm isn't a ref in %INC/ );
 is( $INC{'Toto.pm'}, 'xyz',       '  val Toto.pm is correct in %INC' );
 
 pop @INC;
+
+my $filename = $^O eq 'MacOS' ? ':Foo:Foo.pm' : './Foo.pm';
+{
+    local @INC;
+    @INC = sub { $filename = 'seen'; return undef; };
+    eval { require $filename; };
+    is( $filename, 'seen', 'the coderef sees fully-qualified pathnames' );
+}