X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fharness;h=ca8a676aea2ecb8876cb5eabaebe99db72c55c23;hb=7d85a32c7dc09903975590ebedb298bcbd436874;hp=e1a4dd7861b2718ebe1cc205e73e0ca17a31912a;hpb=c529f79d594c53d3968d464c57ac24a21137dd09;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/harness b/t/harness
index e1a4dd7..ca8a676 100644
--- a/t/harness
+++ b/t/harness
@@ -37,17 +37,17 @@ foreach (keys %datahandle) {
 }
 
 @tests = @ARGV;
-@tests = <base/*.t comp/*.t cmd/*.t io/*.t op/*.t pragma/*.t lib/*.t> unless @tests;
+@tests = <base/*.t comp/*.t cmd/*.t io/*.t op/*.t pragma/*.t lib/*.t camel-III/*.t> unless @tests;
 
 Test::Harness::runtests @tests;
 exit(0) unless -e "../testcompile";
 
-%infinite =  qw (
-        op/bop.t	1
-        lib/hostname.t	1
-	op/lex_assign.t	1
-	lib/ph.t	1  
-        );
+# %infinite =  qw (
+#        op/bop.t	1
+#        lib/hostname.t	1
+#	 op/lex_assign.t	1
+#	 lib/ph.t	1
+#        );
 
 my $dhwrapper = <<'EOT';
 open DATA,"<".__FILE__;
@@ -72,10 +72,10 @@ EOT
 print "The tests ", join(' ', keys(%infinite)),
     " generate infinite loops! Skipping!\n";
 
-$ENV{'HARNESS_COMPILE_TEST'} = 1; 
+$ENV{'HARNESS_COMPILE_TEST'} = 1;
 $ENV{'PERLCC_TIMEOUT'} = 120 unless $ENV{'PERLCC_TIMEOUT'};
 
-Test::Harness::runtests @tests; 
+Test::Harness::runtests @tests;
 foreach (keys %datahandle) {
      unlink "$_.t";
 }