diff options
| author | Eduardo Julian | 2018-07-31 20:22:15 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-07-31 20:22:15 -0400 |
| commit | 7e44ee8a2cfb14e35f6283a9eb8d6a2ddc8bd99a (patch) | |
| tree | 98a12aa5a9fd347c1070612a2a1dae69dae879b1 /new-luxc/test | |
| parent | eea58ee669f69fddf2cef9e1675c41959e2e0a55 (diff) | |
Now implementing process functionality in stdlib instead of the compiler.
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/test/test/luxc/lang/translation/common.lux | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/new-luxc/test/test/luxc/lang/translation/common.lux b/new-luxc/test/test/luxc/lang/translation/common.lux index 5425be2ea..7fe49fae2 100644 --- a/new-luxc/test/test/luxc/lang/translation/common.lux +++ b/new-luxc/test/test/luxc/lang/translation/common.lux @@ -414,36 +414,6 @@ #0)))) ))) -(def: (process-spec run) - (-> Runner Test) - ($_ seq - (test "Can query the concurrency level of the machine." - (|> (run (#synthesis.Extension "lux process parallelism-level" (list))) - (case> (#e.Success valueV) - (n/>= 1 (:coerce Nat valueV)) - - (#e.Error error) - (exec (log! error) - #0)))) - (do r.Monad<Random> - [delay (|> r.nat (:: @ map (n/% 10))) - message (r.ascii/upper-alpha 5)] - (test "Can schedule I/O operations for future execution." - (|> (run (#synthesis.Extension "lux process schedule" - (list (synthesis.i64 delay) - (synthesis.function/abstraction - {#synthesis.environment (list) - #synthesis.arity 1 - #synthesis.body (#synthesis.Extension "lux io log" - (list (synthesis.text (format "SCHEDULE: " message))))})))) - (case> (#e.Success valueV) - #1 - - (#e.Error error) - (exec (log! error) - #0))))) - )) - (def: (all-specs run) (-> Runner Test) ($_ seq @@ -454,7 +424,6 @@ (array-spec run) (io-spec run) (box-spec run) - (process-spec run) )) (context: "[JVM] Common procedures." |