diff options
| author | Rick Delaney <rick@consumercontact.com> | 2003-09-23 08:14:52 -0400 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2003-10-06 17:30:31 +0000 |
| commit | 4d8b06f1629b5d0007e3c48de953ec16cd80d51f (patch) | |
| tree | 4f80e3b3db4d1b15daead9aa5bcefa8acd77866b /t/comp | |
| parent | 0b1f57502e82e7086eb37fa5981c91be8f02c535 (diff) | |
| download | perl-4d8b06f1629b5d0007e3c48de953ec16cd80d51f.tar.gz | |
(was Re: require() does not behave aas documented)
Message-ID: <20030923121452.G18845@biff.bort.ca>
p4raw-id: //depot/perl@21415
Diffstat (limited to 't/comp')
| -rwxr-xr-x | t/comp/require.t | 40 |
1 files changed, 38 insertions, 2 deletions
diff --git a/t/comp/require.t b/t/comp/require.t index c82d535400..fa75e18896 100755 --- a/t/comp/require.t +++ b/t/comp/require.t @@ -11,7 +11,7 @@ $i = 1; my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0; my $Is_UTF8 = (${^OPEN} || "") =~ /:utf8/; -my $total_tests = 30; +my $total_tests = 44; if ($Is_EBCDIC || $Is_UTF8) { $total_tests = 27; } print "1..$total_tests\n"; @@ -108,6 +108,24 @@ do_require "0;\n"; print "# $@\nnot " unless $@ =~ /did not return a true/; print "ok ",$i++,"\n"; +print "not " if exists $INC{'bleah.pm'}; +print "ok ",$i++,"\n"; + +my $flag_file = 'bleah.flg'; +# run-time error in require +for my $expected_compile (1,0) { + write_file($flag_file, 1); + print "not " unless -e $flag_file; + print "ok ",$i++,"\n"; + write_file('bleah.pm', "unlink '$flag_file' or die; \$a=0; \$b=1/\$a; 1;\n"); + print "# $@\nnot " if eval { require 'bleah.pm' }; + print "ok ",$i++,"\n"; + print "not " unless -e $flag_file xor $expected_compile; + print "ok ",$i++,"\n"; + print "not " unless exists $INC{'bleah.pm'}; + print "ok ",$i++,"\n"; +} + # compile-time failure in require do_require "1)\n"; # bison says 'parse error' instead of 'syntax error', @@ -115,6 +133,20 @@ do_require "1)\n"; print "# $@\nnot " unless $@ =~ /(syntax|parse) error/mi; print "ok ",$i++,"\n"; +# previous failure cached in %INC +print "not " unless exists $INC{'bleah.pm'}; +print "ok ",$i++,"\n"; +write_file($flag_file, 1); +write_file('bleah.pm', "unlink '$flag_file'; 1"); +print "# $@\nnot " if eval { require 'bleah.pm' }; +print "ok ",$i++,"\n"; +print "# $@\nnot " unless $@ =~ /Compilation failed/i; +print "ok ",$i++,"\n"; +print "not " unless -e $flag_file; +print "ok ",$i++,"\n"; +print "not " unless exists $INC{'bleah.pm'}; +print "ok ",$i++,"\n"; + # successful require do_require "1"; print "# $@\nnot " if $@; @@ -163,7 +195,11 @@ sub bytes_to_utf16 { $i++; do_require(bytes_to_utf16('n', qq(print "ok $i\\n"; 1;\n), 1)); # BE $i++; do_require(bytes_to_utf16('v', qq(print "ok $i\\n"; 1;\n), 1)); # LE -END { 1 while unlink 'bleah.pm'; 1 while unlink 'bleah.do'; } +END { + 1 while unlink 'bleah.pm'; + 1 while unlink 'bleah.do'; + 1 while unlink 'bleah.flg'; +} # ***interaction with pod (don't put any thing after here)*** |