From 5b458dda3e8797578f521ad12e5a04e84183589c Mon Sep 17 00:00:00 2001 From: Ian Lance Taylor Date: Wed, 25 Jan 2012 19:14:32 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ 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 + + * go.test/go-test.exp (go-gc-tests): Handle a few more test + lines. + 2012-01-25 Tobias Burnus 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" -- 2.7.4