add unit tests

Author: 64J0

.github/workflows/unit-tests.yml

@@ -0,0 +1,29 @@
+name: 'Unit tests'
+
+on:
+    workflow_dispatch:
+    pull_request:
+    push:
+  
+# Kill other jobs when we trigger this workflow by sending new commits
+# to the PR.
+# https://stackoverflow.com/a/72408109
+concurrency:
+  group: ${{ github.workflow }}-${{ github.event.pull_request.number || github.ref }}
+  cancel-in-progress: true
+
+jobs:
+  unit-tests:
+    name: Run unit tests with Expecto
+    runs-on: ubuntu-22.04
+    steps:
+      - name: Checkout repo
+        uses: actions/checkout@v4
+      - name: Setup .NET
+        uses: actions/setup-dotnet@v4
+        with:
+          dotnet-version: '8.x'
+      - name: Install dependencies
+        run: dotnet restore
+      - name: Run tests
+        run: dotnet run --project tests/

src/Main.fsproj

@@ -11,6 +11,7 @@
   </ItemGroup>
 
   <ItemGroup>
+    <Compile Include="TruncateTags.fs" />
     <Compile Include="Program.fs" />
   </ItemGroup>
 

src/Program.fs

@@ -38,10 +38,16 @@ type RETURN_CODE =
     | SUCCESS = 0
     | FAIL = 1
 
-let truncate (valuesToTake: int) (args: string array) : string array =
-    match valuesToTake = -1 with
-    | true -> args
-    | false -> args |> Array.truncate valuesToTake
+// let getTruncatedTags (valuesToTake: int) (args: string array) : string array =
+//     let truncate (valuesToTake: int) (args: string array) : string array =
+//         match valuesToTake = -1 with
+//         | true -> args
+//         | false -> args |> Array.truncate valuesToTake
+
+//     args
+//     |> Array.map (fun s -> s.Split(' ') |> Array.filter (String.IsNullOrEmpty >> not))
+//     |> Array.concat // flat
+//     |> truncate valuesToTake
 
 let getWorkflowNewPath () =
     Path.Combine [| Directory.GetCurrentDirectory(); "workflow.new.yml" |]
@@ -69,11 +75,7 @@ let main (args: string array) : int =
         let! valuesToTake = GitHubHelpers.getValuesToTake ()
         let! workflowKey = GitHubHelpers.getWorkflowKey ()
 
-        let tags =
-            args
-            |> Array.map (fun s -> s.Split(' ') |> Array.filter (String.IsNullOrEmpty >> not))
-            |> Array.concat // flat
-            |> truncate valuesToTake
+        let tags = Main.TruncateTags.getTruncatedTags valuesToTake args
 
         do! Validations.validateTagsAreNotEmpty tags
 

src/TruncateTags.fs

@@ -0,0 +1,16 @@
+namespace Main
+
+module TruncateTags =
+
+    open System
+
+    let getTruncatedTags (valuesToTake: int) (args: string array) : string array =
+        let truncate (valuesToTake: int) (args: string array) : string array =
+            match valuesToTake = -1 with
+            | true -> args
+            | false -> args |> Array.truncate valuesToTake
+
+        args
+        |> Array.map (fun s -> s.Split(' ') |> Array.filter (String.IsNullOrEmpty >> not))
+        |> Array.concat // flat
+        |> truncate valuesToTake

tests/Program.fs

@@ -1,2 +1,50 @@
-// For more information see https://aka.ms/fsharp-console-apps
-printfn "Hello from F#"
+open Expecto
+open Main.TruncateTags
+
+let tests =
+    let inputArgs =
+        [| "v0.0.010 v0.0.009 v0.0.008 v0.0.007 v0.0.006 v0.0.005 v0.0.004 v0.0.003 v0.0.002 v0.0.001" |]
+
+    let valuesToTake = 5
+
+    testList
+        "Truncated tags tests"
+        [ test "one string" {
+              let expected = inputArgs.[0].Split ' ' |> Array.take valuesToTake
+
+              Expect.equal (getTruncatedTags valuesToTake inputArgs) expected "Does not work with one string"
+          }
+
+          test "many string" {
+              let inputArgs = inputArgs.[0].Split ' '
+
+              let expected = inputArgs |> Array.take valuesToTake
+
+              Expect.equal (getTruncatedTags valuesToTake inputArgs) expected "Does not work with many strings"
+          }
+
+          test "insufficient one string" {
+              let inputArgs = [| "v0.0.003 v0.0.002 v0.0.001" |]
+
+              let expected = inputArgs.[0].Split ' '
+
+              Expect.equal
+                  (getTruncatedTags valuesToTake inputArgs)
+                  expected
+                  "Does not work with insufficient one string"
+          }
+
+          test "insufficient many strings" {
+              let inputArgs = [| "v0.0.003 v0.0.002 v0.0.001" |].[0].Split ' '
+
+              let expected = inputArgs
+
+              Expect.equal
+                  (getTruncatedTags valuesToTake inputArgs)
+                  expected
+                  "Does not work with insufficient many strings"
+          } ]
+    |> testLabel "getTruncatedTags"
+
+[<EntryPoint>]
+let main args = runTestsWithCLIArgs [] args tests

tests/Tests.fsproj

@@ -9,8 +9,12 @@
     <Compile Include="Program.fs" />
   </ItemGroup>
 
-  <ItemGroup>
-    <PackageReference Include="Expecto" Version="10.2.1" />
+  <ItemGroup>
+    <ProjectReference Include="..\src\Main.fsproj" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Expecto" Version="10.2.1" />
   </ItemGroup>
 
 </Project>