board-games-0.4: test/Test/Game/Labyrinth.hs

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

module Test.Game.Labyrinth where

import qualified Test.DocTest.Driver as DocTest

{-# LINE 51 "src/Game/Labyrinth.hs" #-}
import     qualified Game.Labyrinth as Labyrinth

test :: DocTest.T ()
test = do
 DocTest.printPrefix "Game.Labyrinth:137: "
{-# LINE 137 "src/Game/Labyrinth.hs" #-}
 DocTest.property
{-# LINE 137 "src/Game/Labyrinth.hs" #-}
     (\k b -> b == Labyrinth.shiftRowLeft k (Labyrinth.shiftRowRight k b))
 DocTest.printPrefix "Game.Labyrinth:138: "
{-# LINE 138 "src/Game/Labyrinth.hs" #-}
 DocTest.property
{-# LINE 138 "src/Game/Labyrinth.hs" #-}
     (\k b -> b == Labyrinth.shiftRowRight k (Labyrinth.shiftRowLeft k b))
 DocTest.printPrefix "Game.Labyrinth:153: "
{-# LINE 153 "src/Game/Labyrinth.hs" #-}
 DocTest.property
{-# LINE 153 "src/Game/Labyrinth.hs" #-}
     (\k b -> b == Labyrinth.shiftColumnUp k (Labyrinth.shiftColumnDown k b))
 DocTest.printPrefix "Game.Labyrinth:154: "
{-# LINE 154 "src/Game/Labyrinth.hs" #-}
 DocTest.property
{-# LINE 154 "src/Game/Labyrinth.hs" #-}
     (\k b -> b == Labyrinth.shiftColumnDown k (Labyrinth.shiftColumnUp k b))
 DocTest.printPrefix "Game.Labyrinth:202: "
{-# LINE 202 "src/Game/Labyrinth.hs" #-}
 DocTest.property
{-# LINE 202 "src/Game/Labyrinth.hs" #-}
     (\k b -> b == Labyrinth.cycleRowLeft k (Labyrinth.cycleRowRight k b))
 DocTest.printPrefix "Game.Labyrinth:203: "
{-# LINE 203 "src/Game/Labyrinth.hs" #-}
 DocTest.property
{-# LINE 203 "src/Game/Labyrinth.hs" #-}
     (\k b -> b == Labyrinth.cycleRowRight k (Labyrinth.cycleRowLeft k b))
 DocTest.printPrefix "Game.Labyrinth:212: "
{-# LINE 212 "src/Game/Labyrinth.hs" #-}
 DocTest.property
{-# LINE 212 "src/Game/Labyrinth.hs" #-}
     (\k b -> b == Labyrinth.cycleColumnUp k (Labyrinth.cycleColumnDown k b))
 DocTest.printPrefix "Game.Labyrinth:213: "
{-# LINE 213 "src/Game/Labyrinth.hs" #-}
 DocTest.property
{-# LINE 213 "src/Game/Labyrinth.hs" #-}
     (\k b -> b == Labyrinth.cycleColumnDown k (Labyrinth.cycleColumnUp k b))