[svn:parrot] r11491 - trunk/languages/tcl/lib/Parrot/Test

[coke]

Author: coke
Date: Thu Feb  9 12:58:17 2006
New Revision: 11491

Modified:
   trunk/languages/tcl/lib/Parrot/Test/Tcl.pm
Log:
tcl - make languages smoke work again.



Modified: trunk/languages/tcl/lib/Parrot/Test/Tcl.pm
==============================================================================
--- trunk/languages/tcl/lib/Parrot/Test/Tcl.pm  (original)
+++ trunk/languages/tcl/lib/Parrot/Test/Tcl.pm  Thu Feb  9 12:58:17 2006
@@ -45,16 +45,16 @@ foreach my $func ( keys %language_test_m
 
     my $path_to_parrot = $INC{"Parrot/Config.pm"};
     $path_to_parrot =~ s:/lib/Parrot/Config.pm$::;
-    print "$path_to_parrot\n";
     my $dir_count = scalar(File::Spec->splitdir($path_to_parrot));
     my $path_to_tcl;
-    print "DIR COUNT : $dir_count\n";
-    if ($dir_count <2) {
-      $path_to_tcl = File::Spec->join((qw{languages tcl})[0..$dir_count]);
+    if ($dir_count == 0) {
+      $path_to_tcl = File::Spec->join('languages','tcl');
+    } elsif ($dir_count == 1) {
+      $path_to_tcl = 'tcl';
+    } elsif ($dir_count == 2) {
+      $path_to_tcl = '.';
     } elsif ($dir_count >2) {
       $path_to_tcl = File::Spec->join(File::Spec->updir() x ($dir_count - 2));
-    } else {
-      $path_to_tcl = ".";
     }
 
     my $lang_f = Parrot::Test::per_test('.tcl',$count);
@@ -71,7 +71,6 @@ foreach my $func ( keys %language_test_m
 
     my $executable = File::Spec->join($path_to_parrot,$self->{parrot}) . 
     " $args " . File::Spec->join($path_to_tcl, 'tcl.pbc');
-    print "USING $executable\n";
     if (defined($ENV{PARROT_TCLSH})) {
       $executable = $ENV{PARROT_TCLSH};
     }