comfort-glpk-0.0.1: test/Test/Numeric/GLPK/Monad.hs

-- Do not edit! Automatically created with doctest-extract from src/Numeric/GLPK/Monad.hs
{-# LINE 37 "src/Numeric/GLPK/Monad.hs" #-}

module Test.Numeric.GLPK.Monad where

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

{-# LINE 38 "src/Numeric/GLPK/Monad.hs" #-}
import     qualified Numeric.GLPK.Monad as LP
import     Test.Numeric.GLPK (TripletShape, tripletShape)
import     Numeric.GLPK ((.*), (<=.))

import     qualified Data.Array.Comfort.Storable as Array
import     qualified Data.Array.Comfort.Shape as Shape

import     Data.Tuple.HT (mapSnd)

test :: DocTest.T ()
test = do
 DocTest.printPrefix "Numeric.GLPK.Monad:67: "
{-# LINE 67 "src/Numeric/GLPK/Monad.hs" #-}
 DocTest.example
{-# LINE 67 "src/Numeric/GLPK/Monad.hs" #-}
   (case Shape.indexTupleFromShape tripletShape of (x,y,z) -> mapSnd (mapSnd Array.toTuple) <$> LP.run tripletShape [] (LP.simplex [[2.*x, 1.*y] <=. 10, [1.*y, (5::Double).*z] <=. 20] (LP.Maximize, Array.fromTuple (4,-3,2) :: Array.Array TripletShape Double)))
  [ExpectedLine [LineChunk "Right (Optimal,(28.0,(5.0,0.0,4.0)))"]]