diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-05-04 17:02:15 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-05-04 23:35:55 +0200 |
| commit | 4b6fa8b33970be414ae035f63ed80b147dcd8200 (patch) | |
| tree | c9dcfeff604fe3abd93a6f4566a08ec0129521da /tests/utils.scm | |
| parent | 6aaf3ea62d883a717a3459b6c6da3c1cfede55e2 (diff) | |
| download | patches-4b6fa8b33970be414ae035f63ed80b147dcd8200.tar patches-4b6fa8b33970be414ae035f63ed80b147dcd8200.tar.gz | |
utils: Remove 'split'.
This procedure was redundant with SRFI-1's 'break'.
* guix/utils.scm (split): Remove.
* tests/utils.scm ("split, element is in list")
("split, element is not in list"): Remove.
Diffstat (limited to 'tests/utils.scm')
| -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 d0ee02a1cf..854999f670 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -122,20 +122,6 @@ '(0 1 2 3))) list)) -(test-equal "split, element is in list" - '((foo) (baz)) - (call-with-values - (lambda () - (split '(foo bar baz) 'bar)) - list)) - -(test-equal "split, element is not in list" - '((foo bar baz) ()) - (call-with-values - (lambda () - (split '(foo bar baz) 'quux)) - list)) - (test-equal "strip-keyword-arguments" '(a #:b b #:c c) (strip-keyword-arguments '(#:foo #:bar #:baz) |