[svn:parrot] r42568 - trunk/tools/dev

[fperrad at svn.parrot.org]

Author: fperrad
Date: Wed Nov 18 19:29:57 2009
New Revision: 42568
URL: https://trac.parrot.org/parrot/changeset/42568

Log:
[languages] remove t/harness (now use prove)

Modified:
   trunk/tools/dev/mk_language_shell.pl

Modified: trunk/tools/dev/mk_language_shell.pl
==============================================================================
--- trunk/tools/dev/mk_language_shell.pl	Wed Nov 18 19:27:08 2009	(r42567)
+++ trunk/tools/dev/mk_language_shell.pl	Wed Nov 18 19:29:57 2009	(r42568)
@@ -46,7 +46,6 @@
     src/ops/Makefile.in
     src/ops/xyz.ops
     src/xyz.pir
-    t/harness
     t/00-sanity.t
     xyz/.ignore
 
@@ -314,7 +313,7 @@
     # test
     $S0 = get_parrot()
     $S0 .= ' xyz.pbc'
-    $P0['prove_exec'] = $S0 # used unless t/harness exists
+    $P0['prove_exec'] = $S0
 
     # install
     $P0['inst_lang'] = 'xyz/xyz.pbc'
@@ -661,8 +660,7 @@
 	@echo ""
 
 test: build
-	$(PERL) -I$(LIB_DIR)/tools/lib t/harness --bindir=$(BIN_DIR)
-#	prove --exec="$(PARROT) @lclang at .pbc" t/*.t
+	prove --exec="$(PARROT) @lclang at .pbc" t/*.t
 
 # basic run for missing libs
 test-installable: installable
@@ -1275,39 +1273,6 @@
 # End:
 # vim: expandtab shiftwidth=4 ft=pir:
 
-__t/harness__
-#! perl
-
-# @Id@
-
-# pragmata
-use strict;
-use warnings;
-use Getopt::Long;
-use 5.008;
-
-our %harness_args = (
-    language  => '@lang@',
-    verbosity => 0,
-);
-
-GetOptions(
-        'verbosity=i'       => \$harness_args{verbosity},
-        'bindir=s'          => \my $bindir,
-        # A sensible default is num_cores + 1.
-        # Many people have two cores these days.
-        'jobs:3'            => \$harness_args{jobs},
-);
-
-if ($bindir) {
-    $harness_args{exec} = [$bindir.'/parrot', '@lclang at .pbc'];
-}
-else {
-    $harness_args{compiler} = '@lclang at .pbc';
-}
-
-eval 'use Parrot::Test::Harness %harness_args';
-
 __t/00-sanity.t__
 # This just checks that the basic parsing and call to builtin say() works.
 say '1..4';