[svn:parrot] r42549 - trunk/t/pmc

mikehh at svn.parrot.org mikehh at svn.parrot.org
Tue Nov 17 12:09:27 UTC 2009


Author: mikehh
Date: Tue Nov 17 12:09:26 2009
New Revision: 42549
URL: https://trac.parrot.org/parrot/changeset/42549

Log:
fix test so it only sets TODO for testr on amd64 with cc-gcc and not g++

Modified:
   trunk/t/pmc/eval.t

Modified: trunk/t/pmc/eval.t
==============================================================================
--- trunk/t/pmc/eval.t	Tue Nov 17 12:03:28 2009	(r42548)
+++ trunk/t/pmc/eval.t	Tue Nov 17 12:09:26 2009	(r42549)
@@ -10,6 +10,7 @@
 use Parrot::Test::Util 'create_tempfile';
 
 use Parrot::Test tests => 17;
+use Parrot::Config;
 
 =head1 NAME
 
@@ -316,9 +317,9 @@
 2 1 1 1
 OUTPUT
 
-(my $fh, $temp_pbc)  = create_tempfile( SUFFIX => '.pbc', UNLINK => 1 ); 
+(my $fh, $temp_pbc)  = create_tempfile( SUFFIX => '.pbc', UNLINK => 1 );
 close $fh;
-        
+
 pir_output_is( <<"CODE", <<'OUTPUT', "eval.get_string - same file" );
 .sub main :main
   .local pmc f1, f2
@@ -396,7 +397,8 @@
 
 TODO: {
     local $TODO = q|fails eval.thaw test in testr with Segmentation fault - TT #1142|
-        if defined $ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} =~ /--run-pbc/;
+        if (defined $ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} =~ /--run-pbc/)
+           && ($PConfig{cpuarch} eq 'amd64' && $PConfig{cc} =~ /cc/);
 
 pir_output_is( <<"CODE", <<'OUTPUT', "eval.thaw" );
 .sub main :main


More information about the parrot-commits mailing list