application/octet-stream
•
2.17 KB
•
60 lines
;;; Contains test cases for (hopefully) all examples from the LANGUAGE.md file, to make sure that these examples never break
;; Parentheses
[3 [eval [read/single "[+ 1 2]"]]]
[3 [eval [read/single "(+ 1 2)"]]]
['a [eval [read/single "[car '[a . b]]"]]]
['b [eval [read/single "[cdr '[a . b]]"]]]
[1 [eval [read/single "[car [cons 1 2]]"]]]
[2 [eval [read/single "[cdr [cons 1 2]]"]]]
;; Comments
[4 [eval [read/single "(+ 1 #;2 3)"]]]
[4 [eval [read/single "(+ 1 #| 2 |# 3)"]]]
[#nil [eval [read/single "[comment [exit 2]]"]]]
;; Numbers
[9 [eval [read/single "9"]]]
[1000 [eval [read/single "100,0"]]]
[1000 [eval [read/single "1,000"]]]
[16 [eval [read/single "#b10000"]]]
[16 [eval [read/single "#b0001_0000"]]]
[4660 [eval [read/single "#x12_34"]]]
[8 [eval [read/single "#o10"]]]
[:read-error [try car [read/single "0x123"]]]
[-100 [try car [read/single "-100"]]]
['a [eval [read/single "'a"]]]
['[1 2 3] [eval [read/single "'[1 2 3]"]]]
['[1 2 3] [eval [read/single "`[1 2 ~[+ 1 1 1]]"]]]
;; Symbols / Keywords
[:unbound-variable [try car [eval [read "asd"]]]]
['asd 'asd]
['asd [string->symbol "asd"]]
[#t [== 'asd [string->symbol "asd"]]]
[:asd [eval [read/single ":asd"]]]
[:asd [eval [read/single "asd:"]]]
[#t [eval [read/single "[= asd: :asd]"]]]
[#t [eval [read/single "[= :asd [symbol->keyword 'asd]]"]]]
[4 [eval [read/single "[do [defn double [α] [* α α]] [double 2]]"]]]
['[2 4 6] [eval [read/single "[do [defn multiply-vals [val . l] [map l [fn [v] [* v val]]]] [multiply-vals 2 1 2 3]]"]]]
['[1 2 3 4] [eval [read/single "[do [defn my-list l l] [my-list 1 2 3 4]]"]]]
;; Variables
[:unbound-variable [try car [eval [read/single "my-temp"]]]]
[123 [eval [read/single "[do [def my-temp 123] my-temp]"]]]
[234 [eval [read/single "[do [def my-temp 123]\n my-temp [set! my-temp 234]]"]]]
[16 [eval [read/single "[do [def double [fn [a] [* a a]]] [double 4]]"]]]
;; Arithmetic
[10 [+ 1 2 3 4]]
[10 [+ 1 2 [+ 3 4]]]
[10 [+ [+ 1 2] [+ 3 4]]]
[-1 [+ 1 -2]]
[-1 [+ 1 [- 2]]]
[-1 [+ 1 [- [+ 1 1]]]]
[:type-error [try car [eval [read/single "[+ 1 :two \"drei\"]"]]]]
[246 [def my-var 123] [* 2 my-var]]
[:type-error [try car [eval [read/single "[do [def my-string \"tausend\"] [* 2 my-string]]"]]]]
