trackler 2.2.1.44 → 2.2.1.45

data/tracks/fsharp/exercises/lens-person/LensPerson.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
     <PackageReference Include="Aether" Version="8.2.0" />
   </ItemGroup>
 

data/tracks/fsharp/exercises/linked-list/LinkedList.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/list-ops/ListOps.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/luhn/Luhn.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/luhn/LuhnTest.fs

@@ -1,96 +1,61 @@
+// This file was auto-generated based on version 1.0.0 of the canonical data.
+
 module LuhnTest
 
-open Xunit
 open FsUnit.Xunit
+open Xunit
+
 open Luhn
 
 [<Fact>]
-let ``Single digit strings cannot be valid`` () =
-    let input = "1"
-    let expected = false
-    let actual = valid input
-    actual |> should equal expected
+let ``Single digit strings can not be valid`` () =
+    valid "1" |> should equal false
 
 [<Fact(Skip = "Remove to run test")>]
 let ``A single zero is invalid`` () =
-    let input = "0"
-    let expected = false
-    let actual = valid input
-    actual |> should equal expected
+    valid "0" |> should equal false
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Single zero with space is invalid`` () =
-    let input = "0 "
-    let expected = false
-    let actual = valid input
-    actual |> should equal expected
+let ``A simple valid SIN that remains valid if reversed`` () =
+    valid "059" |> should equal true
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Lots of zeros are valid`` () =
-    let input = "00000"
-    let expected = true
-    let actual = valid input
-    actual |> should equal expected
+let ``A simple valid SIN that becomes invalid if reversed`` () =
+    valid "59" |> should equal true
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Nine doubled is nine`` () =
-    let input = "091"
-    let expected = true
-    let actual = valid input
-    actual |> should equal expected
+let ``A valid Canadian SIN`` () =
+    valid "055 444 285" |> should equal true
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Simple valid number`` () =
-    let input = " 5 9 "
-    let expected = true
-    let actual = valid input
-    actual |> should equal expected
+let ``Invalid Canadian SIN`` () =
+    valid "055 444 286" |> should equal false
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Valid Canadian SIN`` () =
-    let input = "046 454 286"
-    let expected = true
-    let actual = valid input
-    actual |> should equal expected
+let ``Invalid credit card`` () =
+    valid "8273 1232 7352 0569" |> should equal false
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Another valid SIN`` () =
-    let input = "055 444 285"
-    let expected = true
-    let actual = valid input
-    actual |> should equal expected
+let ``Valid strings with a non-digit included become invalid`` () =
+    valid "055a 444 285" |> should equal false
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Invalid Canadian SIN`` () =
-    let input = "046 454 287"
-    let expected = false
-    let actual = valid input
-    actual |> should equal expected
+let ``Valid strings with punctuation included become invalid`` () =
+    valid "055-444-285" |> should equal false
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Invalid credit card`` () =
-    let input = "8273 1232 7352 0569"
-    let expected = false
-    let actual = valid input
-    actual |> should equal expected
+let ``Valid strings with symbols included become invalid`` () =
+    valid "055£ 444$ 285" |> should equal false
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Strings that contain non-digits are not valid`` () =
-    let input = "827a 1232 7352 0569"
-    let expected = false
-    let actual = valid input
-    actual |> should equal expected
+let ``Single zero with space is invalid`` () =
+    valid " 0" |> should equal false
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Punctuation is not allowed`` () =
-    let input = "055-444-285"
-    let expected = false
-    let actual = valid input
-    actual |> should equal expected
+let ``More than a single zero is valid`` () =
+    valid "0000 0" |> should equal true
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Symbols are not allowed`` () =
-    let input = "055£ 444$ 285"
-    let expected = false
-    let actual = valid input
-    actual |> should equal expected
+let ``Input digit 9 is correctly converted to output digit 9`` () =
+    valid "091" |> should equal true
+

data/tracks/fsharp/exercises/markdown/Markdown.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/matrix/Matrix.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/meetup/Meetup.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/minesweeper/Example.fs

@@ -5,19 +5,17 @@ open System
 type Cell = Mine | Empty
 type Board = { cells: Cell [,]; rows: int; cols: int }
 
-let concat = List.reduce (fun x y -> x + "\n" + y)
-
 let parseCell = 
     function
     | '*' -> Mine
     | _   -> Empty
 
-let parseCells (input: string) =
-    input.Split('\n')
+let parseCells (input: string list) =
+    input
     |> Seq.map (Seq.map parseCell)
     |> array2D
 
