pkulev/sex
1
0
Fork 0
forked from alex-eg/sex
Code Pull Requests Activity

prettify reader test with a nice macro

Browse Source
This commit is contained in:
alex-eg
2025-10-21 21:47:20 +03:00
committed by Pavel Kulyov
parent 48a3d06925
commit 851abd1ac2
1 changed files with 13 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
tests/reader.scm
View File

@@ -1,28 +1,17 @@
(import (chicken port)) (import (chicken port))
(define-syntax reader-test
(syntax-rules ()
((reader-test result string)
(test result
(with-input-from-string string
(lambda () (read-raw-forms 'stdin)))))))
(test-group "reader" (test-group "reader"
;; []-syntax. For array types and array access expressions ;; []-syntax. For array types and array access expressions
(test '((¤ * char)) (reader-test '((¤ * char)) "[* char]")
(with-input-from-string "[* char]" (reader-test '((¤ * * char const 512)) "[* * char const 512]")
(lambda () (reader-test '((¤)) "[]")
(read-raw-forms 'stdin)))) (reader-test '((¤ (¤))) "[[]]")
(reader-test '((¤ (¤ const char))) "[[const char]]")
(test '((¤ * * char const 512)) )
(with-input-from-string "[* * char const 512]"
(lambda ()
(read-raw-forms 'stdin))))
(test '((¤))
(with-input-from-string "[]"
(lambda ()
(read-raw-forms 'stdin))))
(test '((¤ (¤)))
(with-input-from-string "[[]]"
(lambda ()
(read-raw-forms 'stdin))))
(test '((¤ (¤ const char)))
(with-input-from-string "[[const char]]"
(lambda ()
(read-raw-forms 'stdin)))))