mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-04-18 12:51:27 +00:00
Code Issues 1 Releases Wiki Activity

Make sure to run test with old flags as well.

Browse Source
This commit is contained in:
Calvin Rose
2026-01-17 20:25:06 -06:00
parent 6549903c51
commit 06f099d7f9
1 changed files with 16 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
test/suite-os.janet
View File

@@ -166,7 +166,22 @@
(def path (if (or (= os :mingw) (= os :windows))
"NUL"
"/dev/null"))
(os/open path :wW))
(os/open path :w))
(with [dn (devnull)]
(os/execute [;run janet
"-e"
"(print :foo) (eprint :bar)"]
:px
{:out dn :err dn})))
# os/execute IO redirection with more windows flags
(assert-no-error "IO redirection more windows flags"
(defn devnull []
(def os (os/which))
(def path (if (or (= os :mingw) (= os :windows))
"NUL"
"/dev/null"))
(os/open path :wWI))
(with [dn (devnull)]
(os/execute [;run janet
"-e"