@@ -22,28 +22,28 @@ main = hspecX specs
23specs :: Specs
23specs :: Specs
25− describe "RoutePiece" $ do
25+ describe "PathPiece" $ do
26− prop "toRoutePiece <=> fromSinglePiece String" $ \(p::String) ->
26+ prop "toPathPiece <=> fromSinglePiece String" $ \(p::String) ->
27− case (fromRoutePiece . toSinglePiece) p of
27+ case (fromPathPiece . toSinglePiece) p of
28 Nothing -> null p
28 Nothing -> null p
29 Just pConverted -> p == pConverted
29 Just pConverted -> p == pConverted
31− prop "toRoutePiece <=> fromSinglePiece String" $ \(p::T.Text) ->
31+ prop "toPathPiece <=> fromSinglePiece String" $ \(p::T.Text) ->
32− case (fromRoutePiece . toSinglePiece) p of
32+ case (fromPathPiece . toSinglePiece) p of
33 Nothing -> T.null p
33 Nothing -> T.null p
34 Just pConverted -> p == pConverted
34 Just pConverted -> p == pConverted
36− prop "toRoutePiece <=> fromSinglePiece String" $ \(p::Int) ->
36+ prop "toPathPiece <=> fromSinglePiece String" $ \(p::Int) ->
37− case (fromRoutePiece . toSinglePiece) p of
37+ case (fromPathPiece . toSinglePiece) p of
38 Nothing -> p < 0
38 Nothing -> p < 0
39 Just pConverted -> p == pConverted
39 Just pConverted -> p == pConverted
41− describe "RouteMultiPiece" $ do
41+ describe "PathMultiPiece" $ do
42− prop "toRouteMultiPiece <=> fromMultiPiece String" $ \(p::[String]) ->
42+ prop "toPathMultiPiece <=> fromMultiPiece String" $ \(p::[String]) ->
43− p == (fromJust . fromRouteMultiPiece . toMultiPiece) p
43+ p == (fromJust . fromPathMultiPiece . toMultiPiece) p
45− prop "toRouteMultiPiece <=> fromMultiPiece String" $ \(p::[T.Text]) ->
45+ prop "toPathMultiPiece <=> fromMultiPiece String" $ \(p::[T.Text]) ->
46− p == (fromJust . fromRouteMultiPiece . toMultiPiece) p
46+ p == (fromJust . fromPathMultiPiece . toMultiPiece) p
49 describe "SinglePiece" $ do
49 describe "SinglePiece" $ do