---

yaml
---
r: 14335
b: refs/heads/try
c: 94fe501
h: refs/heads/master
i:
  14333: f104c09
  14331: a22f373
  14327: 3b7ae02
  14319: 9efc0d0
  14303: 60226e7
  14271: 8bd3683
  14207: f09eb4b
  14079: 959e38f
  13823: 7e58533
  13311: b93da12
  12287: 99c7fa5
v: v3

Author: cpeterso

[refs]

@@ -2,5 +2,5 @@
 refs/heads/master: 61b1875c16de39c166b0f4d54bba19f9c6777d1a
 refs/heads/snap-stage1: e33de59e47c5076a89eadeb38f4934f58a3618a6
 refs/heads/snap-stage3: 4a81779abd786ff22d71434c6d9a5917ea4cdfff
-refs/heads/try: aec76d25152035878cb0b502e2b4dc1d637cff5b
+refs/heads/try: 94fe5011e2a242a30b9f2a538bc64fbacd36f619
 refs/tags/release-0.1: 1f5c5126e96c79d22cb7862f75304136e204f105

branches/try/src/libstd/generic_os.rs

@@ -99,21 +99,31 @@ fn setenv(n: str, v: str) {
 #[cfg(test)]
 mod tests {
 
+    fn make_rand_name() -> str {
+        import rand;
+        let rng: rand::rng = rand::mk_rng();
+        let n = "TEST" + rng.gen_str(10u);
+        assert option::is_none(getenv(n));
+        n
+    }
+
     #[test]
     #[ignore(reason = "fails periodically on mac")]
     fn test_setenv() {
-        // NB: Each test of setenv needs to use different variable names or
-        // the tests will not be threadsafe
-        setenv("NAME1", "VALUE");
-        assert (getenv("NAME1") == option::some("VALUE"));
+        let n = make_rand_name();
+        setenv(n, "VALUE");
+        assert getenv(n) == option::some("VALUE");
     }
 
     #[test]
     #[ignore(reason = "fails periodically on mac")]
     fn test_setenv_overwrite() {
-        setenv("NAME2", "1");
-        setenv("NAME2", "2");
-        assert (getenv("NAME2") == option::some("2"));
+        let n = make_rand_name();
+        setenv(n, "1");
+        setenv(n, "2");
+        assert getenv(n) == option::some("2");
+        setenv(n, "");
+        assert getenv(n) == option::some("");
     }
 
     // Windows GetEnvironmentVariable requires some extra work to make sure
@@ -124,9 +134,10 @@ mod tests {
         let s = "";
         let i = 0;
         while i < 100 { s += "aaaaaaaaaa"; i += 1; }
-        setenv("test_getenv_big", s);
+        let n = make_rand_name();
+        setenv(n, s);
         log(debug, s);
-        assert (getenv("test_getenv_big") == option::some(s));
+        assert getenv(n) == option::some(s);
     }
 
     #[test]
@@ -143,6 +154,32 @@ mod tests {
             assert path[1] == ':' as u8;
         }
     }
+
+    #[test]
+    fn test_env_getenv() {
+        let e = env();
+        assert vec::len(e) > 0u;
+        for (n, v) in e {
+            log(debug, n);
+            let v2 = getenv(n);
+            // MingW seems to set some funky environment variables like
+            // "=C:=C:\MinGW\msys\1.0\bin" and "!::=::\" that are returned
+            // from env() but not visible from getenv().
+            assert option::is_none(v2) || v2 == option::some(v);
+        }
+    }
+
+    #[test]
+    fn test_env_setenv() {
+        let n = make_rand_name();
+
+        let e = env();
+        setenv(n, "VALUE");
+        assert !vec::contains(e, (n, "VALUE"));
+
+        e = env();
+        assert vec::contains(e, (n, "VALUE"));
+    }
 }
 
 // Local Variables: