* g++.old-deja/old-deja.exp: Strip leading directories.

From-SVN: r20034

gcc/testsuite/ChangeLog

 1998-05-24  Jason Merrill  <jason@yorick.cygnus.com>
 
+	* g++.old-deja/old-deja.exp: Strip leading directories.
+
 	* lib/old-dejagnu.exp: All tests fail if we got an internal compiler
 	error for the line.  Don't run multiple tests for the same line.
 

gcc/testsuite/g++.old-deja/old-deja.exp

@@ -43,10 +43,11 @@ global GXX_UNDER_TEST
 # main test loop
 #
 
-
+set dirlen [expr [string length "$srcdir/$subdir"] + 1];
 foreach file [lsort [find $srcdir/$subdir *.C]] {
     # If we're only testing specific files and this isn't one of them, skip it.
-    if ![runtest_file_p $runtests $file] then {
+    set tfile [string range $file $dirlen end];
+    if ![runtest_file_p $runtests $tfile] then {
 	continue
     }
     verbose "Testing $file"