[jackhill/mal.git] / perl / tests / stepA_mal.mal

;; 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
Commit	Line	Data
85cc53f3 JM	1	;; Testing types returned from pl*
	2
	3	(pl* "123")
	4	;=>123
	5
	6	(pl* "\"abc\"")
	7	;=>"abc"
	8
	9	(pl* "{'abc'=>123}")
	10	;=>{"abc" 123}
	11
	12	(pl* "['abc', 123]")
	13	;=>("abc" 123)
	14
	15	(pl* "2+3")
	16	;=>5
	17
	18	;; Testing eval of print statement
	19
	20	(pl* "print 'hello\n';")
	21	; hello
	22	;=>1