fix length=>

1 files changed, 11 insertions, 0 deletions

diff --git a/tests/values.scm b/tests/values.scm
index cafa8b0..ef14907 100644
--- a/tests/values.scm
+++ b/tests/values.scm
@@ -108,6 +108,17 @@
     (test-assert "length-at-least=> 3.4" (equal? rest '(4))))
   (else (error "length-at-least=> 3" #f)))
 
+(test "length=> 1"
+      '(1 2 3 4)
+      (cond-values
+        (after ((let (length=> '(1 2 3 4) 5) => _))
+          5)
+        (after ((let (length=> '(1 2 3 4) 3) => _))
+          3)
+        (after ((let (length=> '(1 2 3 4) 4) => (a b c d)))
+          (list a b c d))
+        (else 'else)))
+
 (test "on-fail 1"
       5
       (cond-thunk