Subject: [PATCH] Sync MakeMaker 6.01 -> 6.02

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

diff --git a/lib/ExtUtils/t/Installed.t b/lib/ExtUtils/t/Installed.t
index a1db434..d62afba 100644 (file)
--- a/lib/ExtUtils/t/Installed.t
+++ b/lib/ExtUtils/t/Installed.t
@@ -20,7 +20,7 @@ use File::Path;
 use File::Basename;
 use File::Spec;
 
-use Test::More tests => 45;
+use Test::More tests => 46;
 
 BEGIN { use_ok( 'ExtUtils::Installed' ) }
 
@@ -81,7 +81,9 @@ ok( $ei->_is_under('baz', @under),  '... should find file under dir' );
 
 
 my $wrotelist;
-ok(scalar mkpath('auto/FakeMod'));
+
+rmtree 'auto/FakeMod';
+ok( mkpath('auto/FakeMod') );
 END { rmtree 'auto/FakeMod' }
 
 ok(open(PACKLIST, '>auto/FakeMod/.packlist'));
@@ -129,6 +131,9 @@ $ei->{$_} = 1 for qw( abc def ghi );
 is( join(' ', $ei->modules()), 'abc def ghi', 
        'modules() should return sorted keys' );
 
+# This didn't work for a long time due to a sort in scalar context oddity.
+is( $ei->modules, 3,    'modules() in scalar context' );
+
 # files
 $ei->{goodmod} = { 
        packlist => {