develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34193 - in trunk: . languages/pipp/lib/Parrot/Test languages/pipp/lib/Parrot/Test/Pipp languages/pipp/t

From:
bernhard
Date:
December 21, 2008 03:50
Subject:
[svn:parrot] r34193 - in trunk: . languages/pipp/lib/Parrot/Test languages/pipp/lib/Parrot/Test/Pipp languages/pipp/t
Message ID:
20081221115028.C269BCBA12@x12.develooper.com
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>



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About