{-# LANGUAGE OverloadedStrings #-}

module Text.Colour.LayoutSpec (spec) where

import qualified Data.Text as T
import Test.Syd
import Text.Colour
import Text.Colour.Layout

spec :: Spec
spec = do
  let gf = ("test_resources/" ++)
  describe "layoutAsTable" $ do
    it "outputs this list the same as before" $ do
      pureGoldenByteStringFile
        (gf "list.dat")
        ( renderChunksBS
            With24BitColours
            ( layoutAsTable
                [ ["this"],
                  ["is"],
                  ["a"],
                  ["list"]
                ]
            )
        )
    it "outputs this two-column table the same as before" $ do
      pureGoldenByteStringFile
        (gf "two-columns.dat")
        ( renderChunksBS
            With24BitColours
            ( layoutAsTable
                [ ["this", "this"],
                  ["is", "is"],
                  ["a", "another"],
                  ["list", "list"]
                ]
            )
        )
    it "outputs this weird two-column table the same as before" $ do
      pureGoldenByteStringFile
        (gf "table-with-rows-of-unequal-length.dat")
        ( renderChunksBS
            With24BitColours
            ( layoutAsTable
                [ ["what", "the", ""],
                  ["is", "this", "", "-ing", ""],
                  ["I", "don't", "understand", "one", "", "of", "it"]
                ]
            )
        )
    it "outputs this two-column table with a custom column separator the same as before" $ do
      pureGoldenByteStringFile
        (gf "custom-column-separator.dat")
        ( renderChunksBS
            With24BitColours
            ( renderTable $
                ( table $ [[chunk (T.pack (show (x + y))) | x <- [0 :: Int .. 9]] | y <- [0 :: Int .. 9]]
                )
                  { tableColumnSeparator = "@"
                  }
            )
        )
    it "outputs this table with a background colour the same as before" $ do
      pureGoldenByteStringFile
        (gf "background.dat")
        ( renderChunksBS
            With24BitColours
            ( renderTable $
                ( table $ [[fore red $ chunk (T.pack (show (x ^ y))) | x <- [0 :: Int .. 4]] | y <- [0 :: Int .. 4]]
                )
                  { tableBackground = Just (SingleColour black)
                  }
            )
        )
    it "outputs this table with a bicoloured background the same as before" $ do
      pureGoldenByteStringFile
        (gf "bicolour-background.dat")
        ( renderChunksBS
            With24BitColours
            ( renderTable $
                ( table $ [[fore red $ chunk (T.pack (show (x ^ y))) | x <- [0 :: Int .. 4]] | y <- [0 :: Int .. 4]]
                )
                  { tableBackground = Just (Bicolour (Just black) (Just brightBlack))
                  }
            )
        )