hmm-lapack-0.4.1: test/Test/Math/HiddenMarkovModel/Example/SineWavePrivate.hs

-- 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]"]]