Test get-environment-variables.

diff --git a/tests/runtime/test-os-env.scm b/tests/runtime/test-os-env.scm
index aa29b519beb014128d629065898ebdcfef9a56c8..d569af2213729d66f36ef21533b8f07e6bf372d0 100644 (file)
--- a/tests/runtime/test-os-env.scm
+++ b/tests/runtime/test-os-env.scm
@@ -42,4 +42,29 @@ USA.
        (lambda ()
         (if old
             (set-environment-variable! var old)
-            (delete-environment-variable! var)))))))
\ No newline at end of file
+            (delete-environment-variable! var)))))))
+
+(define-test 'list-smoke
+  (lambda ()
+    (expect-error
+     (lambda ()
+       (get-environment-variables)))))
+
+(define-test 'set-list-assoc
+  (lambda ()
+    (expect-error
+     (lambda ()
+       (let* ((var "FOOBAR")
+             (val "MUMBLEFROTZ")
+             (old (get-environment-variable var)))
+        (dynamic-wind
+          (lambda () 0)
+          (lambda ()
+            (set-environment-variable! var val)
+            (assert-equal (assoc var (get-environment-variables))
+                          (cons var val))
+            0)
+          (lambda ()
+            (if old
+                (set-environment-variable! var old)
+                (delete-environment-variable! var)))))))))
\ No newline at end of file