[svn:parrot] r11370 - trunk/languages/tcl/tools

[coke]

Author: coke
Date: Sun Jan 29 10:14:40 2006
New Revision: 11370

Modified:
   trunk/languages/tcl/tools/tcl_harness.pl
Log:
tcl - when running the tcl tests, abort if we find no tests to run -
otherwise we end up running the partcl tests.



Modified: trunk/languages/tcl/tools/tcl_harness.pl
==============================================================================
--- trunk/languages/tcl/tools/tcl_harness.pl    (original)
+++ trunk/languages/tcl/tools/tcl_harness.pl    Sun Jan 29 10:14:40 2006
@@ -70,6 +70,9 @@ for my $file (@skip) {
 }
 
 my @tests = map {"$teetcl/$_.t"} @keep;
+if (! @tests) {
+  die "Couldn't find any tcl test files to run.\n";
+}
 my $cmd = "$^X t/harness @tests";
 print "$cmd\n";
 system($cmd);