mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-27 08:50:27 +00:00
Code Issues 1 Releases Wiki Activity

Add testcase for issue #1005

Browse Source
This commit is contained in:
Calvin Rose 2022-08-02 12:34:24 -05:00
parent f4bbcdcbc8
commit 2c927ea768
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/suite0011.janet
View File

@ -93,5 +93,14 @@
(assert (= 10 (named-opt-arguments 1 :a 2 :b 3 :c 4)) "named arguments 2") (assert (= 10 (named-opt-arguments 1 :a 2 :b 3 :c 4)) "named arguments 2")
(let [b @""]
(defn dummy [a b c]
(+ a b c))
(trace dummy)
(defn errout [arg]
(buffer/push b arg))
(assert (= 6 (with-dyns [*err* errout] (dummy 1 2 3))) "trace to custom err function")
(assert (deep= @"trace (dummy 1 2 3)\n" b) "trace buffer correct"))
(end-suite) (end-suite)