diff --git a/CHANGELOG.md b/CHANGELOG.md new file mode 100644 --- /dev/null +++ b/CHANGELOG.md @@ -0,0 +1,7 @@ +# Changelog for safe-coloured-text-layout-gen + +## [0.0.0.1] - 2024-08-03 + +### Changed + +* Moved the test suite here from `safe-coloured-text-layout` diff --git a/safe-coloured-text-layout-gen.cabal b/safe-coloured-text-layout-gen.cabal --- a/safe-coloured-text-layout-gen.cabal +++ b/safe-coloured-text-layout-gen.cabal @@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.34.4. +-- This file has been generated from package.yaml by hpack version 0.36.0. -- -- see: https://github.com/sol/hpack name: safe-coloured-text-layout-gen -version: 0.0.0.0 +version: 0.0.0.1 description: Generators for types in safe-coloured-text-layout homepage: https://github.com/NorfairKing/safe-coloured-text#readme bug-reports: https://github.com/NorfairKing/safe-coloured-text/issues @@ -14,6 +14,14 @@ copyright: Copyright (c) 2021 Tom Sydney Kerckhove license: MIT build-type: Simple +extra-source-files: + CHANGELOG.md + test_resources/background.dat + test_resources/bicolour-background.dat + test_resources/custom-column-separator.dat + test_resources/list.dat + test_resources/table-with-rows-of-unequal-length.dat + test_resources/two-columns.dat source-repository head type: git @@ -38,6 +46,7 @@ main-is: Spec.hs other-modules: Text.Colour.Layout.GenSpec + Text.Colour.LayoutSpec Paths_safe_coloured_text_layout_gen hs-source-dirs: test @@ -48,8 +57,8 @@ base >=4.7 && <5 , genvalidity-sydtest , safe-coloured-text - , safe-coloured-text-gen , safe-coloured-text-layout , safe-coloured-text-layout-gen , sydtest + , text default-language: Haskell2010 diff --git a/test/Text/Colour/LayoutSpec.hs b/test/Text/Colour/LayoutSpec.hs new file mode 100644 --- /dev/null +++ b/test/Text/Colour/LayoutSpec.hs @@ -0,0 +1,87 @@ +{-# 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 + pureGoldenTextFile + (gf "list.dat") + ( renderChunksText + With24BitColours + ( layoutAsTable + [ [["this"]], + [["is"]], + [["a"]], + [["list"]] + ] + ) + ) + it "outputs this two-column table the same as before" $ do + pureGoldenTextFile + (gf "two-columns.dat") + ( renderChunksText + With24BitColours + ( layoutAsTable + [ [["this"], ["this"]], + [["is"], ["is"]], + [["a"], ["another"]], + [["list"], ["list"]] + ] + ) + ) + it "outputs this weird two-column table the same as before" $ do + pureGoldenTextFile + (gf "table-with-rows-of-unequal-length.dat") + ( renderChunksText + 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 + pureGoldenTextFile + (gf "custom-column-separator.dat") + ( renderChunksText + 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 + pureGoldenTextFile + (gf "background.dat") + ( renderChunksText + 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 + pureGoldenTextFile + (gf "bicolour-background.dat") + ( renderChunksText + 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)) + } + ) + ) diff --git a/test_resources/background.dat b/test_resources/background.dat new file mode 100644 --- /dev/null +++ b/test_resources/background.dat @@ -0,0 +1,5 @@ +1 1 1  1  1  +0 1 2  3  4  +0 1 4  9  16  +0 1 8  27 64  +0 1 16 81 256 diff --git a/test_resources/bicolour-background.dat b/test_resources/bicolour-background.dat new file mode 100644 --- /dev/null +++ b/test_resources/bicolour-background.dat @@ -0,0 +1,5 @@ +1 1 1  1  1  +0 1 2  3  4  +0 1 4  9  16  +0 1 8  27 64  +0 1 16 81 256 diff --git a/test_resources/custom-column-separator.dat b/test_resources/custom-column-separator.dat new file mode 100644 --- /dev/null +++ b/test_resources/custom-column-separator.dat @@ -0,0 +1,10 @@ +0@1 @2 @3 @4 @5 @6 @7 @8 @9 +1@2 @3 @4 @5 @6 @7 @8 @9 @10 +2@3 @4 @5 @6 @7 @8 @9 @10@11 +3@4 @5 @6 @7 @8 @9 @10@11@12 +4@5 @6 @7 @8 @9 @10@11@12@13 +5@6 @7 @8 @9 @10@11@12@13@14 +6@7 @8 @9 @10@11@12@13@14@15 +7@8 @9 @10@11@12@13@14@15@16 +8@9 @10@11@12@13@14@15@16@17 +9@10@11@12@13@14@15@16@17@18 diff --git a/test_resources/list.dat b/test_resources/list.dat new file mode 100644 --- /dev/null +++ b/test_resources/list.dat @@ -0,0 +1,4 @@ +this +is +a +list diff --git a/test_resources/table-with-rows-of-unequal-length.dat b/test_resources/table-with-rows-of-unequal-length.dat new file mode 100644 --- /dev/null +++ b/test_resources/table-with-rows-of-unequal-length.dat @@ -0,0 +1,3 @@ +what the +is this -ing +I don't understand one of it diff --git a/test_resources/two-columns.dat b/test_resources/two-columns.dat new file mode 100644 --- /dev/null +++ b/test_resources/two-columns.dat @@ -0,0 +1,4 @@ +this this +is is +a another +list list