Merge pull request #10 from attila-lendvai/test-for-ignores

added a test
hraban · Jan 1, 2017 · 5a25b17 · 5a25b17
2 parents 7a148e5 + e917daa
commit 5a25b17
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/unit-tests/test-bind.lisp b/unit-tests/test-bind.lisp
@@ -77,6 +77,14 @@
     (ensure-same (fifth vars) (first ignores))
     (ensure-same (fourth vars) '(c 1) :test 'equal)))
 
+(addtest (test-bind-fix-nils-destructured)
+  keyword-list-with-nil-default
+  (multiple-value-bind (vars ignores)
+                       (bind-fix-nils-destructured '(a b &key (c nil c?)))
+    (ensure-same (length ignores) 0)
+    (ensure-same (subseq vars 0 3) '(a b &key) :test #'equal)
+    (ensure-same (fourth vars) '(c nil c?) :test 'equal)))
+
 #+Ignore
 ;;?? not yet
 (addtest (test-bind-fix-nils-destructured)