Commit 75327582 by Ian Lance Taylor Committed by Ian Lance Taylor

re PR go/50656 (Several Go tests with unrecognized test line)

	PR go/50656
	* go.test/go-test.exp (go-gc-tests): Recognize some more test
	lines.

From-SVN: r183270
parent 9e99dd50
2012-01-17 Ian Lance Taylor <iant@google.com>
PR go/50656
* go.test/go-test.exp (go-gc-tests): Recognize some more test
lines.
2012-01-17 Tobias Burnus <burnus@net-b.de> 2012-01-17 Tobias Burnus <burnus@net-b.de>
PR fortran/51869 PR fortran/51869
......
# Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. # Copyright (C) 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
# Written by Ian Lance Taylor <iant@google.com>. # Written by Ian Lance Taylor <iant@google.com>.
# This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
...@@ -467,6 +467,9 @@ proc go-gc-tests { } { ...@@ -467,6 +467,9 @@ proc go-gc-tests { } {
$test_line] \ $test_line] \
|| [string match \ || [string match \
"// \$G \$D/\$F.dir/b.go && \$G \$D/\$F.dir/a.go" \ "// \$G \$D/\$F.dir/b.go && \$G \$D/\$F.dir/a.go" \
$test_line] \
|| [string match \
"// \$G \$D/\$F.dir/io.go && errchk \$G -e \$D/\$F.dir/main.go" \
$test_line] } { $test_line] } {
if { [string match \ if { [string match \
"// \$G \$D/\$F.dir/bug0.go && errchk \$G \$D/\$F.dir/bug1.go" \ "// \$G \$D/\$F.dir/bug0.go && errchk \$G \$D/\$F.dir/bug1.go" \
...@@ -478,9 +481,16 @@ proc go-gc-tests { } { ...@@ -478,9 +481,16 @@ proc go-gc-tests { } {
$test_line] } { $test_line] } {
set name1 "p1.go" set name1 "p1.go"
set name2 "p2.go" set name2 "p2.go"
} else { } elseif { [string match \
"// \$G \$D/\$F.dir/b.go && \$G \$D/\$F.dir/a.go" \
$test_line] } {
set name1 "b.go" set name1 "b.go"
set name2 "a.go" set name2 "a.go"
} elseif { [string match \
"// \$G \$D/\$F.dir/io.go && errchk \$G -e \$D/\$F.dir/main.go" \
$test_line] } {
set name1 "io.go"
set name2 "main.go"
} }
set hold_runtests $runtests set hold_runtests $runtests
set runtests "go-test.exp" set runtests "go-test.exp"
...@@ -492,6 +502,17 @@ proc go-gc-tests { } { ...@@ -492,6 +502,17 @@ proc go-gc-tests { } {
file delete "[file rootname [file tail $file1]].o" file delete "[file rootname [file tail $file1]].o"
set runtests $hold_runtests set runtests $hold_runtests
} elseif { [string match \ } elseif { [string match \
"// \$G \$D/\${F}1.go && errchk \$G \$D/\$F.go" \
$test_line ] } {
set hold_runtests $runtests
set runtests "go-test.exp"
set dg-do-what-default "assemble"
regsub "\\.go$" $test "1.go" file1
dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
errchk $test ""
file delete "[file rootname [file tail $file1]].o"
set runtests $hold_runtests
} elseif { [string match \
"// \$G \$D/\$F.dir/bug0.go && (! \$G \$D/\$F.dir/bug1.go || echo BUG*" \ "// \$G \$D/\$F.dir/bug0.go && (! \$G \$D/\$F.dir/bug1.go || echo BUG*" \
$test_line] } { $test_line] } {
set hold_runtests $runtests set hold_runtests $runtests
...@@ -537,14 +558,28 @@ proc go-gc-tests { } { ...@@ -537,14 +558,28 @@ proc go-gc-tests { } {
set runtests $hold_runtests set runtests $hold_runtests
} elseif { [string match \ } elseif { [string match \
"// \$G \$D/bug160.dir/x.go && \$G \$D/bug160.dir/y.go && \$L y.\$A && ./\$A.out" \ "// \$G \$D/bug160.dir/x.go && \$G \$D/bug160.dir/y.go && \$L y.\$A && ./\$A.out" \
$test_line] \
|| [string match \
"// \$G \$D/\$F.dir/p.go && \$G \$D/\$F.dir/main.go && \$L main.\$A && ./\$A.out" \
$test_line] } {
if { [string match \
"// \$G \$D/bug160.dir/x.go && \$G \$D/bug160.dir/y.go && \$L y.\$A && ./\$A.out" \
$test_line] } { $test_line] } {
set name1 "x.go"
set name2 "y.go"
} elseif { [string match \
"// \$G \$D/\$F.dir/p.go && \$G \$D/\$F.dir/main.go && \$L main.\$A && ./\$A.out" \
$test_line] } {
set name1 "p.go"
set name2 "main.go"
}
set hold_runtests $runtests set hold_runtests $runtests
set runtests "go-test.exp" set runtests "go-test.exp"
set dg-do-what-default "assemble" set dg-do-what-default "assemble"
regsub "\\.go$" $test ".dir/x.go" file1 regsub "\\.go$" $test ".dir/$name1" file1
dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS" dg-test -keep-output $file1 "-O" "-w $DEFAULT_GOCFLAGS"
set ofile1 "[file rootname [file tail $file1]].o" set ofile1 "[file rootname [file tail $file1]].o"
regsub "\\.go$" $test ".dir/y.go" file2 regsub "\\.go$" $test ".dir/$name2" file2
dg-test -keep-output $file2 "-O" "-w $DEFAULT_GOCFLAGS" dg-test -keep-output $file2 "-O" "-w $DEFAULT_GOCFLAGS"
set ofile2 "[file rootname [file tail $file2]].o" set ofile2 "[file rootname [file tail $file2]].o"
set dg-do-what-default "link" set dg-do-what-default "link"
......
...@@ -22,7 +22,7 @@ func main() { ...@@ -22,7 +22,7 @@ func main() {
// main.go:27: cannot use &x (type *"io".SectionReader) as type *"/Users/rsc/g/go/test/fixedbugs/bug345.dir/io".SectionReader in function argument // main.go:27: cannot use &x (type *"io".SectionReader) as type *"/Users/rsc/g/go/test/fixedbugs/bug345.dir/io".SectionReader in function argument
var w io.Writer var w io.Writer
bufio.NewWriter(w) // ERROR "test/io" bufio.NewWriter(w) // ERROR "test/io|has incompatible type"
var x goio.SectionReader var x goio.SectionReader
io.SR(&x) // ERROR "test/io" io.SR(&x) // ERROR "test/io|has incompatible type"
} }
// $G $D/$F.go && $L $F.$A && ./$A.out
// Copyright 2011 The Go Authors. All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.
package main package main
import "fmt" import "fmt"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment