(withdraw) Re: [RFA] dejagnu runtest.exp redundant testing

[Jimmy Guo <guo@cup.hp.com>]

I withdraw this patch.  g++ testing reviewed the problem with it -- when
${tool} contains ?*+ chars, TCL will choke on the regexp command below.

I'll post a replacement patch shortly after the new round of
verification on gdb and gcc / g++ testsuites.

- Jimmy

>2000-08-07	Jimmy Guo	<guo@cup.hp.com>
>
>	* runtest.exp: Eliminate from test_top_dirs entries that
>	cause redundant testing.  Entries picked up because of their
>	${tool} prefix under the real top dir with the ${tool} prefix
>	have been making dejagnu run tests under these entries twice,
>	since dejagnu treats all *.exp files under a given directory
>	tree as test files.
>
>*** runtest.exp.orig	Mon Aug  7 11:01:57 2000
>--- runtest.exp	Mon Aug  7 11:21:57 2000
>***************
>*** 1664,1669 ****
>--- 1664,1689 ----
>  	set test_top_dirs [lsort [getdirs -all ${srcdir} "${tool}*"]]
>  	if { ${test_top_dirs} == "" } {
>  	    set test_top_dirs ${srcdir}
>+ 	} else {
>+ 	    # JYG: For test tree layouts with ${tool} prefix on
>+ 	    # both a parent and a child directory, eliminate
>+ 	    # the child directory entry from test_top_dirs list.
>+ 	    # e.g. gdb.hp/gdb.base-hp/ would result in two entries
>+ 	    # in the list: gdb.hp, gdb.hp/gdb.base-hp.
>+ 	    # If the latter not eliminated, test files under
>+ 	    # gdb.hp/gdb.base-hp would be run twice, since test files
>+ 	    # are gathered from all sub-directories underneath a
>+ 	    # directory.
>+ 	    set temp_top_dirs ""
>+ 	    foreach dir "${test_top_dirs}" {
>+ 		if [regexp "${srcdir}/.*${tool}.*/.*${tool}" ${dir}] {
>+ 		    # skip this directory.
>+ 		    continue
>+ 		} else {
>+ 		    lappend temp_top_dirs ${dir}
>+ 		}
>+ 	    }
>+ 	    set test_top_dirs ${temp_top_dirs}
>  	}
>  	verbose "Top level testsuite dirs are ${test_top_dirs}" 2
>  	set testlist "";