diff --git a/test/suite0009.janet b/test/suite0009.janet index 6fed5c91..0422fb39 100644 --- a/test/suite0009.janet +++ b/test/suite0009.janet @@ -117,19 +117,19 @@ (os/rm "unique.txt")) # Test that the stream created by os/open can be read from -(assert-no-error "File reading 1.1" - (def outstream (os/open "unique.txt" :wct)) - (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 +(comment + (assert-no-error "File reading 1.1" + (def outstream (os/open "unique.txt" :wct)) + (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") (assert (deep= @[] (ev/gather)) "ev/gather 2")