Initial commit for backend

frontend/tests/ParseTest.elm

@@ -0,0 +1,92 @@
+module ParseTest exposing
+    ( invalidHostInUrlBitbucket
+    , invalidHostInUrlGitHub
+    , invalidUrlBitbucket
+    , invalidUrlGitHub
+    , validHttpUrlBitbucket
+    , validHttpUrlGitHub
+    , validHttpsUrlBitbucket
+    , validHttpsUrlGitHub
+    , validUrlWithoutProtocolBitbucket
+    , validUrlWithoutProtocolGitHub
+    )
+
+import Data exposing (Provider(..), Url)
+import Expect
+import Parse exposing (parseUrl)
+import Test exposing (Test, test)
+
+
+expectedUrl : Provider -> Url
+expectedUrl prov =
+    { prov = prov, user = "user", repo = "repo", gitref = "master", file = "README.md" }
+
+
+expectedGitHubUrl : Url
+expectedGitHubUrl =
+    expectedUrl GitHub
+
+
+expectedBitbucketUrl : Url
+expectedBitbucketUrl =
+    expectedUrl Bitbucket
+
+
+validHttpsUrlGitHub : Test
+validHttpsUrlGitHub =
+    test "Parsing Valid HTTPS URL for GitHub"
+        (\_ -> Expect.equal (Just expectedGitHubUrl) (parseUrl "https://GiThUb.CoM/user/repo/blob/master/README.md"))
+
+
+validHttpUrlGitHub : Test
+validHttpUrlGitHub =
+    test "Parsing Valid HTTP URL for GitHub"
+        (\_ -> Expect.equal (Just expectedGitHubUrl) (parseUrl "http://GiThUb.CoM/user/repo/blob/master/README.md"))
+
+
+validUrlWithoutProtocolGitHub : Test
+validUrlWithoutProtocolGitHub =
+    test "Parsing Valid URL without Protocol for GitHub"
+        (\_ -> Expect.equal (Just expectedGitHubUrl) (parseUrl "GiThUb.CoM/user/repo/blob/master/README.md"))
+
+
+invalidUrlGitHub : Test
+invalidUrlGitHub =
+    test "Parsing Invalid URL for GitHub"
+        (\_ -> Expect.equal Nothing (parseUrl "https://GiThUb.CoM/user"))
+
+
+invalidHostInUrlGitHub : Test
+invalidHostInUrlGitHub =
+    test "Parsing Invalid Host in URL for GitHub"
+        (\_ -> Expect.equal Nothing (parseUrl "https://example.com/user/repo/blob/master/README.md"))
+
+
+validHttpsUrlBitbucket : Test
+validHttpsUrlBitbucket =
+    test "Parsing Valid HTTPS URL for Bitbucket"
+        (\_ -> Expect.equal (Just expectedBitbucketUrl) (parseUrl "https://bItBuCkEt.OrG/user/repo/src/master/README.md"))
+
+
+validHttpUrlBitbucket : Test
+validHttpUrlBitbucket =
+    test "Parsing Valid HTTP URL for Bitbucket"
+        (\_ -> Expect.equal (Just expectedBitbucketUrl) (parseUrl "http://BiTbUcKeT.oRg/user/repo/src/master/README.md"))
+
+
+validUrlWithoutProtocolBitbucket : Test
+validUrlWithoutProtocolBitbucket =
+    test "Parsing Valid URL without Protocol for Bitbucket"
+        (\_ -> Expect.equal (Just expectedBitbucketUrl) (parseUrl "bitbucket.org/user/repo/src/master/README.md"))
+
+
+invalidUrlBitbucket : Test
+invalidUrlBitbucket =
+    test "Parsing Invalid URL for Bitbucket"
+        (\_ -> Expect.equal Nothing (parseUrl "https://bitBucket.ORG/user"))
+
+
+invalidHostInUrlBitbucket : Test
+invalidHostInUrlBitbucket =
+    test "Parsing Invalid Host in URL for Bitbucket"
+        (\_ -> Expect.equal Nothing (parseUrl "https://example.com/user/repo/blob/src/README.md"))