-USING: math tools.test system prettyprint namespaces kernel ;
-IN: system.tests
+USING: arrays kernel sequences system tools.test ;
-[ t ] [ cell integer? ] unit-test
-[ t ] [ bootstrap-cell integer? ] unit-test
-
-wince? [
- [ ] [ os-envs . ] unit-test
-] unless
-
-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
+{ { t t t } } [
+ version-info
+ vm-version vm-compiler vm-compile-time 3array
+ [ subseq-of? ] with map
+] unit-test