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 0b2d106..7e7b107
--- a/core/system/system-tests.factor
+++ b/core/system/system-tests.factor
@@ -1,6 +1,7 @@
-USING: math tools.test system ;
-IN: temporary
+USING: arrays kernel sequences system tools.test ;
 
-[ t ] [ cell integer? ] unit-test
-[ t ] [ bootstrap-cell integer? ] unit-test
-[ ] [ os-env . ] unit-test
+{ { t t t } } [
+    version-info
+    vm-version vm-compiler vm-compile-time 3array
+    [ subseq-of? ] with map
+] unit-test