From 2f3b4c8bfbe4a34b625a1e3e5f40bcf628228a9c Mon Sep 17 00:00:00 2001 From: Michael Camilleri Date: Fri, 21 Jan 2022 12:58:22 +0900 Subject: [PATCH] Consolidate related tests --- test/suite0009.janet | 13 +++++++++++-- test/suite0011.janet | 14 +++----------- 2 files changed, 14 insertions(+), 13 deletions(-) diff --git a/test/suite0009.janet b/test/suite0009.janet index 0422fb39..8a1ecc0d 100644 --- a/test/suite0009.janet +++ b/test/suite0009.janet @@ -123,12 +123,12 @@ (defer (:close outstream) (:write outstream "123\n") (:write outstream "456\n")) - + (def outstream (os/open "unique.txt" :r)) (defer (:close outstream) (assert (= "123\n456\n" (string (:read outstream :all))) "File reading 1.2")) (os/rm "unique.txt"))) - + # ev/gather (assert (deep= @[1 2 3] (ev/gather 1 2 3)) "ev/gather 1") @@ -266,4 +266,13 @@ (ev/rselect c2) (assert (= (slice arr) (slice (range 100))) "ev/chan-close 3") +# threaded channels + +(def ch (ev/thread-chan 2)) +(def att (ev/thread-chan 109)) +(assert att "`att` was nil after creation") +(ev/give ch att) +(ev/do-thread + (assert (ev/take ch) "channel packing bug for threaded abstracts on threaded channels.")) + (end-suite) diff --git a/test/suite0011.janet b/test/suite0011.janet index 7df39c2d..6e6d1a23 100644 --- a/test/suite0011.janet +++ b/test/suite0011.janet @@ -21,18 +21,10 @@ (import ./helper :prefix "" :exit true) (start-suite 11) -(assert (< 11899423.08 (math/gamma 11.5) 11899423.085) - "math/gamma") +# math gamma -(assert (< 2605.1158 (math/log-gamma 500) 2605.1159) - "math/log-gamma") - -(def ch (ev/thread-chan 2)) -(def att (ev/thread-chan 109)) -(assert att "`att` was nil after creation") -(ev/give ch att) -(ev/do-thread - (assert (ev/take ch) "channel packing bug for threaded abstracts on threaded channels.")) +(assert (< 11899423.08 (math/gamma 11.5) 11899423.085) "math/gamma") +(assert (< 2605.1158 (math/log-gamma 500) 2605.1159) "math/log-gamma") (end-suite)