Add new tests
All checks were successful
continuous-integration/drone/push Build is passing

This commit is contained in:
Valentin Brandl 2019-08-12 19:09:54 +02:00
parent a95eac709a
commit d543b1acd5
No known key found for this signature in database
GPG Key ID: 30D341DD34118D7D

View File

@ -1,5 +1,8 @@
module ParseTest exposing module ParseTest exposing
( invalidHostInUrlBitbucket ( emptyBranchGitHub
, emptyRepoGitHub
, emptyUserGitHub
, invalidHostInUrlBitbucket
, invalidHostInUrlGitHub , invalidHostInUrlGitHub
, invalidHostInUrlGitLab , invalidHostInUrlGitLab
, invalidUrlBitbucket , invalidUrlBitbucket
@ -66,6 +69,24 @@ invalidUrlGitHub =
(\_ -> Expect.equal Nothing (parseUrl "https://GiThUb.CoM/user")) (\_ -> Expect.equal Nothing (parseUrl "https://GiThUb.CoM/user"))
emptyUserGitHub : Test
emptyUserGitHub =
test "Parsing Empty User URL for GitHub"
(\_ -> Expect.equal Nothing (parseUrl "https://GiThUb.CoM//repo/blob/master/README.md"))
emptyRepoGitHub : Test
emptyRepoGitHub =
test "Parsing Empty Repo URL for GitHub"
(\_ -> Expect.equal Nothing (parseUrl "https://GiThUb.CoM/user//blob/master/README.md"))
emptyBranchGitHub : Test
emptyBranchGitHub =
test "Parsing Empty Branch URL for GitHub"
(\_ -> Expect.equal Nothing (parseUrl "https://GiThUb.CoM/user/repo/blob//README.md"))
invalidHostInUrlGitHub : Test invalidHostInUrlGitHub : Test
invalidHostInUrlGitHub = invalidHostInUrlGitHub =
test "Parsing Invalid Host in URL for GitHub" test "Parsing Invalid Host in URL for GitHub"