Remove Windows CE from core/ basis/ and build-support/

[factor.git] / basis / environment / environment-tests.factor

diff --git a/basis/environment/environment-tests.factor b/basis/environment/environment-tests.factor
index 37173031755f4f52afbf0081129abfac06d26974..f7c609bd283cad7c137b5c48ceda44fe13e32490 100644 (file)
--- a/basis/environment/environment-tests.factor
+++ b/basis/environment/environment-tests.factor
@@ -4,26 +4,24 @@ USING: kernel namespaces prettyprint system tools.test
 environment strings sequences ;
 IN: environment.tests
 
-os wince? [
-    [ ] [ os-envs . ] unit-test
+[ ] [ os-envs . ] unit-test
 
-    os unix? [
-        [ ] [ os-envs "envs" set ] unit-test
-        [ ] [ { { "A" "B" } } set-os-envs ] unit-test
-        [ "B" ] [ "A" os-env ] unit-test
-        [ ] [ "envs" get set-os-envs ] unit-test
-        [ t ] [ os-envs "envs" get = ] unit-test
-    ] when
+os unix? [
+    [ ] [ os-envs "envs" set ] unit-test
+    [ ] [ { { "A" "B" } } set-os-envs ] unit-test
+    [ "B" ] [ "A" os-env ] unit-test
+    [ ] [ "envs" get set-os-envs ] unit-test
+    [ t ] [ os-envs "envs" get = ] unit-test
+] when
 
-    [ ] [ "factor-test-key-1" unset-os-env ] unit-test
-    [ ] [ "ps3" "factor-test-key-1" set-os-env ] unit-test
-    [ "ps3" ] [ "factor-test-key-1" os-env ] unit-test
-    [ ] [ "factor-test-key-1" unset-os-env ] unit-test
-    [ f ] [ "factor-test-key-1" os-env ] unit-test
+[ ] [ "factor-test-key-1" unset-os-env ] unit-test
+[ ] [ "ps3" "factor-test-key-1" set-os-env ] unit-test
+[ "ps3" ] [ "factor-test-key-1" os-env ] unit-test
+[ ] [ "factor-test-key-1" unset-os-env ] unit-test
+[ f ] [ "factor-test-key-1" os-env ] unit-test
 
-    [ ] [
-        32766 CHAR: a <string> "factor-test-key-long" set-os-env
-    ] unit-test
-    [ 32766 ] [ "factor-test-key-long" os-env length ] unit-test
-    [ ] [ "factor-test-key-long" unset-os-env ] unit-test
-] unless
+[ ] [
+    32766 CHAR: a <string> "factor-test-key-long" set-os-env
+] unit-test
+[ 32766 ] [ "factor-test-key-long" os-env length ] unit-test
+[ ] [ "factor-test-key-long" unset-os-env ] unit-test