diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-06-05 21:39:40 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-06-05 21:39:40 +0000 |
| commit | 09337566c6851d5b25319f9b447a1c2fdeee1b7b (patch) | |
| tree | 8a9208792017f27188c061ce9e203e7e11d9f8c5 /t/comp | |
| parent | 34b5ca21700e31f4fcb9c4a0e3c6cc24b610007f (diff) | |
| download | perl-09337566c6851d5b25319f9b447a1c2fdeee1b7b.tar.gz | |
Eliminate most of the UTF-8 black smoke by skipping optree tests when
${^OPEN} is set, and tweaking hints.t to understand that $^H is
different when -C has been used.
p4raw-id: //depot/perl@28354
Diffstat (limited to 't/comp')
| -rw-r--r-- | t/comp/hints.t | 36 |
1 files changed, 28 insertions, 8 deletions
diff --git a/t/comp/hints.t b/t/comp/hints.t index d15a44a4e8..32267dee90 100644 --- a/t/comp/hints.t +++ b/t/comp/hints.t @@ -12,8 +12,13 @@ BEGIN { print "1..15\n"; } BEGIN { print "not " if exists $^H{foo}; print "ok 1 - \$^H{foo} doesn't exist initially\n"; - print "not " if $^H & 0x00020000; - print "ok 2 - \$^H doesn't contain HINT_LOCALIZE_HH initially\n"; + if (${^OPEN}) { + print "not " unless $^H & 0x00020000; + print "ok 2 - \$^H contains HINT_LOCALIZE_HH initially with ${^OPEN}\n"; + } else { + print "not " if $^H & 0x00020000; + print "ok 2 - \$^H doesn't contain HINT_LOCALIZE_HH initially\n"; + } } { # simulate a pragma -- don't forget HINT_LOCALIZE_HH @@ -40,13 +45,23 @@ BEGIN { CHECK { print "not " if exists $^H{foo}; print "ok 9 - \$^H{foo} doesn't exist when compilation complete\n"; - print "not " if $^H & 0x00020000; - print "ok 10 - \$^H doesn't contain HINT_LOCALIZE_HH when compilation complete\n"; + if (${^OPEN}) { + print "not " unless $^H & 0x00020000; + print "ok 10 - \$^H contains HINT_LOCALIZE_HH when compilation complete with ${^OPEN}\n"; + } else { + print "not " if $^H & 0x00020000; + print "ok 10 - \$^H doesn't contain HINT_LOCALIZE_HH when compilation complete\n"; + } } print "not " if exists $^H{foo}; print "ok 11 - \$^H{foo} doesn't exist at runtime\n"; - print "not " if $^H & 0x00020000; - print "ok 12 - \$^H doesn't contain HINT_LOCALIZE_HH at run-time\n"; + if (${^OPEN}) { + print "not " unless $^H & 0x00020000; + print "ok 12 - \$^H contains HINT_LOCALIZE_HH at run-time with ${^OPEN}\n"; + } else { + print "not " if $^H & 0x00020000; + print "ok 12 - \$^H doesn't contain HINT_LOCALIZE_HH at run-time\n"; + } # op_entereval should keep the pragmas it was compiled with eval q* print "not " if $^H{foo} ne "a"; @@ -58,8 +73,13 @@ BEGIN { BEGIN { print "not " if exists $^H{foo}; print "ok 7 - \$^H{foo} doesn't exist while finishing compilation\n"; - print "not " if $^H & 0x00020000; - print "ok 8 - \$^H doesn't contain HINT_LOCALIZE_HH while finishing compilation\n"; + if (${^OPEN}) { + print "not " unless $^H & 0x00020000; + print "ok 8 - \$^H contains HINT_LOCALIZE_HH while finishing compilation with ${^OPEN}\n"; + } else { + print "not " if $^H & 0x00020000; + print "ok 8 - \$^H doesn't contain HINT_LOCALIZE_HH while finishing compilation\n"; + } } require 'test.pl'; |