From a9f4f3edd343d9eb5b219c4100f4266bc0b767b3 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 11 Nov 2012 14:15:12 +0900 Subject: [PATCH] Checking that r7rs is in the features list. --- tests/r7rs-tests.scm | 1 + 1 file changed, 1 insertion(+) diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm index 3904c43e..83da6e3b 100644 --- a/tests/r7rs-tests.scm +++ b/tests/r7rs-tests.scm @@ -1649,5 +1649,6 @@ (test #t (exact? (jiffies-per-second))) (test #t (list? (features))) +(test #t (and (memq 'r7rs (features)) #t)) (test-end)