diff options
| author | Tom Smeding <t.j.smeding@uu.nl> | 2025-02-21 13:04:45 +0100 |
|---|---|---|
| committer | Tom Smeding <t.j.smeding@uu.nl> | 2025-02-21 13:04:45 +0100 |
| commit | b91d36fa38be07397b505433f24a6d29a79c2642 (patch) | |
| tree | d8cd0bfe2c09931c272539a93657b946eb6c5f23 | |
| parent | 14be880ce787a35f70a749c1176c4607bfb535ed (diff) | |
Neural returns 1 on all-zero input, not 0.
| -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 |