Test get-environment-variables.

Based on test added in the release-11 branch, without the detour
through an expected error to test for a bug on that branch.

diff --git a/tests/runtime/test-os-env.scm b/tests/runtime/test-os-env.scm
index aa29b519beb014128d629065898ebdcfef9a56c8..70d7e611459fd3fe7629a4aae6cf559c21a9dc42 100644 (file)
--- a/tests/runtime/test-os-env.scm
+++ b/tests/runtime/test-os-env.scm
@@ -42,4 +42,25 @@ 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 ()
+    (get-environment-variables)))
+
+(define-test 'set-list-assoc
+  (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