hv_fetchs() support
[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / postamble.t
index b8c0492..0fbeabd 100644 (file)
@@ -13,8 +13,9 @@ BEGIN {
 }
 
 use strict;
-use Test::More tests => 5;
+use Test::More tests => 8;
 use MakeMaker::Test::Utils;
+use MakeMaker::Test::Setup::BFD;
 use ExtUtils::MakeMaker;
 use TieOut;
 
@@ -24,6 +25,12 @@ $| = 1;
 
 my $Makefile = makefile_name;
 
+ok( setup_recurs(), 'setup' );
+END {
+    ok( chdir File::Spec->updir );
+    ok( teardown_recurs(), 'teardown' );
+}
+
 ok( chdir 'Big-Dummy', q{chdir'd to Big-Dummy} ) ||
         diag("chdir failed: $!");
 
@@ -63,3 +70,4 @@ ok( open(MAKEFILE, $Makefile) ) or diag "Can't open $Makefile: $!";
   like( <MAKEFILE>, qr/^\# This makes sure the postamble gets written\n/m,
         'postamble added to the Makefile' );
 }
+close MAKEFILE;