core: subseq-index? -> subseq-of?

[factor.git] / core / system / system-tests.factor

diff --git a/core/system/system-tests.factor b/core/system/system-tests.factor
old mode 100755 (executable)
new mode 100644 (file)
index c731a14..7e7b107
--- a/core/system/system-tests.factor
+++ b/core/system/system-tests.factor
@@ -1,27 +1,7 @@
-USING: math tools.test system prettyprint namespaces kernel
-strings sequences ;
-IN: system.tests
+USING: arrays kernel sequences system tools.test ;
 
-os wince? [
-    [ ] [ os-envs . ] unit-test
-] unless
-
-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
-
-[ ] [
-    32766 CHAR: a <string> "factor-test-key-long" set-os-env
+{ { t t t } } [
+    version-info
+    vm-version vm-compiler vm-compile-time 3array
+    [ subseq-of? ] with map
 ] unit-test
-[ 32766 ] [ "factor-test-key-long" os-env length ] unit-test
-[ ] [ "factor-test-key-long" unset-os-env ] unit-test