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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@20034 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4a6eb05..90eca68 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,7 @@
 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.
 

diff --git a/gcc/testsuite/g++.old-deja/old-deja.exp b/gcc/testsuite/g++.old-deja/old-deja.exp
index 87cdb2e..3567f51 100644 (file)
--- a/gcc/testsuite/g++.old-deja/old-deja.exp
+++ b/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"