From 16354bb46100a752fbe2cc8788c0d3b5e9909eb3 Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Tue, 22 Apr 2014 23:50:43 -0500 Subject: Perl: add stepA_more. --- tests/stepA_more.mal | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'tests') diff --git a/tests/stepA_more.mal b/tests/stepA_more.mal index 2ca58fb..4d2acf9 100644 --- a/tests/stepA_more.mal +++ b/tests/stepA_more.mal @@ -1,14 +1,17 @@ ;; ;; Testing try*/catch* -(try* (abc 1 2) (catch* exc (prn exc)))) -; "'abc' not found" +(try* (abc 1 2) (catch* exc (prn "exc is:" exc)))) +; "exc is:" "'abc' not found" ;=>nil -;;;TODO: fix so long lines don't trigger ANSI escape codes -;;;(try* (throw {"data" "foo"}) (catch* exc (do (prn "exc is:" exc) 7))) -;;;; "exc is:" {"data" "foo"} -;;;;=>7 +;;;TODO: fix so long lines don't trigger ANSI escape codes ;;;(try* +(throw {"data" "foo"}) (catch* exc (do (prn "exc is:" exc) 7))) ;;;; +"exc is:" {"data" "foo"} ;;;;=>7 + +(try* (throw {"data" "foo"}) (catch* exc (do (prn "err:" exc) 7))) +; "err:" {"data" "foo"} +;=>7 (try* (throw "my exception") (catch* exc (do (prn "exc:" exc) 7))) ; "exc:" "my exception" -- cgit v1.2.3