-let mkBoard (input: string) =
+let mkBoard (input: string list) =
     let cells = parseCells input
     { cells = cells; rows = cells.GetLength 0; cols = cells.GetLength 1 }
 
@@ -44,10 +42,10 @@ let cellOutput (board: Board) (row, col) =
         | 0 -> ' '
         | x -> char x + '0'
 
-let rowOutput (board: Board) row = Array.init board.cols (fun col -> cellOutput board (row, col)) |> String    
-    
-let annotate (input: string) = 
-    let board = mkBoard input
+let rowOutput (board: Board) row = 
+    Array.init board.cols (fun col -> cellOutput board (row, col)) 
+    |> (fun chars -> new String(chars))
     
-    List.init board.rows (rowOutput board)
-    |> concat
+let annotate (input: string list) = 
+    let board = mkBoard input    
+    List.init board.rows (rowOutput board)

data/tracks/fsharp/exercises/minesweeper/Minesweeper.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/minesweeper/MinesweeperTest.fs

@@ -1,110 +1,147 @@
+// This file was auto-generated based on version 1.0.0 of the canonical data.
+
 module MinesweeperTest
 
-open Xunit
 open FsUnit.Xunit
+open Xunit
 
 open Minesweeper
 
-let concat = List.reduce (fun x y -> x + "\n" + y)
-
 [<Fact>]
-let ``Zero size board`` () =
-    let actual = ""
-    let expected = ""
-    annotate actual |> should equal expected
+let ``No rows`` () =
+    let input: string list = []
+    let expected: string list = []
+    annotate input |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Empty board`` () =
-    let actual = 
-        ["   ";
-         "   ";
-         "   "]
-        |> concat
+let ``No columns`` () =
+    let input = [""]
+    let expected = [""]
+    annotate input |> should equal expected
 
+[<Fact(Skip = "Remove to run test")>]
+let ``No mines`` () =
+    let input = 
+        [ "   "
+          "   "
+          "   " ]
     let expected = 
-        ["   ";
-         "   ";
-         "   "]
-        |> concat
-
-    annotate actual |> should equal expected
+        [ "   "
+          "   "
+          "   " ]
+    annotate input |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Board full of mines`` () =
-    let actual = 
-        ["***";
-         "***";
-         "***"]
-        |> concat
-
+let ``Board with only mines`` () =
+    let input = 
+        [ "***"
+          "***"
+          "***" ]
     let expected = 
-        ["***";
-         "***";
-         "***"]
-        |> concat
-
-    annotate actual |> should equal expected
+        [ "***"
+          "***"
+          "***" ]
+    annotate input |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Surrounded`` () =    
-    let actual = 
-        ["***";
-         "* *";
-         "***"]
-        |> concat
-
+let ``Mine surrounded by spaces`` () =
+    let input = 
+        [ "   "
+          " * "
+          "   " ]
     let expected = 
-        ["***";
-         "*8*";
-         "***"]
-        |> concat
-
-    annotate actual |> should equal expected
+        [ "111"
+          "1*1"
+          "111" ]
+    annotate input |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Horizontal line`` () =    
-    let actual = [" * * "] |> concat
-    let expected = ["1*2*1"] |> concat
+let ``Space surrounded by mines`` () =
+    let input = 
+        [ "***"
+          "* *"
+          "***" ]
+    let expected = 
+        [ "***"
+          "*8*"
+          "***" ]
+    annotate input |> should equal expected
 
-    annotate actual |> should equal expected
+[<Fact(Skip = "Remove to run test")>]
+let ``Horizontal line`` () =
+    let input = [" * * "]
+    let expected = ["1*2*1"]
+    annotate input |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Vertical line`` () =   
-    let actual = 
-        [" ";
-         "*";
-         " ";
-         "*";
-         " "]
-        |> concat
+let ``Horizontal line, mines at edges`` () =
+    let input = ["*   *"]
+    let expected = ["*1 1*"]
+    annotate input |> should equal expected
 
+[<Fact(Skip = "Remove to run test")>]
+let ``Vertical line`` () =
+    let input = 
+        [ " "
+          "*"
+          " "
+          "*"
+          " " ]
     let expected = 
-        ["1";
-         "*";
-         "2";
-         "*";
-         "1"]
-        |> concat
+        [ "1"
+          "*"
+          "2"
+          "*"
+          "1" ]
+    annotate input |> should equal expected
 
