Change 14496: [PATCH t/op/inccode.t] new test

[Jarkko Hietaniemi]

Change 14496 by jhi@alpha on 2002/01/30 01:55:57

        Subject: [PATCH t/op/inccode.t] new test
        From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
        Date: Tue, 29 Jan 2002 22:03:45 +0100
        Message-ID: <20020129220345.A704@rafael>

Affected files ...

.... //depot/perl/t/op/inccode.t#9 edit

Differences ...

==== //depot/perl/t/op/inccode.t#9 (text) ====
Index: perl/t/op/inccode.t
--- perl/t/op/inccode.t.~1~     Tue Jan 29 19:00:05 2002
+++ perl/t/op/inccode.t Tue Jan 29 19:00:05 2002
@@ -10,7 +10,7 @@
 use File::Spec;
 
 require "test.pl";
-plan(tests => 43);
+plan(tests => 44);
 
 my @tempfiles = ();
 
@@ -172,3 +172,11 @@
 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' );
+}
End of Patch.