ps/tests/stepA_mal.mal


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

;; Testing basic ps interop

(ps* "7")
;=>(7)

(ps* "(7)")
;=>("7")

(ps* "7 8 9 3 array astore")
;=>((7 8 9))

(ps* "1 1 eq")
;=>(true)

(ps* "/sym")
;=>sym

(ps* "1 1 eq { (yep) }{ (nope) } ifelse")
;=>("yep")

(ps* "1 0 eq { (yep) }{ (nope) } ifelse")
;=>("nope")