Make the whole -lperl thing NetBSD only until we

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / Manifest.t

diff --git a/lib/ExtUtils/Manifest.t b/lib/ExtUtils/Manifest.t
index 2492e2a..f531406 100644 (file)
--- 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' );
@@ -113,7 +113,7 @@ ok( exists( ExtUtils::Manifest::manifind()->{$quux} ), "manifind found $quux" );
 # only MANIFEST and foo are in the manifest
 my $files = maniread();
 is( keys %$files, 2, 'two files found' );
-is( join(' ', sort keys %$files), 'MANIFEST foo', 'both files found' );
+is( join(' ', sort { lc($a) cmp lc($b) } keys %$files), 'foo MANIFEST', 'both files found' );
 
 # poison the manifest, and add a comment that should be reported
 add_file( 'MANIFEST', 'none #none' );