mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-11-28 06:05:31 +03:00
26 lines
750 B
Elm
26 lines
750 B
Elm
|
module PathTests exposing (all)
|
||
|
|
|
||
|
|
import Expect
|
||
|
|
import Path
|
||
|
|
import Test exposing (describe, test)
|
||
|
|
|
||
|
|
|
||
|
|
all =
|
||
|
|
describe "Path"
|
||
|
|
[ test "join two segments" <|
|
||
|
|
\() ->
|
||
|
|
Path.join [ "a", "b", "c" ]
|
||
|
|
|> Path.toAbsolute
|
||
|
|
|> Expect.equal "/a/b/c"
|
||
|
|
, test "join segments that have paths in them" <|
|
||
|
|
\() ->
|
||
|
|
Path.join [ "a", "b", "c/d/e" ]
|
||
|
|
|> Path.toAbsolute
|
||
|
|
|> Expect.equal "/a/b/c/d/e"
|
||
|
|
, test "removes trailing and leading slashes" <|
|
||
|
|
\() ->
|
||
|
|
Path.join [ "a/", "/b/", "/c/d/e/" ]
|
||
|
|
|> Path.toAbsolute
|
||
|
|
|> Expect.equal "/a/b/c/d/e"
|
||
|
|
]
|