summaryrefslogtreecommitdiff
path: root/tests/utils.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-05-04 17:02:15 +0200
committerLudovic Courtès <ludo@gnu.org>2016-05-04 23:35:55 +0200
commit4b6fa8b33970be414ae035f63ed80b147dcd8200 (patch)
treec9dcfeff604fe3abd93a6f4566a08ec0129521da /tests/utils.scm
parent6aaf3ea62d883a717a3459b6c6da3c1cfede55e2 (diff)
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.scm14
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)