add bool true false tests

This commit is contained in:
2025-08-22 13:07:59 +03:00
parent 0928c13780
commit a3e9b6cb6d

View File

@@ -21,6 +21,11 @@
(test '%include (atom-to-fmt-c 'include)) (test '%include (atom-to-fmt-c 'include))
(test '%cast (atom-to-fmt-c 'cast)) (test '%cast (atom-to-fmt-c 'cast))
;;; c89 stuff
(test 'int (atom-to-fmt-c 'bool))
(test 1 (atom-to-fmt-c 'true))
(test 0 (atom-to-fmt-c 'false))
;;; make-field-access ;;; make-field-access
(test 'a.b (make-field-access '(.b a))) (test 'a.b (make-field-access '(.b a)))
(test 'a.b.c (make-field-access '(.c a.b))) (test 'a.b.c (make-field-access '(.c a.b)))