diff options
Diffstat (limited to 'test/Main.hs')
| -rw-r--r-- | test/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Main.hs b/test/Main.hs index 86b6011..04a8923 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -19,7 +19,7 @@ main = defaultMain $ testGroup "Tests" let problem = FNeural [(V.replicate 6 0.0, V.replicate 6 0.0), (V.replicate 24 0.0, V.replicate 4 0.0)] (V.replicate 1 0.0) - in fst (gradient' @Double fneural problem 1) @?= 0.0 + in fst (gradient' @Double fneural problem 1) @?= fneural problem ,testProperty "neural run" $ property $ do input <- forAll genNeuralInput let (res, _grad) = gradient' fneural input 1 |