[svn:parrot] r38421 - branches/pmc_pct/compilers/pmc/t

[cotto at svn.parrot.org]

Author: cotto
Date: Fri May  1 10:44:49 2009
New Revision: 38421
URL: https://trac.parrot.org/parrot/changeset/38421

Log:
[t] make make test work from compilers/pmc, if improperly

Added:
   branches/pmc_pct/compilers/pmc/t/harness
Modified:
   branches/pmc_pct/compilers/pmc/t/01-parse.t
   branches/pmc_pct/compilers/pmc/t/02-parse-all-pmcs.t
   branches/pmc_pct/compilers/pmc/t/03-past.t
   branches/pmc_pct/compilers/pmc/t/04-header.t
   branches/pmc_pct/compilers/pmc/t/05-vtable-info.t

Modified: branches/pmc_pct/compilers/pmc/t/01-parse.t
==============================================================================
--- branches/pmc_pct/compilers/pmc/t/01-parse.t	Fri May  1 10:18:13 2009	(r38420)
+++ branches/pmc_pct/compilers/pmc/t/01-parse.t	Fri May  1 10:44:49 2009	(r38421)
@@ -1,10 +1,10 @@
-#!parrot
+#! ../../parrot
 
-.include 'compilers/pmc/t/common.pir'
+.include 't/common.pir'
 
 .sub 'main' :main
 .include 'test_more.pir'
-load_bytecode 'compilers/pmc/pmc.pbc'
+load_bytecode 'pmc.pbc'
 
     .local int total
     total = 25
@@ -20,7 +20,7 @@
   loop:
     $P0 = new 'ResizablePMCArray'
     push $P0, i
-    $S0 = sprintf "./compilers/pmc/t/data/class%02d.pmc", $P0
+    $S0 = sprintf "t/data/class%02d.pmc", $P0
     test_parse_one($S0)
     inc i
     unless i >= total goto loop

Modified: branches/pmc_pct/compilers/pmc/t/02-parse-all-pmcs.t
==============================================================================
--- branches/pmc_pct/compilers/pmc/t/02-parse-all-pmcs.t	Fri May  1 10:18:13 2009	(r38420)
+++ branches/pmc_pct/compilers/pmc/t/02-parse-all-pmcs.t	Fri May  1 10:44:49 2009	(r38421)
@@ -1,16 +1,16 @@
-#!parrot
+#! ../../parrot
 
-.include 'compilers/pmc/t/common.pir'
+.include 't/common.pir'
 
 .sub 'main' :main
 .include 'test_more.pir'
-load_bytecode 'compilers/pmc/pmc.pbc'
+load_bytecode 'pmc.pbc'
     .local int total
     .local pmc os, all_files, pmc_files, dynpmc_files, it
 
     all_files    = new ['ResizablePMCArray']
-    pmc_files    = get_pmcs_from_dir('src/pmc/')
-    dynpmc_files = get_pmcs_from_dir('src/dynpmc/')
+    pmc_files    = get_pmcs_from_dir('../../src/pmc/')
+    dynpmc_files = get_pmcs_from_dir('../../src/dynpmc/')
 
     #prepend the arrays to all_files
     splice all_files, pmc_files, 0, 0

Modified: branches/pmc_pct/compilers/pmc/t/03-past.t
==============================================================================
--- branches/pmc_pct/compilers/pmc/t/03-past.t	Fri May  1 10:18:13 2009	(r38420)
+++ branches/pmc_pct/compilers/pmc/t/03-past.t	Fri May  1 10:44:49 2009	(r38421)
@@ -1,10 +1,10 @@
-#!parrot
+#! ../../parrot
 
-.include 'compilers/pmc/t/common.pir'
+.include 't/common.pir'
 
 .sub 'main' :main
 .include 'test_more.pir'
-load_bytecode 'compilers/pmc/pmc.pbc'
+load_bytecode 'pmc.pbc'
 
     .local int total
     total = 0
@@ -21,8 +21,8 @@
     if i >= total goto done
     $P0 = new 'ResizablePMCArray'
     push $P0, i
-    $S0 = sprintf "./compilers/pmc/t/data/class%02d.pmc", $P0
-    $S1 = sprintf "./compilers/pmc/t/data/class%02d.past", $P0
+    $S0 = sprintf "t/data/class%02d.pmc", $P0
+    $S1 = sprintf "t/data/class%02d.past", $P0
     test_past_one($S0, $S1)
     inc i
     goto loop

Modified: branches/pmc_pct/compilers/pmc/t/04-header.t
==============================================================================
--- branches/pmc_pct/compilers/pmc/t/04-header.t	Fri May  1 10:18:13 2009	(r38420)
+++ branches/pmc_pct/compilers/pmc/t/04-header.t	Fri May  1 10:44:49 2009	(r38421)
@@ -1,23 +1,23 @@
-#!parrot
+#! ../../parrot
 # Check generating header for parsed PMC
 
-.include 'compilers/pmc/t/common.pir'
+.include 't/common.pir'
 
 .sub 'main' :main
 .include 'test_more.pir'
-load_bytecode 'compilers/pmc/pmc.pbc'
+load_bytecode 'pmc.pbc'
     .local int total
 
     plan(3)
 
     .local string filename
-    filename = 'compilers/pmc/t/data/class00.pmc'
+    filename = 't/data/class00.pmc'
     $S0 = _slurp(filename)
     check_one_header(filename, $S0, "'DO NOT EDIT THIS FILE'", "Warning generated")
 
     check_one_header(filename, $S0, "'PARROT_PMC_FOO_H_GUARD'", "Guard generated")
 
-    filename = 'compilers/pmc/t/data/class07.pmc'
+    filename = 't/data/class07.pmc'
     $S0 = _slurp(filename)
     check_one_header(filename, $S0, "'PMC* Parrot_Integer_instantiate(PARROT_INTERP, PMC *sig, PMC* init)'", "VTable method generated")
 
@@ -40,7 +40,7 @@
     emitter = new $P1
     emitter.'set_filename'(name)
     $S0 = emitter.'generate_h_file'($P0)
-    say $S0
+    #say $S0
     like($S0, pattern, message)
 .end
 

Modified: branches/pmc_pct/compilers/pmc/t/05-vtable-info.t
==============================================================================
--- branches/pmc_pct/compilers/pmc/t/05-vtable-info.t	Fri May  1 10:18:13 2009	(r38420)
+++ branches/pmc_pct/compilers/pmc/t/05-vtable-info.t	Fri May  1 10:44:49 2009	(r38421)
@@ -1,4 +1,4 @@
-#!parrot
+#! ../../parrot
 
 # Test that vtables initialised properly.
 

Added: branches/pmc_pct/compilers/pmc/t/harness
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/pmc_pct/compilers/pmc/t/harness	Fri May  1 10:44:49 2009	(r38421)
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+
+# $Id$
+
+use FindBin;
+use lib qw( . lib ../lib ../../lib ../../lib );
+use Parrot::Test::Harness language => 'pmc'
+