Author: bernhard
Date: Wed Aug 10 11:25:14 2005
New Revision: 8907
Modified:
trunk/languages/m4/t/freezing/001_freeze.t
Log:
Allow m4/t/freezing/001_freeze.t to work under MinGW.
Thanks to Francois Perrad.
Modified: trunk/languages/m4/t/freezing/001_freeze.t
==============================================================================
--- trunk/languages/m4/t/freezing/001_freeze.t (original)
+++ trunk/languages/m4/t/freezing/001_freeze.t Wed Aug 10 11:25:14 2005
@@ -4,14 +4,14 @@ use strict;
use FindBin;
use lib "$FindBin::Bin/../../lib", "$FindBin::Bin/../../../../lib";
+use Parrot::Config;
use Test::More tests => 1;
-my $real_out;
-my $parrot_m4 = 'cd .. && ./parrot languages/m4/m4.pbc';
+my $parrot_m4 = "cd .. && .$PConfig{slash_exec}parrot$PConfig{exe}
languages/m4/m4.pbc";
#--------------------------------------------
-$real_out = `$parrot_m4
--reload-state=languages/m4/examples/only_builtin.frozen
--freeze-state=languages/m4/examples/hello.frozen
languages/m4/examples/hello.m4; cat languages/m4/examples/hello.frozen; rm
languages/m4/examples/hello.frozen`;
+my $real_out = `$parrot_m4
--reload-state=languages/m4/examples/only_builtin.frozen
--freeze-state=languages/m4/examples/hello.frozen
languages/m4/examples/hello.m4; cat languages/m4/examples/hello.frozen; rm
languages/m4/examples/hello.frozen`;
is( $real_out, << 'END_OUT', '1 file' );
Hello
T8,8
