diff options
| author | Joel Martin <github@martintribe.org> | 2014-04-23 20:30:33 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-04-23 20:30:33 -0500 |
| commit | 85cc53f35b8302e13f0014454ac320b971c196db (patch) | |
| tree | 48ab573a74bc066eae78eebc9390b8451f173767 | |
| parent | 16354bb46100a752fbe2cc8788c0d3b5e9909eb3 (diff) | |
| download | mal-85cc53f35b8302e13f0014454ac320b971c196db.tar.gz mal-85cc53f35b8302e13f0014454ac320b971c196db.zip | |
Perl: add step9_interop test
| -rw-r--r-- | perl/tests/step9_interop.mal | 22 |
1 files changed, 22 insertions, 0 deletions
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 |