git.iko.soy/grenade
on master help sign in
Relax difference a little
2c7249cHuw Campbell
test/Test/Grenade/Network.hs+1−1
compare with master
unifiedsplit
@@ -376,7 +376,7 @@ maxVal ( S3D x ) = norm_Inf x
376
376
377(~~~) :: (Monad m, HasCallStack) => Double -> Double -> Test m ()
377(~~~) :: (Monad m, HasCallStack) => Double -> Double -> Test m ()
378(~~~) x y =
378(~~~) x y =
379− if abs (x - y) < 1e-5 then
379+ if abs (x - y) < 2e-5 then
380 success
380 success
381 else
381 else
382 withFrozenCallStack $
382 withFrozenCallStack $