From 011bda94ea9ab0bdb43751d8d19963beb5a887a0 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Wed, 19 Feb 2025 22:53:02 +0100 Subject: Initial --- test/Main.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 test/Main.hs (limited to 'test/Main.hs') diff --git a/test/Main.hs b/test/Main.hs new file mode 100644 index 0000000..aade6a5 --- /dev/null +++ b/test/Main.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE TypeApplications #-} +module Main where + +import Test.Tasty +import Test.Tasty.HUnit + +import Numeric.ADDual + + +main :: IO () +main = defaultMain $ testGroup "Tests" + [testCase "product [1..5]" $ + gradient' @Double product [1..5] 1 @?= (120, [120, 60, 40, 30, 24])] -- cgit v1.2.3-70-g09d2