add receive-ct

1 files changed, 7 insertions, 0 deletions

diff --git a/tests/values.scm b/tests/values.scm
index ef14907..c81b8aa 100644
--- a/tests/values.scm
+++ b/tests/values.scm
@@ -119,6 +119,13 @@
           (list a b c d))
         (else 'else)))
 
+(test "receive-ct 1"
+      #t
+      (cond-values
+        (receive-ct (x y) (length=> '(1 2) 2)
+          #t)
+        (else #f)))
+
 (test "on-fail 1"
       5
       (cond-thunk