From: Nick Ing-Simmons Date: Fri, 30 Mar 2001 14:25:43 +0000 (+0000) Subject: Skip order test of glob if case-ignoring system cannot X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f79b44fe88fd23f9e0a19ecd0acb8d38aa1c7e2;p=p5sagit%2Fp5-mst-13.2.git Skip order test of glob if case-ignoring system cannot create a.test and A.test p4raw-id: //depot/perlio@9467 --- diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t index 4f143ac..4670f7c 100755 --- a/t/lib/glob-basic.t +++ b/t/lib/glob-basic.t @@ -143,16 +143,20 @@ $ok = 1; @g_ascii = bsd_glob($pat, 0); print "# f_ascii = @f_ascii\n"; print "# g_ascii = @g_ascii\n"; -for (@f_ascii) { - $ok = 0 unless $_ eq shift @g_ascii; +if (@g_ascii == 6) { + for (@f_ascii) { + $ok = 0 unless $_ eq shift @g_ascii; + } } print $ok ? "ok 10\n" : "not ok 10\n"; $ok = 1; @g_alpha = bsd_glob($pat); print "# f_alpha = @f_alpha\n"; print "# g_alpha = @g_alpha\n"; -for (@f_alpha) { - $ok = 0 unless $_ eq shift @g_alpha; +if (@g_ascii == 6) { + for (@f_alpha) { + $ok = 0 unless $_ eq shift @g_alpha; + } } print $ok ? "ok 11\n" : "not ok 11\n"; unlink @f_ascii;