shikensu-0.3.7: tests/Test/Shikensu.hs

module Test.Shikensu
    ( shikensuTests
    ) where

import System.FilePath ((</>))
import Test.Helpers
import Test.Tasty
import Test.Tasty.HUnit

import qualified Data.List as List (head)
import qualified Shikensu


shikensuTests :: TestTree
shikensuTests = testGroup
    "Shikensu tests"
    [ testRegular
    , testDot
    , testWithoutWd
    , testRootFile
    ]



-- Tests


testRegular :: TestTree
testRegular =
    let
        thePattern = "tests" </> "**" </> "*.md"
        definition = define thePattern "."
    in
        testGroup "Test regular"
            [ testCase "Should have the correct basename"
            $ assertDef definition Shikensu.basename "example"

            , testCase "Should have the correct dirname"
            $ assertDef definition Shikensu.dirname "fixtures"

            , testCase "Should have the correct extname"
            $ assertDef definition Shikensu.extname ".md"

            , testCase "Should have the correct pattern"
            $ assertDef definition Shikensu.pattern thePattern

            , testCase "Should have the correct workingDirname"
            $ assertDef definition Shikensu.workingDirname "tests"

            ]


testDot :: TestTree
testDot =
    let
        thePattern = "." </> "tests" </> "**" </> "*.md"
        definition = define thePattern "."
    in
        testGroup "Test dot"
            [ testCase "Should have the correct basename"
            $ assertDef definition Shikensu.basename "example"

            , testCase "Should have the correct dirname"
            $ assertDef definition Shikensu.dirname "fixtures"

            , testCase "Should have the correct extname"
            $ assertDef definition Shikensu.extname ".md"

            , testCase "Should have the correct pattern"
            $ assertDef definition Shikensu.pattern thePattern

            , testCase "Should have the correct workingDirname"
            $ assertDef definition Shikensu.workingDirname "tests"

            ]


testWithoutWd :: TestTree
testWithoutWd =
    let
        thePattern = "**" </> "*.md"
        definition = define thePattern "tests"
    in
        testGroup "Test without workingDirname"
            [ testCase "Should have the correct basename"
            $ assertDef definition Shikensu.basename "example"

            , testCase "Should have the correct dirname"
            $ assertDef definition Shikensu.dirname "fixtures"

            , testCase "Should have the correct extname"
            $ assertDef definition Shikensu.extname ".md"

            , testCase "Should have the correct pattern"
            $ assertDef definition Shikensu.pattern thePattern

            , testCase "Should have the correct workingDirname"
            $ assertDef definition Shikensu.workingDirname ""

            ]


testRootFile :: TestTree
testRootFile =
    let
        thePattern = "*.md"
        definition = define thePattern "."
    in
        testGroup "Test file in root path"
            [ testCase "Should have the correct basename"
            $ assertDef definition Shikensu.basename "CHANGELOG"

            , testCase "Should have the correct dirname"
            $ assertDef definition Shikensu.dirname ""

            , testCase "Should have the correct extname"
            $ assertDef definition Shikensu.extname ".md"

            , testCase "Should have the correct pattern"
            $ assertDef definition Shikensu.pattern thePattern

            , testCase "Should have the correct workingDirname"
            $ assertDef definition Shikensu.workingDirname ""

            ]