- Re-named "lux process concurrency-level" to "lux process parallelism-level".

- Merged the functionality of "lux process future" into "lux process schedule".

2 files changed, 2 insertions, 6 deletions

diff --git a/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux b/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux
index a482c4265..4cee3dce3 100644
--- a/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux
+++ b/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux
@@ -299,11 +299,7 @@
          timeC (|> r.nat (:: @ map code.nat))]
         ($_ seq
             (test "Can query the level of concurrency."
-                  (check-success+ "lux process concurrency-level" (list) Nat))
-            (test "Can run an IO computation concurrently."
-                  (check-success+ "lux process future"
-                                  (list (` ("lux function" (~' _) (~' _) (~ primC))))
-                                  Top))
+                  (check-success+ "lux process parallelism-level" (list) Nat))
             (test "Can schedule an IO computation to run concurrently at some future time."
                   (check-success+ "lux process schedule"
                                   (list timeC
diff --git a/new-luxc/test/test/luxc/lang/translation/common.lux b/new-luxc/test/test/luxc/lang/translation/common.lux
index 25d3c4dc9..cfc96fbcf 100644
--- a/new-luxc/test/test/luxc/lang/translation/common.lux
+++ b/new-luxc/test/test/luxc/lang/translation/common.lux
@@ -529,7 +529,7 @@
   (-> Runner Test)
   ($_ seq
       (test "Can query the concurrency level of the machine."
-            (|> (run (` ("lux process concurrency-level")))
+            (|> (run (` ("lux process parallelism-level")))
                 (case> (#e.Success valueV)
                        (n/>= +1 (:! Nat valueV))