-    annotate actual |> should equal expected
+[<Fact(Skip = "Remove to run test")>]
+let ``Vertical line, mines at edges`` () =
+    let input = 
+        [ "*"
+          " "
+          " "
+          " "
+          "*" ]
+    let expected = 
+        [ "*"
+          "1"
+          " "
+          "1"
+          "*" ]
+    annotate input |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Cross`` () = 
-    let actual = 
-        ["  *  ";
-         "  *  ";
-         "*****";
-         "  *  ";
-         "  *  "]
-        |> concat
+let ``Cross`` () =
+    let input = 
+        [ "  *  "
+          "  *  "
+          "*****"
+          "  *  "
+          "  *  " ]
+    let expected = 
+        [ " 2*2 "
+          "25*52"
+          "*****"
+          "25*52"
+          " 2*2 " ]
+    annotate input |> should equal expected
 
+[<Fact(Skip = "Remove to run test")>]
+let ``Large board`` () =
+    let input = 
+        [ " *  * "
+          "  *   "
+          "    * "
+          "   * *"
+          " *  * "
+          "      " ]
     let expected = 
-        [" 2*2 ";
-         "25*52";
-         "*****";
-         "25*52";
-         " 2*2 "]
-        |> concat
-
-    annotate actual |> should equal expected
+        [ "1*22*1"
+          "12*322"
+          " 123*2"
+          "112*4*"
+          "1*22*2"
+          "111111" ]
+    annotate input |> should equal expected
 

data/tracks/fsharp/exercises/nth-prime/NthPrime.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/nucleotide-count/NucleotideCount.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/ocr-numbers/OcrNumbers.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/palindrome-products/PalindromeProducts.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/pangram/Pangram.fsproj

@@ -14,9 +14,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/pangram/PangramTest.fs

@@ -1,57 +1,45 @@
+// This file was auto-generated based on version 1.1.0 of the canonical data.
+
 module PangramTest
 
-open Xunit
 open FsUnit.Xunit
+open Xunit
 
 open Pangram
 
 [<Fact>]
-let ``Empty sentence`` () =
-    let input = ""
-    isPangram input |> should equal false
+let ``Sentence empty`` () =
+    isPangram "" |> should equal false
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Pangram with only lower case`` () =
-    let input = "the quick brown fox jumps over the lazy dog"
-    isPangram input |> should equal true
+    isPangram "the quick brown fox jumps over the lazy dog" |> should equal true
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Missing character 'x'`` () =
-    let input = "a quick movement of the enemy will jeopardize five gunboats"
-    isPangram input |> should equal false
+    isPangram "a quick movement of the enemy will jeopardize five gunboats" |> should equal false
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Another missing character 'x'`` () =
-    let input = "the quick brown fish jumps over the lazy dog"
-    isPangram input |> should equal false
+    isPangram "the quick brown fish jumps over the lazy dog" |> should equal false
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Pangram with underscores`` () =
-    let input = "the_quick_brown_fox_jumps_over_the_lazy_dog"
-    isPangram input |> should equal true
+    isPangram "the_quick_brown_fox_jumps_over_the_lazy_dog" |> should equal true
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Pangram with numbers`` () =
-    let input = "the 1 quick brown fox jumps over the 2 lazy dogs"
-    isPangram input |> should equal true
+    isPangram "the 1 quick brown fox jumps over the 2 lazy dogs" |> should equal true
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Missing letters replaced by numbers`` () =
-    let input = "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog"
-    isPangram input |> should equal false
-    
+    isPangram "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog" |> should equal false
+
 [<Fact(Skip = "Remove to run test")>]
 let ``Pangram with mixed case and punctuation`` () =
-    let input = "\"Five quacking Zephyrs jolt my wax bed.\""
-    isPangram input |> should equal true
+    isPangram "\"Five quacking Zephyrs jolt my wax bed.\"" |> should equal true
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Pangram with non ascii characters`` () =
-    let input = "Victor jagt zwölf Boxkämpfer quer über den großen Sylter Deich."
-    isPangram input |> should equal true
+let ``Upper and lower case versions of the same character should not be counted separately`` () =
+    isPangram "the quick brown fox jumps over with lazy FX" |> should equal false
 
-[<Fact(Skip = "Remove to run test")>]
-let ``Panagram in alphabet other than ASCII`` () =
-    let input = "Широкая электрификация южных губерний даст мощный толчок подъёму сельского хозяйства."
-    isPangram input |> should equal false
-