perl/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

;; Testing types returned from pl*

(pl* "123")
;=>123

(pl* "\"abc\"")
;=>"abc"

(pl* "{'abc'=>123}")
;=>{"abc" 123}

(pl* "['abc', 123]")
;=>("abc" 123)

(pl* "2+3")
;=>5

;; Testing eval of print statement

(pl* "print 'hello\n';")
; hello
;=>1