wasp/waspc/test/Path/ExtraTest.hs

module Path.ExtraTest where

import Test.Tasty.Hspec

import Path (reldir)
import qualified Path.Extra as PE


spec_reversePosixPath :: Spec
spec_reversePosixPath = do
    [reldir|.|] ~> "."
    [reldir|foo|] ~> ".."
    [reldir|foo/bar|] ~> "../.."
    [reldir|./foo/bar/./test|] ~> "../../.."
  where
    path ~> expectedReversedPath = it ((show path) ++ " -> " ++ expectedReversedPath) $ do
        PE.reversePosixPath (PE.toPosixFilePath path) `shouldBe` expectedReversedPath