vbrandl/yagcdn
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add GitLab support

Browse Source
This commit is contained in:
Valentin Brandl
2019-07-28 17:32:50 +02:00
parent ec0254ec75
commit 0b6fe9f5e3
3 changed files with 57 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
frontend/tests/ParseTest.elm
View File

@ -1,14 +1,19 @@
module ParseTest exposing
( invalidHostInUrlBitbucket
, invalidHostInUrlGitHub
, invalidHostInUrlGitLab
, invalidUrlBitbucket
, invalidUrlGitHub
, invalidUrlGitLab
, validHttpUrlBitbucket
, validHttpUrlGitHub
, validHttpUrlGitLab
, validHttpsUrlBitbucket
, validHttpsUrlGitHub
, validHttpsUrlGitLab
, validUrlWithoutProtocolBitbucket
, validUrlWithoutProtocolGitHub
, validUrlWithoutProtocolGitLab
)
import Data exposing (Provider(..), Url)
@ -32,6 +37,11 @@ expectedBitbucketUrl =
expectedUrl Bitbucket
expectedGitLabUrl : Url
expectedGitLabUrl =
expectedUrl GitLab
validHttpsUrlGitHub : Test
validHttpsUrlGitHub =
test "Parsing Valid HTTPS URL for GitHub"
@ -90,3 +100,33 @@ invalidHostInUrlBitbucket : Test
invalidHostInUrlBitbucket =
test "Parsing Invalid Host in URL for Bitbucket"
(\_ -> Expect.equal Nothing (parseUrl "https://example.com/user/repo/blob/src/README.md"))
validHttpsUrlGitLab : Test
validHttpsUrlGitLab =
test "Parsing Valid HTTPS URL for GitLab"
(\_ -> Expect.equal (Just expectedGitLabUrl) (parseUrl "https://GITLAB.CoM/user/repo/blob/master/README.md"))
validHttpUrlGitLab : Test
validHttpUrlGitLab =
test "Parsing Valid HTTP URL for GitLab"
(\_ -> Expect.equal (Just expectedGitLabUrl) (parseUrl "http://gItLaB.CoM/user/repo/blob/master/README.md"))
validUrlWithoutProtocolGitLab : Test
validUrlWithoutProtocolGitLab =
test "Parsing Valid URL without Protocol for GitLab"
(\_ -> Expect.equal (Just expectedGitLabUrl) (parseUrl "GiTlAb.CoM/user/repo/blob/master/README.md"))
invalidUrlGitLab : Test
invalidUrlGitLab =
test "Parsing Invalid URL for GitLab"
(\_ -> Expect.equal Nothing (parseUrl "https://gitLab.CoM/user"))
invalidHostInUrlGitLab : Test
invalidHostInUrlGitLab =
test "Parsing Invalid Host in URL for GitLab"
(\_ -> Expect.equal Nothing (parseUrl "https://example.com/user/repo/blob/master/README.md"))