[svn:parrot] r11457 - in trunk/languages: bc/t t

[bernhard]

Author: bernhard
Date: Mon Feb  6 13:11:20 2006
New Revision: 11457

Modified:
   trunk/languages/bc/t/basic.t
   trunk/languages/bc/t/function.t
   trunk/languages/t/harness
Log:
#38447: [BUG] bc tests should check for installed python
Added a check for has_python in bc tests scripts


Modified: trunk/languages/bc/t/basic.t
==============================================================================
--- trunk/languages/bc/t/basic.t        (original)
+++ trunk/languages/bc/t/basic.t        Mon Feb  6 13:11:20 2006
@@ -15,9 +15,17 @@ use strict;
 use FindBin;
 use lib "$FindBin::Bin/../lib", "$FindBin::Bin/../../../lib";
 
-use Parrot::Test tests => 75;
+use Parrot::Config qw(%PConfig);
+use Parrot::Test;
 use Test::More;
 
+if ( $PConfig{has_python} ) {
+  plan tests => 75;
+}
+else {
+  plan skip_all => 'ANTLR2 based bc needs Python';
+}
+
 # A little helper to make setting up tests easier
 sub run_tests {
     my ( $tests ) = @_;

Modified: trunk/languages/bc/t/function.t
==============================================================================
--- trunk/languages/bc/t/function.t     (original)
+++ trunk/languages/bc/t/function.t     Mon Feb  6 13:11:20 2006
@@ -15,9 +15,17 @@ use strict;
 use FindBin;
 use lib "$FindBin::Bin/../lib", "$FindBin::Bin/../../../lib";
 
-use Parrot::Test tests => 8;
+use Parrot::Config qw(%PConfig);
+use Parrot::Test;
 use Test::More;
 
+if ( $PConfig{has_python} ) {
+  plan tests => 8;
+}
+else {
+  plan skip_all => 'ANTLR2 based bc needs Python';
+}
+
 language_output_is( 'bc', << 'END_CODE', << 'END_EXPECTED', "block without 
newlines", with_past => 1 );
 1; { 2 }
 quit

Modified: trunk/languages/t/harness
==============================================================================
--- trunk/languages/t/harness   (original)
+++ trunk/languages/t/harness   Mon Feb  6 13:11:20 2006
@@ -106,7 +106,7 @@ my @unified_testable_languages = 
        tcl
        unlambda
        urm );
-# @unified_testable_languages = qw( punie );
+# @unified_testable_languages = qw( bc );
 
 my @harnesses =
     grep {-f $_}