solene
/
vger
5
10
Fork 4
Code Issues Pull Requests 2 Releases Activity

more unit tests

This commit is contained in:
Solene Rapenne 2022-08-13 14:00:29 +02:00
parent 0b1d5d399d
commit bb1de0e0cc
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
unit.hs
View File

@ -37,6 +37,17 @@ regex_7 = TestCase (assertEqual
[["gemini://perso.pw/directory/\r\n", "gemini://", "perso.pw", "directory/", "", "", "\r\n"]]
(parse_url "gemini://perso.pw/../../directory/\r\n"))
regex_8 = TestCase (assertEqual
"directory requested with a query"
[["gemini://perso.pw/directory/?query=value\r\n", "gemini://", "perso.pw", "directory/", "?", "query=value", "\r\n"]]
(parse_url "gemini://perso.pw/directory/?query=value\r\n"))
regex_9 = TestCase (assertEqual
"directory requested with a query without a trailing slash"
[["gemini://perso.pw/directory?query=value\r\n", "gemini://", "perso.pw", "directory", "?", "query=value", "\r\n"]]
(parse_url "gemini://perso.pw/directory?query=value\r\n"))
tests = TestList
[ regex_1
, regex_2
@ -45,6 +56,8 @@ tests = TestList
, regex_5
, regex_6
, regex_7
, regex_8
, regex_9
]
main :: IO Counts