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

-- Do not edit! Automatically created with doctest-extract from private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs
{-# LINE 22 "private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs" #-}

module Test.Math.HiddenMarkovModel.Example.TrafficLightPrivate where

import Math.HiddenMarkovModel.Example.TrafficLightPrivate
import Test.DocTest.Base
import qualified Test.DocTest.Driver as DocTest

{-# LINE 23 "private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs" #-}
import     qualified Data.NonEmpty as NonEmpty
import     Control.DeepSeq (deepseq)

verifyRevelations     :: HMM -> [Bool]
verifyRevelations     hmm_ =
       map (verifyRevelation hmm_) (NonEmpty.flatten labeledSequences)

test :: DocTest.T ()
test = do
 DocTest.printPrefix "Math.HiddenMarkovModel.Example.TrafficLightPrivate:61: "
{-# LINE 61 "private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs" #-}
 DocTest.example
{-# LINE 61 "private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs" #-}
   (verifyRevelations hmm)
  [ExpectedLine [LineChunk "[True,True]"]]
 DocTest.printPrefix "Math.HiddenMarkovModel.Example.TrafficLightPrivate:85: "
{-# LINE 85 "private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs" #-}
 DocTest.example
{-# LINE 85 "private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs" #-}
   (verifyRevelations hmmDisturbed)
  [ExpectedLine [LineChunk "[True,True]"]]
 DocTest.printPrefix "Math.HiddenMarkovModel.Example.TrafficLightPrivate:138: "
{-# LINE 138 "private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs" #-}
 DocTest.example
{-# LINE 138 "private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs" #-}
   (verifyRevelations hmmTrainedSupervised)
  [ExpectedLine [LineChunk "[True,True]"]]
 DocTest.printPrefix "Math.HiddenMarkovModel.Example.TrafficLightPrivate:153: "
{-# LINE 153 "private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs" #-}
 DocTest.example
{-# LINE 153 "private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs" #-}
   (verifyRevelations hmmTrainedUnsupervised)
  [ExpectedLine [LineChunk "[True,True]"]]
 DocTest.printPrefix "Math.HiddenMarkovModel.Example.TrafficLightPrivate:163: "
{-# LINE 163 "private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs" #-}
 DocTest.property
{-# LINE 163 "private/Math/HiddenMarkovModel/Example/TrafficLightPrivate.hs" #-}
     (deepseq hmmIterativelyTrained True)