-- Do not edit! Automatically created with doctest-extract from private/Math/HiddenMarkovModel/Example/SineWavePrivate.hs {-# LINE 21 "private/Math/HiddenMarkovModel/Example/SineWavePrivate.hs" #-} module Test.Math.HiddenMarkovModel.Example.SineWavePrivate where import Math.HiddenMarkovModel.Example.SineWavePrivate import Test.DocTest.Base import qualified Test.DocTest.Driver as DocTest {-# LINE 22 "private/Math/HiddenMarkovModel/Example/SineWavePrivate.hs" #-} import qualified Data.NonEmpty as NonEmpty test :: DocTest.T () test = do DocTest.printPrefix "Math.HiddenMarkovModel.Example.SineWavePrivate:61: " {-# LINE 61 "private/Math/HiddenMarkovModel/Example/SineWavePrivate.hs" #-} DocTest.example {-# LINE 61 "private/Math/HiddenMarkovModel/Example/SineWavePrivate.hs" #-} (take 20 $ map fst $ NonEmpty.flatten sineWaveLabeled) [ExpectedLine [LineChunk "[Rising,Rising,High,High,High,Falling,Falling,Falling,Low,Low,Low,Rising,Rising,Rising,Rising,High,High,High,Falling,Falling]"]] DocTest.printPrefix "Math.HiddenMarkovModel.Example.SineWavePrivate:74: " {-# LINE 74 "private/Math/HiddenMarkovModel/Example/SineWavePrivate.hs" #-} DocTest.example {-# LINE 74 "private/Math/HiddenMarkovModel/Example/SineWavePrivate.hs" #-} (take 20 $ NonEmpty.flatten revealed) [ExpectedLine [LineChunk "[Rising,Rising,High,High,High,Falling,Falling,Falling,Low,Low,Low,Low,Rising,Rising,Rising,High,High,High,Falling,Falling]"]]