19 lines
606 B
Haskell
19 lines
606 B
Haskell
module Utils.PathPieceSpec where
|
|
|
|
import TestImport
|
|
|
|
import Utils.PathPiece
|
|
|
|
|
|
spec :: Spec
|
|
spec = describe "pathPieceJoined" $ do
|
|
it "is a prism" . property $ \(NonEmpty (pack -> joinPP)) -> isPrism $ pathPieceJoined joinPP
|
|
it "behaves as expected on some examples" $ do
|
|
let test xs t = do
|
|
review (pathPieceJoined "--") xs `shouldBe` t
|
|
preview (pathPieceJoined "--") t `shouldBe` Just xs
|
|
test ["foo", "bar"] "foo--bar"
|
|
test ["foo--bar", "baz"] "foo----bar--baz"
|
|
test ["baz", "foo--bar"] "baz--foo----bar"
|
|
test ["baz--quux", "foo--bar"] "baz----quux--foo----bar"
|