rewrite tests in PIR (from Perl)

.gitignore

@@ -34,8 +34,5 @@ dynext/pmc/*.o
 dynext/pmc/*.obj
 dynext/pmc/*.pdb
 
-t/*.out
-t/*.pbc
-t/*.pir
-t/*.wmls
-t/*.wmlsc
+test_*.wmls
+test_*.wmlsc

Makefile.in

@@ -148,7 +148,7 @@ help:
 	@echo ""
 
 test: all
-	$(PERL) t/harness
+	prove --exec=$(PARROT) t/pmc//*.t t//*.t
 
 pmctest: build
 	prove --exec=$(PARROT) t/pmc//*.t
@@ -157,9 +157,8 @@ codetest: codetest-c codetest-make codetest-perl codetest-pir codetest-pod
 
 T_C     := dynext//pmc//*.pmc dynext//ops//*.ops
 T_MAKE  := Makefile.in dynext//ops//Makefile.in dynext//pmc//Makefile.in
-T_PERL  := t//harness t//*.t t//Parrot//Test//*.pm \
-          build//*.pl build//SRM//*.pm
-T_PIR   := *.pir wmlscript//*.pir wmlscript//library//*.pir t//pmc//*.t
+T_PERL  := build//*.pl build//SRM//*.pm
+T_PIR   := *.pir wmlscript//*.pir wmlscript//library//*.pir t//*.pir t//*.t t//pmc//*.t
 T_POD   := doc//*.pod
 
 codetest-c:
@@ -249,11 +248,8 @@ win32-inno-installer: installable
 	iscc parrot-wmlscript.iss
 
 TEST_CLEANERS := \
- "t/*.pir" \
- "t/*.pbc" \
- "t/*.wmls" \
- "t/*.wmlsc" \
- "t/*.out"
+ "test_*.wmls" \
+ "test_*.wmlsc"
 
 testclean:
 	$(RM_F) $(TEST_CLEANERS)

setup.pir

@@ -28,6 +28,10 @@ No Configure step, no Makefile generated.
     .const 'Sub' clean = 'clean'
     register_step_before('clean', clean)
 
+    .const 'Sub' testclean = 'testclean'
+    register_step_after('test', testclean)
+    register_step_after('clean', testclean)
+
     .const 'Sub' pmctest = 'pmctest'
     register_step('pmctest', pmctest)
 
@@ -74,7 +78,9 @@ SOURCES
     $P0['installable_pbc'] = $P6
 
     # test
-    $P0['harness_files'] = ''
+    $S0 = get_parrot()
+    $P0['prove_exec'] = $S0
+    $P0['prove_files'] = 't/pmc/*.t t/*.t'
 
     # install
     $P7 = split "\n", <<'LIBS'
@@ -127,6 +133,11 @@ SOURCES
     unlink('wmlscript/stdlibs.pir')
 .end
 
+.sub 'testclean' :anon
+    .param pmc kv :slurpy :named
+    system("perl -MExtUtils::Command -e rm_f test_*.wmls test_*.wmlsc")
+.end
+
 .sub 'pmctest' :anon
     .param pmc kv :slurpy :named
     run_step('build', kv :flat :named)