LinearAlgebra.hs

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

module Test.LinearAlgebra where

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

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

myRound     :: Double -> Integer
myRound     = round

test :: DocTest.T ()
test = do
 DocTest.printPrefix "LinearAlgebra:84: "
{-# LINE 84 "src/LinearAlgebra.hs" #-}
 DocTest.example(
{-# LINE 84 "src/LinearAlgebra.hs" #-}
    mapSnd (map myRound . Array.toList) $ solve 3 $ Map.fromList [((0,0),8), ((2,0),1), ((2,2),3)]
  )
  [ExpectedLine [LineChunk "(3,[8,3,5,1,2,3])"]]
 DocTest.printPrefix "LinearAlgebra:107: "
{-# LINE 107 "src/LinearAlgebra.hs" #-}
 DocTest.example(
{-# LINE 107 "src/LinearAlgebra.hs" #-}
    map (length . solvables) [0..5]
  )
  [ExpectedLine [LineChunk "[1,1,3,17,149,1824]"]]