From 90f618cbe7ac7740accf501a75be6972bd95be1a Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Sat, 28 Feb 2015 11:09:54 -0600 Subject: All: rename stepA_interop to stepA_mal Also, add missed postscript interop tests. --- perl/tests/stepA_interop.mal | 22 ---------------------- perl/tests/stepA_mal.mal | 22 ++++++++++++++++++++++ 2 files changed, 22 insertions(+), 22 deletions(-) delete mode 100644 perl/tests/stepA_interop.mal create mode 100644 perl/tests/stepA_mal.mal (limited to 'perl/tests') diff --git a/perl/tests/stepA_interop.mal b/perl/tests/stepA_interop.mal deleted file mode 100644 index 1335be4..0000000 --- a/perl/tests/stepA_interop.mal +++ /dev/null @@ -1,22 +0,0 @@ -;; 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 diff --git a/perl/tests/stepA_mal.mal b/perl/tests/stepA_mal.mal new file mode 100644 index 0000000..1335be4 --- /dev/null +++ b/perl/tests/stepA_mal.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