Initial

1 files changed, 13 insertions, 0 deletions

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])]