diff options
| author | Tatsuhiko Miyagawa <miyagawa@edge.co.jp> | 2002-07-16 01:29:28 +0900 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-15 13:01:48 +0000 |
| commit | 08411240a1e5278b0232e1455d984110b1c5343b (patch) | |
| tree | 3b8fdafc07a66c2061cf02732ccf84ae867860ed | |
| parent | fd20da51661b685c54940aeb116a97beabf44d0f (diff) | |
| download | perl-08411240a1e5278b0232e1455d984110b1c5343b.tar.gz | |
RC3: lib/constant.t #35
Message-ID: <86adotwisn.wl@mail.edge.co.jp>
Assuming " " in error messages does not work in Japanese,
just skip the test (even the #34 is suspicious).
p4raw-id: //depot/perl@17545
| -rw-r--r-- | lib/constant.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/constant.t b/lib/constant.t index f932976f60..1127dcf754 100644 --- a/lib/constant.t +++ b/lib/constant.t @@ -125,7 +125,7 @@ test 33, E2BIG == 7; # This is something like "Arg list too long", but the actual message # text may vary, so we can't test much better than this. test 34, length(E2BIG) > 6; -test 35, index(E2BIG, " ") > 0; +test 35, 1; # Skipped: used to assume " ", false in ja_JP.eucJP on Linux test 36, @warnings == 0, join "\n", "unexpected warning", @warnings; @warnings = (); # just in case |