From: Iain Buclaw <ibuclaw@gdcproject.org>
Date: Sun, 14 Jun 2020 09:02:52 +0000 (+0200)
Subject: testsuite: Re-add gdc.test prefix in test names (PR testsuite/95575)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4a557dc45650bbe500276680674afa18d291fdcc;p=gcc.git

testsuite: Re-add gdc.test prefix in test names (PR testsuite/95575)

gcc/testsuite/ChangeLog:

	PR testsuite/95575
	* lib/gdc-utils.exp (gdc-do-test): Re-add $subdir link and inclusion
	in filename.
---

diff --git a/gcc/testsuite/lib/gdc-utils.exp b/gcc/testsuite/lib/gdc-utils.exp
index 5c17346dbf5..0e4f57c756d 100644
--- a/gcc/testsuite/lib/gdc-utils.exp
+++ b/gcc/testsuite/lib/gdc-utils.exp
@@ -403,6 +403,7 @@ proc gdc-permute-options { options } {
 
 proc gdc-do-test { testcases } {
     global dg-do-what-default
+    global subdir
     global verbose
 
     # If a testcase doesn't have special options, use these.
@@ -430,27 +431,32 @@ proc gdc-do-test { testcases } {
 
     set saved-dg-do-what-default ${dg-do-what-default}
 
+    # Create gdc.test link so test names include that subdir.
+    set testdir [file dirname $subdir]
+    catch { file link $testdir . }
+
     # Main loop.
 
     # set verbose 1
     # set dg-final-code ""
     # Find all tests and pass to routine.
     foreach test $testcases {
-	regexp -- "(.*)/(.+)/(.+)\.(.+)$" $test match base dir name ext
+	regexp -- "(.*)/(.+)/(.+)\.(.+)$" $test match base type name ext
 
 	# Convert to DG test.
-	set imports [format "-I%s/%s" $base $dir]
+	set imports [format "-I%s/%s" $base $type]
 	set cleanup_extra_files ""
- 	set compilable_do_what "assemble"
-	set filename "[gdc-convert-test $base $dir/$name.$ext]"
+	set compilable_do_what "assemble"
+	# Include $testdir prefix so test names follow DejaGnu conventions.
+	set filename "$testdir/[gdc-convert-test $base $type/$name.$ext]"
 
-	if { $dir == "runnable" } {
+	if { $type == "runnable" } {
 	    append PERMUTE_ARGS " $SHARED_OPTION"
 	}
 
 	set options [gdc-permute-options [lsort -unique $PERMUTE_ARGS]]
 
-	switch $dir {
+	switch $type {
 	    runnable_cxx -
 	    runnable {
 		for { set i 0 } { $i<[llength $options] } { incr i } {