Author: bernhard
Date: Sun Dec 21 03:50:25 2008
New Revision: 34193
Removed:
trunk/languages/pipp/lib/Parrot/Test/Pipp/Antlr3.pm
trunk/languages/pipp/lib/Parrot/Test/Pipp/Phc.pm
Modified:
trunk/MANIFEST
trunk/languages/pipp/lib/Parrot/Test/Pipp.pm
trunk/languages/pipp/t/harness
Log:
Remove no longer needed test modules.
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Sun Dec 21 03:50:25 2008
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Sun Dec 21 11:30:11 2008 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sun Dec 21 11:44:48 2008 UT
#
# See tools/dev/install_files.pl for documentation on the
# format of this file.
@@ -2225,10 +2225,8 @@
languages/pipp/docs/pipp.pod [pipp]
languages/pipp/docs/testing.pod [pipp]
languages/pipp/lib/Parrot/Test/Pipp.pm [pipp]
-languages/pipp/lib/Parrot/Test/Pipp/Antlr3.pm [pipp]
languages/pipp/lib/Parrot/Test/Pipp/PCT.pm [pipp]
languages/pipp/lib/Parrot/Test/Pipp/PHP.pm [pipp]
-languages/pipp/lib/Parrot/Test/Pipp/Phc.pm [pipp]
languages/pipp/past_xml.xsd [pipp]
languages/pipp/src/build/genskel.pl [pipp]
languages/pipp/src/common/builtins.pir [pipp]
Modified: trunk/languages/pipp/lib/Parrot/Test/Pipp.pm
==============================================================================
--- trunk/languages/pipp/lib/Parrot/Test/Pipp.pm (original)
+++ trunk/languages/pipp/lib/Parrot/Test/Pipp.pm Sun Dec 21 03:50:25 2008
@@ -14,8 +14,6 @@
use Parrot::Test;
use Parrot::Test::Pipp::PHP;
-use Parrot::Test::Pipp::Phc;
-use Parrot::Test::Pipp::Antlr3;
use Parrot::Test::Pipp::PCT;
=head1 NAME
@@ -37,8 +35,7 @@
=cut
sub new {
- my $test_module = $ENV{PARROT_PIPP_TEST_MODULE}
- || 'Parrot::Test::Pipp::PCT';
+ my $test_module = $ENV{PARROT_PIPP_TEST_MODULE} ||
'Parrot::Test::Pipp::PCT';
return bless {}, $test_module;
}
Modified: trunk/languages/pipp/t/harness
==============================================================================
--- trunk/languages/pipp/t/harness (original)
+++ trunk/languages/pipp/t/harness Sun Dec 21 03:50:25 2008
@@ -63,7 +63,8 @@
my @files = grep { ! m/in_php/ && ! m/pmc/ } glob( File::Spec->catfile(
$dir, '*/*.t' ) );
print join( "\n", @files );
print "\n" if scalar(@files);
-} else {
+}
+else {
my $path_to_parrot = Parrot::Test::path_to_parrot();
my @cmd = ( "$path_to_parrot/parrot$PConfig{exe}",
"$path_to_parrot/languages/pipp/pipp.pbc" );
$ENV{PARROT_PIPP_TEST_MODULE} = 'Parrot::Test::Pipp::PCT';
@@ -80,7 +81,8 @@
if ( scalar(@ARGV) ) {
# Someone specified tests for me to run.
@files = grep { -f $_ } @ARGV
- } else {
+ }
+ else {
( undef, undef, my $current_dir ) = File::Spec->splitpath(
Cwd::getcwd() );
if ( $current_dir eq 'languages' ) {
@files = glob( File::Spec->catfile( $hll, 't', '*/*.t' ) );
@@ -137,10 +139,6 @@
}
}
-=head1 HISTORY
-
-Mostly taken from bc/t/harness.
-
=head1 SEE ALSO
F<languages/perl6/t/harness>
