shikensu-0.2.0: tests/Test/Shikensu.hs

module Test.Shikensu (shikensuTests) where

import Test.Helpers
import Test.Tasty
import Test.Tasty.HUnit

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


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




-- Tests


testRegular :: TestTree
testRegular =
    let
        pattern = "tests/**/*.md"
        dictionary = fmap sort $ rootPath >>= Shikensu.listF [pattern]
        definition = fmap List.head dictionary
        localPath = "fixtures/example.md"
    in
        testGroup "Test regular"
            [ testCase "Should have the correct basename"
            $ definition `rmap` Shikensu.basename >>= assertEq "example"

            , testCase "Should have the correct dirname"
            $ definition `rmap` Shikensu.dirname >>= assertEq "fixtures"

            , testCase "Should have the correct extname"
            $ definition `rmap` Shikensu.extname >>= assertEq ".md"

            , testCase "Should have the correct localPath"
            $ definition `rmap` Shikensu.localPath >>= assertEq localPath

            , testCase "Should have the correct pattern"
            $ definition `rmap` Shikensu.pattern >>= assertEq pattern

            , testCase "Should have the correct workingDirname"
            $ definition `rmap` Shikensu.workingDirname >>= assertEq "tests"

            ]


testDot :: TestTree
testDot =
    let
        pattern = "./tests/**/*.md"
        dictionary = fmap sort $ rootPath >>= Shikensu.listF [pattern]
        definition = fmap List.head dictionary
        localPath = "fixtures/example.md"
    in
        testGroup "Test dot"
            [ testCase "Should have the correct basename"
            $ definition `rmap` Shikensu.basename >>= assertEq "example"

            , testCase "Should have the correct dirname"
            $ definition `rmap` Shikensu.dirname >>= assertEq "fixtures"

            , testCase "Should have the correct extname"
            $ definition `rmap` Shikensu.extname >>= assertEq ".md"

            , testCase "Should have the correct localPath"
            $ definition `rmap` Shikensu.localPath >>= assertEq localPath

            , testCase "Should have the correct pattern"
            $ definition `rmap` Shikensu.pattern >>= assertEq pattern

            , testCase "Should have the correct workingDirname"
            $ definition `rmap` Shikensu.workingDirname >>= assertEq "tests"

            ]


testWithoutWd :: TestTree
testWithoutWd =
    let
        pattern = "**/*.md"
        dictionary = fmap sort $ testsPath >>= Shikensu.listF [pattern]
        definition = fmap List.head dictionary
        localPath = "fixtures/example.md"
    in
        testGroup "Test without workingDirname"
            [ testCase "Should have the correct basename"
            $ definition `rmap` Shikensu.basename >>= assertEq "example"

            , testCase "Should have the correct dirname"
            $ definition `rmap` Shikensu.dirname >>= assertEq "fixtures"

            , testCase "Should have the correct extname"
            $ definition `rmap` Shikensu.extname >>= assertEq ".md"

            , testCase "Should have the correct localPath"
            $ definition `rmap` Shikensu.localPath >>= assertEq localPath

            , testCase "Should have the correct pattern"
            $ definition `rmap` Shikensu.pattern >>= assertEq pattern

            , testCase "Should have the correct workingDirname"
            $ definition `rmap` Shikensu.workingDirname >>= assertEq ""

            ]


testRootFile :: TestTree
testRootFile =
    let
        pattern = "*.md"
        dictionary = fmap sort $ rootPath >>= Shikensu.listF [pattern]
        definition = fmap List.head dictionary
        localPath = "CHANGELOG.md"
    in
        testGroup "Test file in root path"
            [ testCase "Should have the correct basename"
            $ definition `rmap` Shikensu.basename >>= assertEq "CHANGELOG"

            , testCase "Should have the correct dirname"
            $ definition `rmap` Shikensu.dirname >>= assertEq ""

            , testCase "Should have the correct extname"
            $ definition `rmap` Shikensu.extname >>= assertEq ".md"

            , testCase "Should have the correct localPath"
            $ definition `rmap` Shikensu.localPath >>= assertEq localPath

            , testCase "Should have the correct pattern"
            $ definition `rmap` Shikensu.pattern >>= assertEq pattern

            , testCase "Should have the correct workingDirname"
            $ definition `rmap` Shikensu.workingDirname >>= assertEq ""

            ]