diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-04-24 15:09:48 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-25 14:11:33 +0000 |
| commit | 196fd07f98ca6f157437e588cd29e6575e123584 (patch) | |
| tree | 6a4b410afe9002f656b4081af1fd96ac8042074b /ext/Encode | |
| parent | 25ca0970a6814bd165e4cfa83825421bd1aa9ec1 (diff) | |
| download | perl-196fd07f98ca6f157437e588cd29e6575e123584.tar.gz | |
another spin on the enc_module.t merry-go-round
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3EA88ADC.3000300@mac.com>
p4raw-id: //depot/perl@19330
Diffstat (limited to 'ext/Encode')
| -rw-r--r-- | ext/Encode/t/enc_module.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/ext/Encode/t/enc_module.t b/ext/Encode/t/enc_module.t index 6afed81460..d444f40a15 100644 --- a/ext/Encode/t/enc_module.t +++ b/ext/Encode/t/enc_module.t @@ -41,6 +41,11 @@ print $obj->str, "\n"; $obj->set("テスト文字列"); print $obj->str, "\n"; +# I have tested and found "unless $^O eq 'freebsd'" is not +# necessary but I will leave it for the sake of Enache -- dankogai +# Please do not move this to a point after the comparison -- Craig Berry +close STDOUT unless $^O eq 'freebsd'; + my $cmp = compare_text($file0, $file1); is($cmp, 0, "encoding vs. STDOUT"); @@ -53,9 +58,6 @@ while(<STDIN>){ is ($cmp[$i++], $_, "encoding vs. STDIN - $i"); } -# I have tested and found "unless $^O eq 'freebsd'" is not -# necessary but I will leave it for the sake of Enache -- dankogai -close STDOUT unless $^O eq 'freebsd'; unlink $file1 unless $cmp; __END__ |