mes: Add setenv.
[mes.git] / tests / base.test
index ebc524d2c3f11496120b2d6375a85e6706369b58..c3a20d879bfa972c2ea55faec6127de93c6d6f78 100755 (executable)
@@ -116,4 +116,11 @@ exit $?
     (pass-if-not "#<eof>"
                  (char? (integer->char -1))))
 
     (pass-if-not "#<eof>"
                  (char? (integer->char -1))))
 
+(pass-if-equal "setenv, getenv"
+    "bar"
+  (begin
+    (setenv "foo" "bar")
+    (getenv "bar")
+    (getenv "foo")))
+
 (result 'report)
 (result 'report)