This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RC3: lib/constant.t #35
authorTatsuhiko Miyagawa <miyagawa@edge.co.jp>
Mon, 15 Jul 2002 16:29:28 +0000 (01:29 +0900)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 15 Jul 2002 13:01:48 +0000 (13:01 +0000)
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

lib/constant.t

index f932976..1127dcf 100644 (file)
@@ -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