runFailedTest :: String   -- ^ name of the test
              -> Lotus    -- ^ the lotus puzzle
              -> String   -- ^ success or failed text
runFailedTest name lts
    | null solvedLotus = printSuccess
    | not (all (checkAll solvedLotus) [0..48]) = printSuccess
    | otherwise = "### " ++ show name ++ " failed! ###"
    where solvedLotus = lotusSolver lts
          printSuccess = show name ++ " passed!"


{--------------------------
---------- MAIN -----------
--------------------------}
runFailedTest :: String   -- ^ name of the test
              -> Lotus    -- ^ the lotus puzzle
              -> String
runFailedTest name lts
    | null solvedLotus = printSuccess
    | not (all (checkAll solvedLotus) [0..48]) = printSuccess
    | otherwise = "### " ++ show name ++ " failed! ###"
    where solvedLotus = lotusSolver lts
          printSuccess = show name ++ " passed!"


{--------------------------
---------- MAIN -----------
--------------------------}
runFailedTest name lts
    | null solvedLotus = printSuccess
    | not (all (checkAll solvedLotus) [0..48]) = printSuccess
    | otherwise = "### " ++ show name ++ " failed! ###"
    where solvedLotus = lotusSolver lts
          printSuccess = show name ++ " passed!"


{--------------------------
---------- MAIN -----------
--------------------------}