appveyor fix 12: fix debug code

diff --git a/fortune-mod/tests/t/lib/FortTestInst.pm b/fortune-mod/tests/t/lib/FortTestInst.pm
index 8eeea13c8328b0f7afcd170e9779f2ee5fe2ac43..45fddabddf5104fd6b1313a3b89c2b4372d00525 100644 (file)
--- a/fortune-mod/tests/t/lib/FortTestInst.pm
+++ b/fortune-mod/tests/t/lib/FortTestInst.pm
@@ -51,6 +51,7 @@ sub install
     );
     do_system( { cmd => [$MAKE] } );
     do_system( { cmd => [ $MAKE, 'install', ] } );
+    chdir($cwd);
 
     return $inst_dir;
 }

diff --git a/fortune-mod/tests/t/test-fortune-m.t b/fortune-mod/tests/t/test-fortune-m.t
index 5630ff785b09dff0ae978110ec634cb2a2c03b6c..ba7622dd0acb8f333440206e68dbb6b798bc546e 100644 (file)
--- a/fortune-mod/tests/t/test-fortune-m.t
+++ b/fortune-mod/tests/t/test-fortune-m.t
@@ -10,8 +10,11 @@ use Test::More tests => 1;
 
 {
     my $inst_dir = FortTestInst::install("fortune-m");
-
-    my $text = `$inst_dir/games/fortune -m giants`;
+    my @cmd      = ( $inst_dir->child( 'games', 'fortune' ), '-m', 'giants' );
+    print "Running [@cmd]\n";
+    my $text = `@cmd`;
+    my $rc   = $?;
+    print "AfterRun rc=$rc [@cmd]\n";
 
     # TEST
     like( $text, qr/Newton/, 'fortune -m matched' );