From 2b909032e7a0bd10cd7db52067d2fb701bfa95e5 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 6 Jul 2021 21:34:21 -0400
Subject: Simplified the API for file-system operations.

---
 stdlib/source/test/lux.lux | 27 ++++++++++-----------------
 1 file changed, 10 insertions(+), 17 deletions(-)

(limited to 'stdlib/source/test/lux.lux')

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index bc7231470..beebb2844 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -11,7 +11,7 @@
       [monad (#+ do)]
       [predicate (#+ Predicate)]]
      [control
-      ["." io (#+ io)]
+      ["." io]
       [concurrency
        ["." atom (#+ Atom)]]]
      [data
@@ -260,21 +260,14 @@
           )))
 
 (program: args
-  (let [shift (for {@.jvm 1
-                    @.old 1
-                    @.js 2
-                    @.python 6}
-                   0)
-        time_out (|> 1
-                     (i64.left_shift shift)
-                     (n.* 1,000))
-        times (: (-> Test Test)
-                 (for {@.js (_.times 10)
-                       @.python (_.times 1)
-                       @.lua (_.times 1)
-                       @.ruby (_.times 1)}
-                      (_.times' (#.Some time_out) 100)))]
-    (<| io
+  (let [times (for {@.old 100
+                    @.jvm 100
+                    @.js 10
+                    @.python 1
+                    @.lua 1
+                    @.ruby 1}
+                   100)]
+    (<| io.io
         _.run!
-        times
+        (_.times times)
         ..test)))
-- 
cgit v1.2.3