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

From-SVN: r20034

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4a6eb05b504e2cb3783a1aa7bc5358f7346e0d77..90eca6872105f77b074ccc2e73e66263eab53902 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 87cdb2eeadc8b273a16e5d90db0abea1b323d1eb..3567f51154f9545fdf27ec75078bf76710093038 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"