diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-04-30 17:06:00 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-04-30 17:06:00 +0200 |
| commit | 0734a9a8131525d6da2e7bf802402dc0350eda98 (patch) | |
| tree | f43bef210f6513b12c14ee9494bb47e4f80e99d0 /tests/utils.scm | |
| parent | e0fbbc889d724678e9e310432ad3a3fb8345cf9a (diff) | |
| parent | 01155b1808b17f0a4f54388261ab0c6f5fee2f1b (diff) | |
Merge branch 'core-updates'
Diffstat (limited to 'tests/utils.scm')
| -rw-r--r-- | tests/utils.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index 2fc8eaec123..f14412e61ea 100644 --- a/tests/utils.scm +++ b/tests/utils.scm | |||
| @@ -66,6 +66,16 @@ | |||
| 66 | ("nixpkgs" "1.0pre22125_a28fe19") | 66 | ("nixpkgs" "1.0pre22125_a28fe19") |
| 67 | ("gtk2" "2.38.0")))) | 67 | ("gtk2" "2.38.0")))) |
| 68 | 68 | ||
| 69 | (test-equal "string-tokenize*" | ||
| 70 | '(("foo") | ||
| 71 | ("foo" "bar" "baz") | ||
| 72 | ("foo" "bar" "") | ||
| 73 | ("foo" "bar" "baz")) | ||
| 74 | (list (string-tokenize* "foo" ":") | ||
| 75 | (string-tokenize* "foo;bar;baz" ";") | ||
| 76 | (string-tokenize* "foo!bar!" "!") | ||
| 77 | (string-tokenize* "foo+-+bar+-+baz" "+-+"))) | ||
| 78 | |||
| 69 | (test-equal "fold2, 1 list" | 79 | (test-equal "fold2, 1 list" |
| 70 | (list (reverse (iota 5)) | 80 | (list (reverse (iota 5)) |
| 71 | (map - (reverse (iota 5)))) | 81 | (map - (reverse (iota 5)))) |