From 85cc53f35b8302e13f0014454ac320b971c196db Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Wed, 23 Apr 2014 20:30:33 -0500
Subject: Perl: add step9_interop test

---
 perl/tests/step9_interop.mal | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 perl/tests/step9_interop.mal

diff --git a/perl/tests/step9_interop.mal b/perl/tests/step9_interop.mal
new file mode 100644
index 0000000..1335be4
--- /dev/null
+++ b/perl/tests/step9_interop.mal
@@ -0,0 +1,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
-- 
cgit v1.2.3