lapack-0.3.2: test/DocTest/Numeric/LAPACK/Example/EconomicAllocation.hs

-- Do not edit! Automatically created with doctest-extract from src/Numeric/LAPACK/Example/EconomicAllocation.hs
{-# LINE 20 "src/Numeric/LAPACK/Example/EconomicAllocation.hs" #-}

module DocTest.Numeric.LAPACK.Example.EconomicAllocation where

import qualified Test.DocTest.Driver as DocTest

{-# LINE 21 "src/Numeric/LAPACK/Example/EconomicAllocation.hs" #-}
import     Numeric.LAPACK.Example.EconomicAllocation
import     Test.Utility (approxVector)

import     qualified Numeric.LAPACK.Vector as Vector
import     Numeric.LAPACK.Vector ((+++))

import     qualified Data.Array.Comfort.Storable as Array

test :: DocTest.T ()
test = do
 DocTest.printPrefix "Numeric.LAPACK.Example.EconomicAllocation:90: "
{-# LINE 90 "src/Numeric/LAPACK/Example/EconomicAllocation.hs" #-}
 DocTest.property
{-# LINE 90 "src/Numeric/LAPACK/Example/EconomicAllocation.hs" #-}
     (let result = iterated expenses0 balances0 in approxVector result $ compensated expenses0 balances0 +++ Vector.zero (Array.shape $ Vector.takeRight result))