[svn:parrot] r9392 - trunk/languages/parrot_compiler/t/basic

[bernhard]

Author: bernhard
Date: Fri Oct  7 10:23:12 2005
New Revision: 9392

Modified:
   trunk/languages/parrot_compiler/t/basic/hello.t
Log:
Mark failing tests of 'languages/parrot_compiler' as TODO.


Modified: trunk/languages/parrot_compiler/t/basic/hello.t
==============================================================================
--- trunk/languages/parrot_compiler/t/basic/hello.t     (original)
+++ trunk/languages/parrot_compiler/t/basic/hello.t     Fri Oct  7 10:23:12 2005
@@ -68,9 +68,13 @@ $ENV{TEST_PROG_ARGS} = 'parrot_compiler.
 language_output_is( 'ParrotCompiler', $code{PASM}, $out{PASM},
                     $ENV{TEST_PROG_ARGS} );
 
-$ENV{TEST_PROG_ARGS} = 'parrot_compiler.pasm --language=PASM';
-language_output_is( 'ParrotCompiler', $code{PASM}, $out{PASM},
-                    $ENV{TEST_PROG_ARGS} );
+TODO:
+{
+  local $TODO = 'generating PASM from PIR is not supported';
+  $ENV{TEST_PROG_ARGS} = 'parrot_compiler.pasm --language=PASM';
+  language_output_is( 'ParrotCompiler', $code{PASM}, $out{PASM},
+                      $ENV{TEST_PROG_ARGS} );
+};
 
 # PIR tests
 
@@ -82,20 +86,27 @@ $ENV{TEST_PROG_ARGS} = 'parrot_compiler.
 language_output_is( 'ParrotCompiler', $code{PIR}, $out{PIR},
                     $ENV{TEST_PROG_ARGS} );
 
-$ENV{TEST_PROG_ARGS} = 'parrot_compiler.pasm --language=PIR';
-language_output_is( 'ParrotCompiler', $code{PIR}, $out{PIR},
-                    $ENV{TEST_PROG_ARGS} );
+TODO:
+{
+  local $TODO = 'generating PASM from PIR is not supported';
+  $ENV{TEST_PROG_ARGS} = 'parrot_compiler.pasm --language=PIR';
+  language_output_is( 'ParrotCompiler', $code{PIR}, $out{PIR},
+                      $ENV{TEST_PROG_ARGS} );
+};
 
 # PAST tests
-
-$ENV{TEST_PROG_ARGS} = 'parrot_compiler.pbc --language=PAST';
-language_output_is( 'ParrotCompiler', $code{PAST}, $out{PAST}, 
$ENV{TEST_PROG_ARGS} );
-
-$ENV{TEST_PROG_ARGS} = 'parrot_compiler.imc --language=PAST';
-language_output_is( 'ParrotCompiler', $code{PAST}, $out{PAST},
-                    $ENV{TEST_PROG_ARGS} );
-
-$ENV{TEST_PROG_ARGS} = 'parrot_compiler.pasm --language=PAST';
-language_output_is( 'ParrotCompiler', $code{PAST}, $out{PAST},
-                    $ENV{TEST_PROG_ARGS} );
-
+TODO:
+{
+   local $TODO = 'PAST compiler seem to be broken';
+
+  $ENV{TEST_PROG_ARGS} = 'parrot_compiler.pbc --language=PAST';
+  language_output_is( 'ParrotCompiler', $code{PAST}, $out{PAST}, 
$ENV{TEST_PROG_ARGS} );
+
+  $ENV{TEST_PROG_ARGS} = 'parrot_compiler.imc --language=PAST';
+  language_output_is( 'ParrotCompiler', $code{PAST}, $out{PAST},
+                      $ENV{TEST_PROG_ARGS} );
+
+  $ENV{TEST_PROG_ARGS} = 'parrot_compiler.pasm --language=PAST';
+  language_output_is( 'ParrotCompiler', $code{PAST}, $out{PAST},
+                      $ENV{TEST_PROG_ARGS} );
+};