@@ -23,48 +23,48 @@ main = hspecX specs
2323specs :: Specs
2424specs = do
2525 describe "PathPiece" $ do
26− prop "toPathPiece <=> fromSinglePiece String" $ \(p::String) ->
27− case (fromPathPiece . toSinglePiece) p of
26+ prop "toPathPiece <=> fromPathPiece String" $ \(p::String) ->
27+ case (fromPathPiece . toPathPiece) p of
2828 Nothing -> null p
2929 Just pConverted -> p == pConverted
3030
31− prop "toPathPiece <=> fromSinglePiece String" $ \(p::T.Text) ->
32− case (fromPathPiece . toSinglePiece) p of
31+ prop "toPathPiece <=> fromPathPiece String" $ \(p::T.Text) ->
32+ case (fromPathPiece . toPathPiece) p of
3333 Nothing -> T.null p
3434 Just pConverted -> p == pConverted
3535
36− prop "toPathPiece <=> fromSinglePiece String" $ \(p::Int) ->
37− case (fromPathPiece . toSinglePiece) p of
36+ prop "toPathPiece <=> fromPathPiece String" $ \(p::Int) ->
37+ case (fromPathPiece . toPathPiece) p of
3838 Nothing -> p < 0
3939 Just pConverted -> p == pConverted
4040
4141 describe "PathMultiPiece" $ do
42− prop "toPathMultiPiece <=> fromMultiPiece String" $ \(p::[String]) ->
43− p == (fromJust . fromPathMultiPiece . toMultiPiece) p
42+ prop "toPathMultiPiece <=> fromPathMultiPiece String" $ \(p::[String]) ->
43+ p == (fromJust . fromPathMultiPiece . toPathMultiPiece) p
4444
45− prop "toPathMultiPiece <=> fromMultiPiece String" $ \(p::[T.Text]) ->
46− p == (fromJust . fromPathMultiPiece . toMultiPiece) p
45+ prop "toPathMultiPiece <=> fromPathMultiPiece String" $ \(p::[T.Text]) ->
46+ p == (fromJust . fromPathMultiPiece . toPathMultiPiece) p
4747
4848
4949 describe "SinglePiece" $ do
50− prop "toSinglePiece <=> fromSinglePiece String" $ \(p::String) ->
51− case (fromSinglePiece . toSinglePiece) p of
50+ prop "toPathPiece <=> fromPathPiece String" $ \(p::String) ->
51+ case (fromPathPiece . toPathPiece) p of
5252 Nothing -> null p
5353 Just pConverted -> p == pConverted
5454
55− prop "toSinglePiece <=> fromSinglePiece String" $ \(p::T.Text) ->
56− case (fromSinglePiece . toSinglePiece) p of
55+ prop "toPathPiece <=> fromPathPiece String" $ \(p::T.Text) ->
56+ case (fromPathPiece . toPathPiece) p of
5757 Nothing -> T.null p
5858 Just pConverted -> p == pConverted
5959
60− prop "toSinglePiece <=> fromSinglePiece String" $ \(p::Int) ->
61− case (fromSinglePiece . toSinglePiece) p of
60+ prop "toPathPiece <=> fromPathPiece String" $ \(p::Int) ->
61+ case (fromPathPiece . toPathPiece) p of
6262 Nothing -> p < 0
6363 Just pConverted -> p == pConverted
6464
6565 describe "MultiPiece" $ do
66− prop "toMultiPiece <=> fromMultiPiece String" $ \(p::[String]) ->
67− p == (fromJust . fromMultiPiece . toMultiPiece) p
66+ prop "toPathMultiPiece <=> fromPathMultiPiece String" $ \(p::[String]) ->
67+ p == (fromJust . fromPathMultiPiece . toPathMultiPiece) p
6868
69− prop "toMultiPiece <=> fromMultiPiece String" $ \(p::[T.Text]) ->
70− p == (fromJust . fromMultiPiece . toMultiPiece) p
69+ prop "toPathMultiPiece <=> fromPathMultiPiece String" $ \(p::[T.Text]) ->
70+ p == (fromJust . fromPathMultiPiece . toPathMultiPiece) p