fix sandbox test to avoid influence from other tests

This commit is contained in:
Matthew Flatt 2013-04-10 10:03:23 -06:00
parent 468d2b192e
commit cfe9f447c8

View File

@ -591,10 +591,10 @@
(syntax-original? #'x) => #t
--eval--
(putenv "APPLE" "AnApple") => #t
(getenv "APPLE") => "AnApple"
(putenv "PEAR" "A Pear") => #t
(getenv "PEAR") => "A Pear"
--top--
(getenv "APPLE") => #f
(getenv "PEAR") => #f
))