From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 29 Oct 2001 13:23:11 +0000 (+0000)
Subject: Don't expect ASCII ordering.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2e6bef379f6402d2b866476b0368776a7944db8;p=p5sagit%2Fp5-mst-13.2.git

Don't expect ASCII ordering.

p4raw-id: //depot/perl@12758
---

diff --git a/lib/ExtUtils/Manifest.t b/lib/ExtUtils/Manifest.t
index 2492e2a..f98517e 100644
--- a/lib/ExtUtils/Manifest.t
+++ b/lib/ExtUtils/Manifest.t
@@ -55,10 +55,10 @@ ok( add_file('foo'), 'add a temporary file' );
 
 # there shouldn't be a MANIFEST there
 my ($res, $warn) = catch_warning( \&mkmanifest ); 
-is( $warn, <<ADDING, "mkmanifest() displayed it's additions" );
-Added to MANIFEST: MANIFEST
-Added to MANIFEST: foo
-ADDING
+# Canonize the order.
+$warn = join("", map { "$_|" } sort { lc $a cmp lc $b } split /\r?\n/, $warn);
+is( $warn, "Added to MANIFEST: foo|Added to MANIFEST: MANIFEST|",
+    "mkmanifest() displayed it's additions" );
 
 # and now you see it
 ok( -e 'MANIFEST', 'create MANIFEST file' );