summaryrefslogtreecommitdiff
path: root/test/stringslib.go
diff options
context:
space:
mode:
Diffstat (limited to 'test/stringslib.go')
-rw-r--r--test/stringslib.go120
1 files changed, 0 insertions, 120 deletions
diff --git a/test/stringslib.go b/test/stringslib.go
deleted file mode 100644
index c44c1397b..000000000
--- a/test/stringslib.go
+++ /dev/null
@@ -1,120 +0,0 @@
-// 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.
-
-// $G $F.go && $L $F.$A && ./$A.out
-
-package main
-
-import (
- "strconv";
- "strings";
-)
-
-func split(s, sep string) *[]string {
- a := strings.split(s, sep);
- b := strings.join(a, sep);
- if b != s {
- print("Split: ", s, " ", sep, " got ", len(a), "\n");
- for i := 0; i < len(a); i++ {
- print(" a[", i, "] = ", a[i], "\n")
- }
- panic("split / join "+s+" "+sep)
- }
- return a
-}
-
-func explode(s string) *[]string {
- a := strings.explode(s);
- b := strings.join(a, "");
- if b != s {
- panic("explode / join "+s)
- }
- return a
-}
-
-func itoa(i int) string {
- s := strconv.itoa(i);
- n, err := strconv.atoi(s);
- if n != i {
- print("itoa: ", i, " ", s, "\n");
- panic("itoa")
- }
- return s
-}
-
-func main() {
- abcd := "abcd";
- faces := "☺☻☹";
- commas := "1,2,3,4";
- dots := "1....2....3....4";
- if strings.utflen(abcd) != 4 { panic("utflen abcd") }
- if strings.utflen(faces) != 3 { panic("utflen faces") }
- if strings.utflen(commas) != 7 { panic("utflen commas") }
- {
- a := split(abcd, "a");
- if len(a) != 2 || a[0] != "" || a[1] != "bcd" { panic("split abcd a") }
- }
- {
- a := split(abcd, "z");
- if len(a) != 1 || a[0] != "abcd" { panic("split abcd z") }
- }
- {
- a := split(abcd, "");
- if len(a) != 4 || a[0] != "a" || a[1] != "b" || a[2] != "c" || a[3] != "d" { panic("split abcd empty") }
- }
- {
- a := explode(abcd);
- if len(a) != 4 || a[0] != "a" || a[1] != "b" || a[2] != "c" || a[3] != "d" { panic("explode abcd") }
- }
- {
- a := split(commas, ",");
- if len(a) != 4 || a[0] != "1" || a[1] != "2" || a[2] != "3" || a[3] != "4" { panic("split commas") }
- }
- {
- a := split(dots, "...");
- if len(a) != 4 || a[0] != "1" || a[1] != ".2" || a[2] != ".3" || a[3] != ".4" { panic("split dots") }
- }
-
- {
- a := split(faces, "☹");
- if len(a) != 2 || a[0] != "☺☻" || a[1] != "" { panic("split faces 1") }
- }
- {
- a := split(faces, "~");
- if len(a) != 1 || a[0] != faces { panic("split faces ~") }
- }
- {
- a := explode(faces);
- if len(a) != 3 || a[0] != "☺" || a[1] != "☻" || a[2] != "☹" { panic("explode faces") }
- }
- {
- a := split(faces, "");
- if len(a) != 3 || a[0] != "☺" || a[1] != "☻" || a[2] != "☹" { panic("split faces empty") }
- }
-
- {
- n, err := strconv.atoi("0"); if n != 0 || err != nil { panic("atoi 0") }
- n, err = strconv.atoi("-1"); if n != -1 || err != nil { panic("atoi -1") }
- n, err = strconv.atoi("+345"); if n != 345 || err != nil { panic("atoi +345") }
- n, err = strconv.atoi("9999"); if n != 9999 || err != nil { panic("atoi 9999") }
- n, err = strconv.atoi("20ba"); if n != 0 || err == nil { panic("atoi 20ba") }
- n, err = strconv.atoi("hello"); if n != 0 || err == nil { panic("hello") }
- }
-
- if strconv.ftoa(1e6, 'e', 6) != "1.000000e+06" { panic("ftoa 1e6") }
- if strconv.ftoa(-1e-6, 'e', 6) != "-1.000000e-06" { panic("ftoa -1e-6") }
- if strconv.ftoa(-1.234567e-6, 'e', 6) != "-1.234567e-06" { panic("ftoa -1.234567e-6") }
-
- if itoa(0) != "0" { panic("itoa 0") }
- if itoa(12345) != "12345" { panic("itoa 12345") }
- if itoa(-1<<31) != "-2147483648" { panic("itoa 1<<31") }
-
- // should work if int == int64: is there some way to know?
- // if itoa(-1<<63) != "-9223372036854775808" { panic("itoa 1<<63") }
-
- {
- a, err := strconv.atof64("-1.2345e4");
- if err != nil || a != -12345. { panic(a, "atof64 -1.2345e4") }
- }
-}