Remove duplicate test case.

This commit is contained in:
Dillon Kearns 2022-03-04 09:06:10 -08:00
parent 8adac30f30
commit fb7f5fa1e9
2 changed files with 1 additions and 29 deletions

View File

@ -71,7 +71,7 @@ all =
, expected = [ ( "data-file", JSON ) ]
}
, globTestCase
{ name = "7"
{ name = "multiple wildcards"
, glob =
Glob.succeed
(\year month day slug ->

View File

@ -120,34 +120,6 @@ all =
[ ( "content/about.md", ( [], "about" ) )
, ( "content/community/meetups.md", ( [ "community" ], "meetups" ) )
]
, test "multiple wildcards" <|
\() ->
Glob.succeed
(\year month day slug ->
{ year = year
, month = month
, day = day
, slug = slug
}
)
|> Glob.match (Glob.literal "archive/")
|> Glob.capture Glob.int
|> Glob.match (Glob.literal "/")
|> Glob.capture Glob.int
|> Glob.match (Glob.literal "/")
|> Glob.capture Glob.int
|> Glob.match (Glob.literal "/")
|> Glob.capture Glob.wildcard
|> Glob.match (Glob.literal ".md")
|> expectAll
[ ( "archive/1977/06/10/apple-2-released.md"
, { year = 1977
, month = 6
, day = 10
, slug = "apple-2-released"
}
)
]
]