Something went wrong. Try again.
💣 Machine learning which might blow up in your face 💣
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748import Control.Monad
import qualified Test.Grenade.Network
import qualified Test.Grenade.Layers.Poolingimport qualified Test.Grenade.Layers.Convolutionimport qualified Test.Grenade.Layers.FullyConnectedimport qualified Test.Grenade.Layers.Nonlinearimport qualified Test.Grenade.Layers.PadCrop
import qualified Test.Grenade.Layers.Internal.Convolutionimport qualified Test.Grenade.Layers.Internal.Pooling
import qualified Test.Grenade.Recurrent.Layers.LSTM
import System.Exitimport System.IO
main :: IO ()main = disorderMain [ Test.Grenade.Network.tests
, Test.Grenade.Layers.Pooling.tests , Test.Grenade.Layers.Convolution.tests , Test.Grenade.Layers.FullyConnected.tests , Test.Grenade.Layers.Nonlinear.tests , Test.Grenade.Layers.PadCrop.tests
, Test.Grenade.Layers.Internal.Convolution.tests , Test.Grenade.Layers.Internal.Pooling.tests
, Test.Grenade.Recurrent.Layers.LSTM.tests
]
disorderMain :: [IO Bool] -> IO ()disorderMain tests = do lineBuffer rs <- sequence tests unless (and rs) exitFailure
lineBuffer :: IO ()lineBuffer = do hSetBuffering stdout LineBuffering hSetBuffering stderr LineBuffering