From 46880aa722e3d6793bc83d26f45e9dafa8e80717 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Mon, 13 Oct 2025 10:54:36 +0200
Subject: Parallel test runner

---
 test/Main.hs | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'test/Main.hs')

diff --git a/test/Main.hs b/test/Main.hs
index 392855b..0c7ec76 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -64,18 +64,18 @@ simplifyIters iters env | Dict <- envKnown env =
     SimplIters n -> simplifyN n
     SimplFix -> simplifyFix
 
--- In addition to the gradient, also returns the pretty-printed differentiated term.
-gradientByCHAD :: forall env. SimplIters -> SList STy env -> Ex env R -> SList Value env -> (String, (Double, SList Value (D2E env)))
-gradientByCHAD simplIters env term input =
-  let dterm = simplifyIters simplIters env $ ELet ext (EConst ext STF64 1.0) $ chad' defaultConfig env term
-      (out, grad) = interpretOpen False env input dterm
-  in (ppExpr env dterm, (out, unTup vUnpair (d2e env) (Value grad)))
-
--- In addition to the gradient, also returns the pretty-printed differentiated term.
-gradientByCHAD' :: SimplIters -> SList STy env -> Ex env R -> SList Value env -> (String, (Double, SList Value (TanE env)))
-gradientByCHAD' simplIters env term input =
-  second (second (toTanE env input)) $
-    gradientByCHAD simplIters env term input
+-- -- In addition to the gradient, also returns the pretty-printed differentiated term.
+-- gradientByCHAD :: forall env. SimplIters -> SList STy env -> Ex env R -> SList Value env -> (String, (Double, SList Value (D2E env)))
+-- gradientByCHAD simplIters env term input =
+--   let dterm = simplifyIters simplIters env $ ELet ext (EConst ext STF64 1.0) $ chad' defaultConfig env term
+--       (out, grad) = interpretOpen False env input dterm
+--   in (ppExpr env dterm, (out, unTup vUnpair (d2e env) (Value grad)))
+
+-- -- In addition to the gradient, also returns the pretty-printed differentiated term.
+-- gradientByCHAD' :: SimplIters -> SList STy env -> Ex env R -> SList Value env -> (String, (Double, SList Value (TanE env)))
+-- gradientByCHAD' simplIters env term input =
+--   second (second (toTanE env input)) $
+--     gradientByCHAD simplIters env term input
 
 gradientByForward :: FwdADArtifact env R -> SList Value env -> SList Value (TanE env)
 gradientByForward art input = drevByFwd art input 1.0
@@ -303,7 +303,7 @@ adTestGen name expr envGenerator =
       exprS = simplifyFix expr
   in withCompiled env expr $ \primalfun ->
      withCompiled env (simplifyFix expr) $ \primalSfun ->
-     testGroupCollapse name
+     groupSetCollapse $ testGroup name
        [adTestGenPrimal env envGenerator expr exprS primalfun primalSfun
        ,adTestGenFwd env envGenerator exprS
        ,testGroup "chad"
-- 
cgit v1.2.3-70-g09d2