OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

go-test.exp (go-gc-tests): Handle a few more test lines.

Browse Source 
* go.test/go-test.exp (go-gc-tests): Handle a few more test
	lines.

From-SVN: r183533
This commit is contained in:
Ian Lance Taylor 2012-01-25 19:14:32 +00:00 committed by Ian Lance Taylor
parent e906c88918
commit 5b458dda3e
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2012-01-25 Ian Lance Taylor <iant@google.com>
* go.test/go-test.exp (go-gc-tests): Handle a few more test
lines.
2012-01-25 Tobias Burnus <burnus@net-b.de>
PR fortran/51995

14
gcc/testsuite/go.test/go-test.exp
View File

@ -448,6 +448,7 @@ proc go-gc-tests { } {
go-torture-execute $test
file delete core [glob -nocomplain core.*]
} elseif { $test_line == "// \$G \$D/\$F.go && \$L \$F.\$A && ./\$A.out 2>&1 | cmp - \$D/\$F.out" \
|| $test_line == "// \$G \$F.go && \$L \$F.\$A && ./\$A.out 2>&1 | cmp - \$D/\$F.out" \
|| $test_line == "// (\$G \$D/\$F.go && \$L \$F.\$A && ./\$A.out 2>&1 | cmp - \$D/\$F.out)" } {
# This is an execution test for which we need to check the
# program output.
@ -493,7 +494,8 @@ proc go-gc-tests { } {
|| [string match "// \$G \$F.go || echo BUG*" \
$test_line] \
|| [string match "// ! \$G \$D/\$F.go && echo BUG*" \
$test_line] } {
$test_line] \
|| $test_line == "// echo bug395 is broken # takes 90+ seconds to break" } {
# This is a vanilla compile test.
set dg-do-what-default "assemble"
go-dg-runtest $test "-w $DEFAULT_GOCFLAGS"
@ -854,11 +856,17 @@ proc go-gc-tests { } {
}
file delete $ofile0 $ofile1 $ofile2 $output_file
set runtests $hold_runtests
} elseif { $test_line == "// \$G \$D/import2.go && \$G \$D/\$F\.go" } {
} elseif { $test_line == "// \$G \$D/import2.go && \$G \$D/\$F\.go" \
|| $test_line == "// \$G \$D/recursive1.go && \$G \$D/\$F.go" } {
if { $test_line == "// \$G \$D/import2.go && \$G \$D/\$F\.go" } {
set name1 "import2.go"
} elseif { $test_line == "// \$G \$D/recursive1.go && \$G \$D/\$F.go" } {
set name1 "recursive1.go"
}
set hold_runtests $runtests
set runtests "go-test.exp"
set dg-do-what-default "assemble"
regsub "/\[^/\]*$" $test "/import2.go" file1
regsub "/\[^/\]*$" $test "/${name1}" file1
dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
set ofile1 "[file rootname [file tail $file1]].o"
dg-test $test "-O" "-w $DEFAULT_GOCFLAGS"