evaluate-destructor-to-booleanHEADmaster

1 files changed, 10 insertions, 0 deletions

diff --git a/tests/values.scm b/tests/values.scm
index c81b8aa..cea402d 100644
--- a/tests/values.scm
+++ b/tests/values.scm
@@ -78,6 +78,16 @@
      tail)
    (else #f)))
 
+(test
+ "evaluate-destructor-to-boolean 1"
+ #t
+ (evaluate-destructor-to-boolean (pair=> '(1))))
+
+(test
+ "evaluate-destructor-to-boolean 2"
+ #f
+ (evaluate-destructor-to-boolean (pair=> 1)))
+
 (test-assert
  "length-at-least=> 1"
  (cond-values