From d81fa78b72070b05ee9575ee26c54f949f551182 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 19 Dec 2016 01:05:23 -0400
Subject: - Improved the way tests are run. - Refactored lux/regex tests a bit.

---
 stdlib/source/lux/test.lux | 40 +++++++++++++++++++++-------------------
 1 file changed, 21 insertions(+), 19 deletions(-)

(limited to 'stdlib/source')

diff --git a/stdlib/source/lux/test.lux b/stdlib/source/lux/test.lux
index bb5fe1aad..f08e91336 100644
--- a/stdlib/source/lux/test.lux
+++ b/stdlib/source/lux/test.lux
@@ -48,22 +48,22 @@
 (def: #hidden (run' tests)
   (-> (List [Text (IO Test) Text]) (Promise Unit))
   (do Monad<Promise>
-    [printings (mapM @
-                     (: (-> [Text (IO Test) Text] (Promise Unit))
-                        (lambda [[module test description]]
-                          (do @
-                            [#let [pre (io;run (System.currentTimeMillis []))]
-                             outcome (io;run test)
-                             #let [post (io;run (System.currentTimeMillis []))]]
-                            (case outcome
-                              (#;Left error)
-                              (wrap (log! (format "Error: " (:: text;Codec<Text,Text> encode description) " @ " module "\n" error "\n")))
-                              
-                              _
-                              (exec (log! (format "Success: " (:: text;Codec<Text,Text> encode description) " @ " module
-                                                  " in " (%i (i.- pre post)) "ms"))
-                                (wrap []))))))
-                     tests)]
+    [#let [printings (List/map (: (-> [Text (IO Test) Text] (Promise Unit))
+                                  (lambda [[module test description]]
+                                    (do @
+                                      [#let [pre (io;run (System.currentTimeMillis []))]
+                                       outcome (io;run test)
+                                       #let [post (io;run (System.currentTimeMillis []))]
+                                       #let [description+ (:: text;Codec<Text,Text> encode description)]]
+                                      (case outcome
+                                        (#;Left error)
+                                        (wrap (log! (format "Error: " description+ " @ " module "\n" error "\n")))
+                                        
+                                        _
+                                        (exec (log! (format "Success: " description+ " @ " module " in " (%i (i.- pre post)) "ms"))
+                                          (wrap []))))))
+                               tests)]
+     _ (seqM @ printings)]
     (wrap [])))
 
 (def: pcg-32-magic-inc Nat +12345)
@@ -197,12 +197,14 @@
       [current-module compiler;current-module-name
        modules (compiler;imported-modules current-module)
        tests (: (Lux (List [Text Text Text]))
-                (:: @ map List/join (mapM @ exported-tests (#;Cons current-module modules))))
+                (|> (#;Cons current-module modules)
+                    list;reverse
+                    (mapM @ exported-tests)
+                    (:: @ map List/join)))
        #let [tests+ (List/map (lambda [[module-name test desc]]
                                 (` [(~ (ast;text module-name)) (~ (ast;symbol [module-name test])) (~ (ast;text desc))]))
                               tests)
-             groups (list;split-all (|> (list;size tests+) (n./ promise;concurrency-level) (n.+ +1) (n.min +16))
-                                    tests+)]]
+             groups (list;split-all promise;concurrency-level tests+)]]
       (wrap (list (` (: (IO Unit)
                         (io (exec (do Monad<Promise>
                                     [(~@ (List/join (List/map (lambda [group]
-- 
cgit v1.2.3