add a couple of tests

update golden

SVN=127428

test/chan/fifo.go

@@ -0,0 +1,54 @@
+// $G $D/$F.go && $L $F.$A && ./$A.out
+
+// Copyright 2009 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.
+
+// Verify that unbuffered channels act as pure fifos.
+
+package main
+
+const N = 10
+
+func AsynchFifo() {
+	ch := new(chan int, N);
+	for i := 0; i < N; i++ {
+		>ch = i
+	}
+	for i := 0; i < N; i++ {
+		if <ch != i {
+			print "bad receive\n";
+			sys.exit(1);
+		}
+	}
+}
+
+func Chain(ch *chan< int, val int, in *chan< int, out *chan> int) {
+	BUG := <in;
+	if <ch != val {
+		panic val;
+	}
+	>out = 1;
+}
+
+// thread together a daisy chain to read the elements in sequence
+func SynchFifo() {
+	ch := new(chan int);
+	in := new(chan int);
+	start := in;
+	for i := 0; i < N; i++ {
+		out := new(chan int);
+		go Chain(ch, i, in, out);
+		in = out;
+	}
+	>start = 0;
+	for i := 0; i < N; i++ {
+		>ch = i
+	}
+}
+
+func main() {
+	AsynchFifo();
+	SynchFifo();
+}
+

test/golden.out

@@ -114,6 +114,8 @@ abcxyz-abcxyz-abcxyz-abcxyz-abcxyz-abcxyz-abcxyz
 
 =========== ken/strvar.go
 
+=========== chan/fifo.go
+
 =========== chan/sieve.go
 
 =========== bugs/bug010.go
@@ -260,6 +262,8 @@ BUG: compilation should succeed
 =========== bugs/bug069.go
 bugs/bug069.go:12: bad shape across assignment - cr=1 cl=2
 
+BUG: compilation should succeed
+
 =========== bugs/bug070.go
 outer loop top k 0
 inner loop top i 0

test/utf.go

@@ -0,0 +1,52 @@
+// $G $F.go && $L $F.$A && ./$A.out
+
+// Copyright 2009 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
+
+func main() {
+	var chars [6] int;
+	chars[0] = 'a';
+	chars[1] = 'b';
+	chars[2] = 'c';
+	chars[3] = '\u65e5';
+	chars[4] = '\u672c';
+	chars[5] = '\u8a9e';
+	s := "";
+	for i := 0; i < 6; i++ {
+		s += string(chars[i]);
+	}
+	var l = len(s);
+	for w, i, j := 0,0,0; i < l; i += w {
+		var r int32;
+		r, w = sys.stringtorune(s, i, l);
+		if w == 0 { panic "zero width in string" }
+		if r != chars[j] { panic "wrong value from string" }
+		j++;
+	}
+	// encoded as bytes:  'a' 'b' 'c' e6 97 a5 e6 9c ac e8 aa 9e
+	const L = 12;
+	if L != l { panic "wrong length constructing array" }
+	a := new([L]byte);
+	a[0] = 'a';
+	a[1] = 'b';
+	a[2] = 'c';
+	a[3] = 0xe6;
+	a[4] = 0x97;
+	a[5] = 0xa5;
+	a[6] = 0xe6;
+	a[7] = 0x9c;
+	a[8] = 0xac;
+	a[9] = 0xe8;
+	a[10] = 0xaa;
+	a[11] = 0x9e;
+	for w, i, j := 0,0,0; i < L; i += w {
+		var r int32;
+		r, w = sys.bytestorune(&a[0], i, L);
+		if w == 0 { panic "zero width in bytes" }
+		if r != chars[j] { panic "wrong value from bytes" }
+		j++;
+	}
+}