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

module Test.Math.HiddenMarkovModel.Normalized where

import Math.HiddenMarkovModel.Normalized
import qualified Test.DocTest.Driver as DocTest

{-# LINE 35 "private/Math/HiddenMarkovModel/Normalized.hs" #-}
import     qualified Data.NonEmpty as NonEmpty

test :: DocTest.T ()
test = do
 DocTest.printPrefix "Math.HiddenMarkovModel.Normalized:133: "
{-# LINE 133 "private/Math/HiddenMarkovModel/Normalized.hs" #-}
 DocTest.property
{-# LINE 133 "private/Math/HiddenMarkovModel/Normalized.hs" #-}
     (\x xs -> nonEmptyScanr (-) x xs == NonEmpty.scanr (-) x (xs::[Int]))