import cond-expand tests from @KeenS's patch

src/main.c

@@ -14,15 +14,9 @@ void pic_load_piclib(pic_state *);
 static pic_value
 pic_features(pic_state *pic)
 {
-  pic_value features = pic_nil_value();
-
   pic_get_args(pic, "");
 
-  pic_push(pic, pic_sym_value(pic_intern_cstr(pic, "r7rs")), features);
+  return pic->features;
-  pic_push(pic, pic_sym_value(pic_intern_cstr(pic, "ieee-float")), features);
-  pic_push(pic, pic_sym_value(pic_intern_cstr(pic, "picrin")), features);
-
-  return features;
 }
 
 static pic_value
@@ -42,6 +36,8 @@ pic_libraries(pic_state *pic)
 void
 pic_init_picrin(pic_state *pic)
 {
+  pic_add_feature(pic, "r7rs");
+
   pic_deflibrary (pic, "(picrin library)") {
     pic_defun(pic, "libraries", pic_libraries);
   }

t/r7rs-tests.scm

@@ -48,6 +48,41 @@
 
 (test-begin "R7RS")
 
+(test-begin "cond-expand")
+
+(test #t (cond-expand
+          (r7rs #t)
+          (else #f)))
+(test #t (cond-expand
+          ((library (scheme write)) #t)
+          (else #f)))
+(test #t (cond-expand
+          ((not r6rs) #t)
+          (else #f)))
+(test #t (cond-expand
+          ((and r7rs (library (picrin test))) #t)
+          (else #f)))
+(test #t (cond-expand
+          ((or r6rs r7rs) #t)
+          (else #f)))
+(cond-expand
+ (r7rs (test #t #t))
+ (else (test #t #f)))
+(cond-expand
+ ((library (scheme write)) (test #t #t))
+ (else (test #t #f)))
+(cond-expand
+ ((not r6rs) (test #t #t))
+ (else (test #t #f)))
+(cond-expand
+ ((and r7rs (library (picrin test))) (test #t #t))
+ (else (test #t #f)))
+(cond-expand
+ ((or r6rs r7rs) (test #t #t))
+ (else (test #t #f)))
+
+(test-end)
+
 (test-begin "4.1 Primitive expression types")
 
 (let ()