tesh: only make an absolute path out of test file if not already one

diff --git a/tools/tesh/tesh.pl b/tools/tesh/tesh.pl
index 34f17ff..fe1d60d 100755 (executable)
--- a/tools/tesh/tesh.pl
+++ b/tools/tesh/tesh.pl
@@ -326,9 +326,13 @@ if ($diff_tool) {
 }
 
 if ( $tesh_file =~ m/(.*)\.tesh/ ) {
 }
 
 if ( $tesh_file =~ m/(.*)\.tesh/ ) {

-    my $dir = qx,pwd,;
-    chomp($dir);
-    print "Test suite '$dir/$tesh_file'\n";
+    my $fullname = $tesh_file;
+    if (not ($fullname =~ m|^/|)) { # not absolute path
+       my $dir = qx,pwd,;
+       chomp($dir);
+       $fullname = "$dir/$fullname"
+    }
+    print "Test suite '$tesh_file'\n";

 } else {
     $tesh_name = "(stdin)";
     print "Test suite from stdin\n";
 } else {
     $tesh_name = "(stdin)";
     print "Test suite from stdin\n";