diff options
author | Ian Lance Taylor <iant@google.com> | 2012-01-25 19:14:32 +0000 |
---|---|---|
committer | Ian Lance Taylor <ian@gcc.gnu.org> | 2012-01-25 19:14:32 +0000 |
commit | 5b458dda3e8797578f521ad12e5a04e84183589c (patch) | |
tree | 08fa54c1192c45d5e53e1676f2c1b64900aab621 | |
parent | e906c889182f1385ef48374e87e8ae7323b58848 (diff) | |
download | gcc-5b458dda3e8797578f521ad12e5a04e84183589c.zip gcc-5b458dda3e8797578f521ad12e5a04e84183589c.tar.gz gcc-5b458dda3e8797578f521ad12e5a04e84183589c.tar.bz2 |
go-test.exp (go-gc-tests): Handle a few more test lines.
* go.test/go-test.exp (go-gc-tests): Handle a few more test
lines.
From-SVN: r183533
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/go.test/go-test.exp | 14 |
2 files changed, 16 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6e38d08..4518441 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/go.test/go-test.exp b/gcc/testsuite/go.test/go-test.exp index c9ba41a..13e801b 100644 --- a/gcc/testsuite/go.test/go-test.exp +++ b/gcc/testsuite/go.test/go-test.exp @@ -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" |