diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-10-23 23:43:54 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-10-23 23:43:54 +0200 |
| commit | 1adad63b14aa8d13295fb0d68fbdc8ab988775b2 (patch) | |
| tree | 3310a49b33e6996a8470d6ec053ecced0bc0dae3 /test/Main.hs | |
| parent | c50aecbb209bb99da074b6c6911b672d0f1d1388 (diff) | |
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.
Diffstat (limited to 'test/Main.hs')
| -rw-r--r-- | test/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 () |