[svn:parrot] rev 7976 - in trunk: config/gen/makefiles lib/Parrot

[bernhard]

Author: bernhard
Date: Wed May  4 10:59:57 2005
New Revision: 7976

Modified:
   trunk/config/gen/makefiles/root.in
   trunk/lib/Parrot/Test.pm
Log:
Generated files for testing PIR now have the extension .pir

Thanks to particle 


Modified: trunk/config/gen/makefiles/root.in
==============================================================================
--- trunk/config/gen/makefiles/root.in  (original)
+++ trunk/config/gen/makefiles/root.in  Wed May  4 10:59:57 2005
@@ -1239,17 +1239,21 @@
 # Remove files generated by the test suite
 test-clean :
        $(RM_F) t/benchmarks*.imc
+       $(RM_F) t/benchmarks*.pir
        $(RM_F) t/benchmarks*.pasm
        $(RM_F) t/library/*.imc
+       $(RM_F) t/library/*.pir
        $(RM_F) t/library/*.pbc
        $(RM_F) t/op/*.pasm
        $(RM_F) t/op/*.imc
+       $(RM_F) t/op/*.pir
        $(RM_F) t/op/*.pbc
        $(RM_F) t/op/*.out
        $(RM_F) t/op/*.o
        $(RM_F) t/op/*.stabs.s
        $(RM_F) t/pmc/*.pasm
        $(RM_F) t/pmc/*.imc
+       $(RM_F) t/pmc/*.pir
        $(RM_F) t/pmc/*.pbc
        $(RM_F) t/pmc/*.out
        $(RM_F) t/pmc/*.o
@@ -1262,6 +1266,7 @@
        $(RM_F) t/src/*.c
        $(RM_F) $(IMCC_DIR)/t/*/*.out
        $(RM_F) $(IMCC_DIR)/t/*/*.imc
+       $(RM_F) $(IMCC_DIR)/t/*/*.pir
        $(RM_F) $(IMCC_DIR)/t/*/*.pbc
        $(RM_F) $(IMCC_DIR)/t/*/*.o
        $(RM_F) $(IMCC_DIR)/t/*/*.stabs.s

Modified: trunk/lib/Parrot/Test.pm
==============================================================================
--- trunk/lib/Parrot/Test.pm    (original)
+++ trunk/lib/Parrot/Test.pm    Wed May  4 10:59:57 2005
@@ -325,13 +325,13 @@
             # This depends on which kind of code we are testing.
             my $code_f;
             if ( $func =~ /^pir_output/ ) {
-                $code_f = per_test('.imc', $test_no);
+                $code_f = per_test('.pir', $test_no);
             }
             elsif ( $func =~ m/^output_/ || $func =~ m/^pasm_output_/ ) {
                 $code_f = per_test('.pasm', $test_no);
             }
             elsif ( $func =~ /^pir_2_pasm_/) {
-                $code_f = per_test('.imc', $test_no);
+                $code_f = per_test('.pir', $test_no);
             }
             elsif ( $func =~ /^pbc_output_/ ) {
                 $code_f = per_test('.pbc', $test_no);