alex-eg/sex
1
0
Fork 1
Code Issues 3 Pull Requests 1 Actions Packages Projects 1 Releases Wiki Activity

Better types #15

Merged
alex-eg merged 27 commits from better-types into main 2025-10-30 16:05:44 +01:00
Conversation 16 Commits 27 Files Changed 18 +13 -24
1 changed files with 13 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 9e79ac5f9f - Show all commits

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)))))