perl/tests/step9_interop.mal

   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