diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-10-09 12:10:47 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-10-09 12:17:01 -0400 |
| commit | bbd00d2012833c6419a62f6490cbef3e896b1e11 (patch) | |
| tree | 6a5042c85949122419ff91e38455131eed04336b /tests/utils.scm | |
| parent | b94ef11a538e19900c1f570500ac4dee73543844 (diff) | |
utils: Add split procedure.
* guix/utils.scm (split): New procedure.
* tests/utils.scm: Add tests.
Diffstat (limited to 'tests/utils.scm')
| -rw-r--r-- | tests/utils.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index 115868c857a..b65d6d20ba9 100644 --- a/tests/utils.scm +++ b/tests/utils.scm | |||
| @@ -121,6 +121,20 @@ | |||
| 121 | '(0 1 2 3))) | 121 | '(0 1 2 3))) |
| 122 | list)) | 122 | list)) |
| 123 | 123 | ||
| 124 | (test-equal "split, element is in list" | ||
| 125 | '((foo) (baz)) | ||
| 126 | (call-with-values | ||
| 127 | (lambda () | ||
| 128 | (split '(foo bar baz) 'bar)) | ||
| 129 | list)) | ||
| 130 | |||
| 131 | (test-equal "split, element is not in list" | ||
| 132 | '((foo bar baz) ()) | ||
| 133 | (call-with-values | ||
| 134 | (lambda () | ||
| 135 | (split '(foo bar baz) 'quux)) | ||
| 136 | list)) | ||
| 137 | |||
| 124 | (test-equal "strip-keyword-arguments" | 138 | (test-equal "strip-keyword-arguments" |
| 125 | '(a #:b b #:c c) | 139 | '(a #:b b #:c c) |
| 126 | (strip-keyword-arguments '(#:foo #:bar #:baz) | 140 | (strip-keyword-arguments '(#:foo #:bar #:baz) |