-- Do not edit! Automatically created with doctest-extract from src/Data/Array/Comfort/Boxed.hs
{-# LINE 81 "src/Data/Array/Comfort/Boxed.hs" #-}

module DocTest.Data.Array.Comfort.Boxed where

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

{-# LINE 82 "src/Data/Array/Comfort/Boxed.hs" #-}
import     qualified Data.Array.Comfort.Construct as Construct
import     qualified Data.Array.Comfort.Storable.Dim2 as Dim2
import     qualified Data.Array.Comfort.Storable as StArray
import     qualified Data.Array.Comfort.Boxed as Array
import     qualified Data.Array.Comfort.Shape as Shape
import     Data.Array.Comfort.Boxed (Array, (!))
import     Control.Applicative (liftA2, liftA3)

type     X = Shape.Element

test :: DocTest.T ()
test = do
 DocTest.printPrefix "Data.Array.Comfort.Boxed:148: "
{-# LINE 148 "src/Data/Array/Comfort/Boxed.hs" #-}
 DocTest.example(
{-# LINE 148 "src/Data/Array/Comfort/Boxed.hs" #-}
      
   let arr ::
         StArray.Array
            (Shape.Record [], Shape.NestedTuple Shape.TupleIndex (X,X,X))
            Int
       arr =
         Dim2.fromRowArray Shape.static $ Array.fromRecord $
         map StArray.fromTuple [(3,1,4), (1,5,9), (2,6,5), (3,5,8)]
   in arr
  )
  [ExpectedLine [LineChunk "StorableArray.fromList (Record [Element 0,Element 1,Element 2,Element 3],",WildCardChunk,LineChunk "{",WildCardChunk,LineChunk "(Element 0,Element 1,Element 2)}) [3,1,4,1,5,9,2,6,5,3,5,8]"]]
 DocTest.printPrefix "Data.Array.Comfort.Boxed:186: "
{-# LINE 186 "src/Data/Array/Comfort/Boxed.hs" #-}
 DocTest.example(
{-# LINE 186 "src/Data/Array/Comfort/Boxed.hs" #-}
      
   let arr :: Array (Shape.Constructed ()) Int
       ((lt,eq,gt), arr) =
         Array.fromConstruction $
         liftA3 (,,)
            (Construct.element 3)
            (Construct.element 1)
            (Construct.element 4)
       squared = Array.map (^(2::Int)) arr
   in (squared!lt, squared!eq, squared!gt)
  )
  [ExpectedLine [LineChunk "(9,1,16)"]]
 DocTest.printPrefix "Data.Array.Comfort.Boxed:207: "
{-# LINE 207 "src/Data/Array/Comfort/Boxed.hs" #-}
 DocTest.example(
{-# LINE 207 "src/Data/Array/Comfort/Boxed.hs" #-}
      
   let arr :: Array (Shape.Constructed ()) Int
       ((ix0,ix), arr) =
         Array.fromConstruction $
         liftA2 (,)
            (Construct.element 3)
            (Array.toConstruction $
             Array.fromList Shape.Enumeration [1,4,1])
       squared = Array.map (^(2::Int)) arr
   in (squared!ix0, squared ! ix LT, squared ! ix EQ, squared ! ix GT)
  )
  [ExpectedLine [LineChunk "(9,1,16,1)"]]