From 1adad63b14aa8d13295fb0d68fbdc8ab988775b2 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Thu, 23 Oct 2025 23:43:54 +0200
Subject: Add uniform-tree test and benchmark

We need an optimisation that detects replicate-like behaviour and turns
it into actual replicates, which should then be fused away. The problem
is exhibited by this function exUniformFree.
---
 test/Main.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'test')

diff --git a/test/Main.hs b/test/Main.hs
index 0c7ec76..9c992ec 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -667,6 +667,8 @@ tests_AD = testGroup "AD"
   ,adTestGen "gmm-wrong" (Example.gmmObjective True) gen_gmm
 
   ,adTestGen "gmm" (Example.gmmObjective False) gen_gmm
+
+  ,adTestTp "uniform-free" (C "" 0 :& ()) Example.exUniformFree
   ]
 
 main :: IO ()
-- 
cgit v1.2.3-70-g09d2