[svn:parrot] r8919 - in trunk/languages/m4/t: builtins freezing

[bernhard]

Author: bernhard
Date: Thu Aug 11 10:40:19 2005
New Revision: 8919

Modified:
   trunk/languages/m4/t/builtins/010_sysval.t
   trunk/languages/m4/t/freezing/001_freeze.t
Log:
*nix utilities are not available on Win32.
But Perl allows to write portable test.
François did so for 'Parrot m4'

Thanks to François Perrad. [perl #36862]


Modified: trunk/languages/m4/t/builtins/010_sysval.t
==============================================================================
--- trunk/languages/m4/t/builtins/010_sysval.t  (original)
+++ trunk/languages/m4/t/builtins/010_sysval.t  Thu Aug 11 10:40:19 2005
@@ -4,14 +4,17 @@ use strict;
 use FindBin;
 use lib "$FindBin::Bin/../../lib", "$FindBin::Bin/../../../../lib";
 
+use Parrot::Config;
 use Parrot::Test tests => 1 + 1;
 
+my $true  = "$PConfig{perl} -e exit(0)";
+my $false = "$PConfig{perl} -e exit(1)";
+
 SKIP:
 {
-  skip( "`false' not available on $^O", 1 ) if ($^O =~ /MSWin32/);
   skip( "difference between running a process in a fork, or with system()", 1 
);
   language_output_is( 'm4', <<'CODE', <<'OUT', 'output of "false"' );
-syscmd(`false')
+syscmd(`$false`)
 sysval()
 CODE
 
@@ -20,10 +23,8 @@ OUT
 }
 
 {
-  skip( "`true' not available on $^O", 1 ) if ($^O =~ /MSWin32/);
- 
   language_output_is( 'm4', <<'CODE', <<'OUT', 'output of "true"' );
-syscmd(`true')
+syscmd(`$true')
 sysval()
 CODE
 

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  Thu Aug 11 10:40:19 2005
@@ -8,10 +8,13 @@ use Parrot::Config;
 use Test::More tests => 1; 
 
 my $parrot_m4 = "cd .. && .$PConfig{slash_exec}parrot$PConfig{exe} 
languages/m4/m4.pbc"; 
+my $cat  = "$PConfig{perl} -MExtUtils::Command -e cat";
+my $rm_f = "$PConfig{perl} -MExtUtils::Command -e rm_f";
 
+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`;
+$real_out   .= `$cat m4/examples/hello.frozen`;
+$real_out   .= `$rm_f 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