sum-pyramid-0.0: test/Test/LinearAlgebra.hs

-- Do not edit! Automatically created with doctest-extract from src/LinearAlgebra.hs
{-# LINE 25 "src/LinearAlgebra.hs" #-}

module Test.LinearAlgebra where

import LinearAlgebra
import Test.DocTest.Base
import qualified Test.DocTest.Driver as DocTest

{-# LINE 26 "src/LinearAlgebra.hs" #-}
import     qualified Data.Array.Comfort.Storable as Array
import     Data.Tuple.HT (mapSnd)

myRound     :: Double -> Integer
myRound     = round

test :: DocTest.T ()
test = do
 DocTest.printPrefix "LinearAlgebra:81: "
{-# LINE 81 "src/LinearAlgebra.hs" #-}
 DocTest.example(
{-# LINE 81 "src/LinearAlgebra.hs" #-}
    mapSnd (map myRound . Array.toList) $ solve 3 [((0,0),8), ((2,0),1), ((2,2),3)]
  )
  [ExpectedLine [LineChunk "(3,[8,3,5,1,2,3])"]]