some test helpers

unisonweb · Aug 7, 2023 · 421d85a · 421d85a
1 parent 6721e5f
commit 421d85a
Show file tree

Hide file tree

Showing 2 changed files with 39 additions and 1 deletion.
diff --git a/src/Code/BranchRef.elm b/src/Code/BranchRef.elm
@@ -192,7 +192,7 @@ branchSlugFromString raw =
         Nothing
 
 
-{-| Don't use outside of testing
+{-| ⚠️ Don't use outside of testing
 -}
 unsafeBranchSlugFromString : String -> BranchSlug
 unsafeBranchSlugFromString raw =
@@ -204,6 +204,30 @@ branchSlugToString (BranchSlug s) =
     s
 
 
+{-| ⚠️ Don't use outside of testing
+-}
+unsafeFromString : String -> BranchRef
+unsafeFromString raw =
+    let
+        parts =
+            String.split "/" raw
+    in
+    case parts of
+        [ "releases", "drafts", v ] ->
+            ReleaseDraftBranchRef (Version.unsafeFromString v)
+
+        [ "releases", v ] ->
+            ReleaseBranchRef (Version.unsafeFromString v)
+
+        [ h, s ] ->
+            ContributorBranchRef
+                (UserHandle.unsafeFromString h)
+                (unsafeBranchSlugFromString s)
+
+        _ ->
+            ProjectBranchRef (unsafeBranchSlugFromString raw)
+
+
 {-| Requirements
 
   - May only contain alphanumeric characters, underscores, and hyphens.

diff --git a/src/Code/Version.elm b/src/Code/Version.elm
@@ -22,6 +22,7 @@ module Code.Version exposing
     , toList
     , toString
     , toUrlString
+    , unsafeFromString
     , version
     , view
     )
@@ -75,6 +76,19 @@ fromString s =
         |> MaybeE.join
 
 
+{-| ⚠️ Don't use outside of testing--defaults to 1.0.0
+-}
+unsafeFromString : String -> Version
+unsafeFromString s =
+    s
+        |> String.split "."
+        |> List.map String.toInt
+        |> MaybeE.combine
+        |> Maybe.map fromList
+        |> MaybeE.join
+        |> Maybe.withDefault (version 1 0 0)
+
+
 fromUrlString : String -> Maybe Version
 fromUrlString s =
     s