From: Jason Merrill <jason@yorick.cygnus.com>
Date: Sun, 24 May 1998 20:56:17 +0000 (+0000)
Subject: * g++.old-deja/old-deja.exp: Strip leading directories.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=51c4eb9bbfd126580e88d86b8d740d2c0c011558;p=gcc.git

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

From-SVN: r20034
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4a6eb05b504..90eca687210 100644
--- 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 87cdb2eeadc..3567f51154f 100644
--- 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"