Add os/environ.

2026-10-17 13:02:26 +00:00 · 2019-11-28 19:00:52 +13:00
parent 74d51ab08b
commit 07db4c530e
2 changed files with 35 additions and 0 deletions
@@ -229,4 +229,10 @@
  (prin (dyn :out))
  (assert (deep= (dyn :out) @"abcdabcdabcdabcd") "print buffer to self"))

+(os/setenv "TESTENV1" "v1")
+(os/setenv "TESTENV2" "v2")
+(assert (= (os/getenv "TESTENV1") "v1") "getenv works")
+(def environ (os/environ))
+(assert (= [(environ "TESTENV1") (environ "TESTENV2")] ["v1" "v2"]) "environ works")
+
 (end-suite)