@@ -22,28 +22,28 @@ main = hspecX specs
2222
2323specs :: Specs
2424specs = do
25− describe "RoutePiece" $ do
26− prop "toRoutePiece <=> fromSinglePiece String" $ \(p::String) ->
27− case (fromRoutePiece . toSinglePiece) p of
25+ describe "PathPiece" $ do
26+ prop "toPathPiece <=> fromSinglePiece String" $ \(p::String) ->
27+ case (fromPathPiece . toSinglePiece) p of
2828 Nothing -> null p
2929 Just pConverted -> p == pConverted
3030
31− prop "toRoutePiece <=> fromSinglePiece String" $ \(p::T.Text) ->
32− case (fromRoutePiece . toSinglePiece) p of
31+ prop "toPathPiece <=> fromSinglePiece String" $ \(p::T.Text) ->
32+ case (fromPathPiece . toSinglePiece) p of
3333 Nothing -> T.null p
3434 Just pConverted -> p == pConverted
3535
36− prop "toRoutePiece <=> fromSinglePiece String" $ \(p::Int) ->
37− case (fromRoutePiece . toSinglePiece) p of
36+ prop "toPathPiece <=> fromSinglePiece String" $ \(p::Int) ->
37+ case (fromPathPiece . toSinglePiece) p of
3838 Nothing -> p < 0
3939 Just pConverted -> p == pConverted
4040
41− describe "RouteMultiPiece" $ do
42− prop "toRouteMultiPiece <=> fromMultiPiece String" $ \(p::[String]) ->
43− p == (fromJust . fromRouteMultiPiece . toMultiPiece) p
41+ describe "PathMultiPiece" $ do
42+ prop "toPathMultiPiece <=> fromMultiPiece String" $ \(p::[String]) ->
43+ p == (fromJust . fromPathMultiPiece . toMultiPiece) p
4444
45− prop "toRouteMultiPiece <=> fromMultiPiece String" $ \(p::[T.Text]) ->
46− p == (fromJust . fromRouteMultiPiece . toMultiPiece) p
45+ prop "toPathMultiPiece <=> fromMultiPiece String" $ \(p::[T.Text]) ->
46+ p == (fromJust . fromPathMultiPiece . toMultiPiece) p
4747
4848
4949 describe "SinglePiece" $ do