diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/utils.scm | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index d0ee02a1cf5..854999f670b 100644 --- a/tests/utils.scm +++ b/tests/utils.scm | |||
| @@ -122,20 +122,6 @@ | |||
| 122 | '(0 1 2 3))) | 122 | '(0 1 2 3))) |
| 123 | list)) | 123 | list)) |
| 124 | 124 | ||
| 125 | (test-equal "split, element is in list" | ||
| 126 | '((foo) (baz)) | ||
| 127 | (call-with-values | ||
| 128 | (lambda () | ||
| 129 | (split '(foo bar baz) 'bar)) | ||
| 130 | list)) | ||
| 131 | |||
| 132 | (test-equal "split, element is not in list" | ||
| 133 | '((foo bar baz) ()) | ||
| 134 | (call-with-values | ||
| 135 | (lambda () | ||
| 136 | (split '(foo bar baz) 'quux)) | ||
| 137 | list)) | ||
| 138 | |||
| 139 | (test-equal "strip-keyword-arguments" | 125 | (test-equal "strip-keyword-arguments" |
| 140 | '(a #:b b #:c c) | 126 | '(a #:b b #:c c) |
| 141 | (strip-keyword-arguments '(#:foo #:bar #:baz) | 127 | (strip-keyword-arguments '(#:foo #:bar #:baz) |
