aboutsummaryrefslogtreecommitdiff
path: root/tests/utils.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-10-01 10:19:14 +0200
committerLudovic Courtès <ludo@gnu.org>2014-10-05 21:57:19 +0200
commit5e1103821a566e55c848c8fa323d07801cce6ab7 (patch)
tree866d0ce8fe5307eac5782f397067cfa3790eb0c1 /tests/utils.scm
parentb72a312c307131703bd65a9e2db04cd9b35d0fbe (diff)
downloadguix-5e1103821a566e55c848c8fa323d07801cce6ab7.tar
guix-5e1103821a566e55c848c8fa323d07801cce6ab7.tar.gz
utils: Add 'strip-keyword-arguments'.
* guix/utils.scm (strip-keyword-arguments): New procedure. * tests/utils.scm ("strip-keyword-arguments"): New test.
Diffstat (limited to 'tests/utils.scm')
-rw-r--r--tests/utils.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/utils.scm b/tests/utils.scm
index 611867ca09..a662c9a8d3 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -120,6 +120,12 @@
'(0 1 2 3)))
list))
+(test-equal "strip-keyword-arguments"
+ '(a #:b b #:c c)
+ (strip-keyword-arguments '(#:foo #:bar #:baz)
+ '(a #:foo 42 #:b b #:baz 3
+ #:c c #:bar 4)))
+
(let* ((tree (alist->vhash
'((0 2 3) (1 3 4) (2) (3 5 6) (4 6) (5) (6))
hashq))