trackler 2.2.1.22 → 2.2.1.23

data/tracks/fsharp/exercises/sublist/SublistTest.fs

@@ -1,95 +1,79 @@
-module SublistTest
+module SublistTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 
 open Sublist
 
-[<Test>]
+[<Fact>]
 let ``Empty equals empty`` () =
-    Assert.That(sublist [] [], Is.EqualTo(Equal))
+    sublist [] [] |> should equal Equal
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Empty is a sublist of anything`` () =
-    Assert.That(sublist [] [1; 2; 3; 4], Is.EqualTo(Sublist))
+    sublist [] [1; 2; 3; 4] |> should equal Sublist
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Anything is a superlist of empty`` () =
-    Assert.That(sublist [1; 2; 3; 4] [], Is.EqualTo(Superlist))
+    sublist [1; 2; 3; 4] [] |> should equal Superlist
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``1 is not 2`` () =
-    Assert.That(sublist [1] [2], Is.EqualTo(Unequal))
+    sublist [1] [2] |> should equal Unequal
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Compare larger equal lists`` () =
     let xs = List.replicate 1000 'x'
-    Assert.That(sublist xs xs, Is.EqualTo(Equal))
+    sublist xs xs |> should equal Equal
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Sublist at start`` () =
-    Assert.That(sublist [1; 2; 3] [1; 2; 3; 4; 5], Is.EqualTo(Sublist))
+    sublist [1; 2; 3] [1; 2; 3; 4; 5] |> should equal Sublist
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Sublist in middle`` () =
-    Assert.That(sublist [4; 3; 2] [5; 4; 3; 2; 1], Is.EqualTo(Sublist))
+    sublist [4; 3; 2] [5; 4; 3; 2; 1] |> should equal Sublist
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Sublist at end`` () =
-    Assert.That(sublist [3; 4; 5] [1; 2; 3; 4; 5], Is.EqualTo(Sublist))
+    sublist [3; 4; 5] [1; 2; 3; 4; 5] |> should equal Sublist
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Partially matching sublist at start`` () =
-    Assert.That(sublist [1; 1; 2] [1; 1; 1; 2], Is.EqualTo(Sublist))
+    sublist [1; 1; 2] [1; 1; 1; 2] |> should equal Sublist
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Sublist early in huge list`` () =
-    Assert.That(sublist [3; 4; 5] [1 .. 1000000] , Is.EqualTo(Sublist))
+    sublist [3; 4; 5] [1 .. 1000000]  |> should equal Sublist
  
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Huge sublist not in huge list`` () =
-    Assert.That(sublist [10 .. 1000001] [1 .. 1000000], Is.EqualTo(Unequal))
+    sublist [10 .. 1000001] [1 .. 1000000] |> should equal Unequal
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Superlist at start`` () =
-    Assert.That(sublist [1; 2; 3; 4; 5] [1; 2; 3], Is.EqualTo(Superlist))
+    sublist [1; 2; 3; 4; 5] [1; 2; 3] |> should equal Superlist
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Superlist in middle`` () =
-    Assert.That(sublist [5; 4; 3; 2; 1] [4; 3; 2], Is.EqualTo(Superlist))
+    sublist [5; 4; 3; 2; 1] [4; 3; 2] |> should equal Superlist
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Superlist at end`` () =
-    Assert.That(sublist [1; 2; 3; 4; 5] [3; 4; 5], Is.EqualTo(Superlist))
+    sublist [1; 2; 3; 4; 5] [3; 4; 5] |> should equal Superlist
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Partially matching superlist at start`` () =
-    Assert.That(sublist [1; 1; 1; 2] [1; 1; 2], Is.EqualTo(Superlist))
+    sublist [1; 1; 1; 2] [1; 1; 2] |> should equal Superlist
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Superlist early in huge list`` () =
-    Assert.That(sublist [1 .. 1000000] [3; 4; 5], Is.EqualTo(Superlist))
+    sublist [1 .. 1000000] [3; 4; 5] |> should equal Superlist
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Recurring values sublist`` () =
-    Assert.That(sublist [1; 2; 1; 2; 3] [1; 2; 3; 1; 2; 1; 2; 3; 2; 1], Is.EqualTo(Sublist))
+    sublist [1; 2; 1; 2; 3] [1; 2; 3; 1; 2; 1; 2; 3; 2; 1] |> should equal Sublist
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Recurring values unequal`` () =
-    Assert.That(sublist [1; 2; 1; 2; 3] [1; 2; 3; 1; 2; 3; 2; 3; 2; 1], Is.EqualTo(Unequal))
+    sublist [1; 2; 1; 2; 3] [1; 2; 3; 1; 2; 3; 2; 3; 2; 1] |> should equal Unequal

data/tracks/fsharp/exercises/sum-of-multiples/Program.fs

@@ -0,0 +1 @@
+module Program = let [<EntryPoint>] main _ = 0

data/tracks/fsharp/exercises/sum-of-multiples/SumOfMultiples.fs

@@ -0,0 +1,3 @@
+module SumOfMultiples
+
+let sumOfMultiples (numbers: int list) (upperBound: int): int = failwith "You need to implement this function."

data/tracks/fsharp/exercises/sum-of-multiples/SumOfMultiples.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="SumOfMultiples.fs" />
+    <Compile Include="SumOfMultiplesTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <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="FsUnit.xUnit" Version="3.0.0" />
+  </ItemGroup>
+
+</Project>

data/tracks/fsharp/exercises/sum-of-multiples/SumOfMultiplesTest.fs

@@ -1,33 +1,29 @@
-module SumOfMultiplesTest
+module SumOfMultiplesTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 open SumOfMultiples
 
-[<Test>]
+[<Fact>]
 let ``Sum to 1`` () =
-    Assert.That(sumOfMultiples [3; 5] 0, Is.EqualTo(0))
+    sumOfMultiples [3; 5] 0 |> should equal 0
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Sum to 3`` () =
-    Assert.That(sumOfMultiples [3; 5] 3, Is.EqualTo(0))
+    sumOfMultiples [3; 5] 3 |> should equal 0
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Sum to 4`` () =
-    Assert.That(sumOfMultiples [3; 5] 4, Is.EqualTo(3))
+    sumOfMultiples [3; 5] 4 |> should equal 3
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Sum to 10`` () =
-    Assert.That(sumOfMultiples [3; 5] 10, Is.EqualTo(23))
+    sumOfMultiples [3; 5] 10 |> should equal 23
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Sum to 20`` () =
-    Assert.That(sumOfMultiples [7; 13; 17] 20, Is.EqualTo(51))
+    sumOfMultiples [7; 13; 17] 20 |> should equal 51
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Sum to 10000`` () =
-    Assert.That(sumOfMultiples [43; 47] 10000, Is.EqualTo(2203160))
+    sumOfMultiples [43; 47] 10000 |> should equal 2203160

data/tracks/fsharp/exercises/tournament/Program.fs

@@ -0,0 +1 @@
+module Program = let [<EntryPoint>] main _ = 0

data/tracks/fsharp/exercises/tournament/Tournament.fs

@@ -0,0 +1,3 @@
+module Tournament
+    
+let tally input = failwith "You need to implement this function."

data/tracks/fsharp/exercises/tournament/Tournament.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Tournament.fs" />
+    <Compile Include="TournamentTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <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="FsUnit.xUnit" Version="3.0.0" />
+  </ItemGroup>
+
+</Project>

data/tracks/fsharp/exercises/tournament/TournamentTest.fs

@@ -1,10 +1,11 @@
-module TournamentTest
+module TournamentTest
     
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 
 open Tournament
 
-[<Test>]
+[<Fact>]
 let ``Correctly displays the tournament table`` () =
     let actual = 
         ["Αllegoric Alaskians;Blithering Badgers;win";
@@ -21,10 +22,9 @@ let ``Correctly displays the tournament table`` () =
          "Blithering Badgers             |  3 |  1 |  0 |  2 |  3";
          "Courageous Californians        |  3 |  0 |  1 |  2 |  1"]
 
-    Assert.That(tally actual, Is.EqualTo(expected))
+    tally actual |> should equal expected
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Ignores incorrect input`` () =
     let actual = 
         ["Allegoric Alaskians;Blithering Badgers;win";
@@ -46,10 +46,9 @@ let ``Ignores incorrect input`` () =
          "Blithering Badgers             |  3 |  1 |  0 |  2 |  3";
          "Courageous Californians        |  3 |  0 |  1 |  2 |  1"]
 
-    Assert.That(tally actual, Is.EqualTo(expected))    
+    tally actual |> should equal expected    
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Correctly displays another tournament table`` () =
     let actual = 
         ["Allegoric Alaskians;Blithering Badgers;win";
@@ -64,4 +63,4 @@ let ``Correctly displays another tournament table`` () =
          "Devastating Donkeys            |  1 |  1 |  0 |  0 |  3";
          "Courageous Californians        |  2 |  0 |  0 |  2 |  0"]
 
-    Assert.That(tally actual, Is.EqualTo(expected))
+    tally actual |> should equal expected

data/tracks/fsharp/exercises/transpose/Program.fs

@@ -0,0 +1 @@
+module Program = let [<EntryPoint>] main _ = 0

data/tracks/fsharp/exercises/transpose/Transpose.fs

@@ -0,0 +1,3 @@
+module Transpose
+
+let transpose input = failwith "You need to implement this function."

data/tracks/fsharp/exercises/transpose/Transpose.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Transpose.fs" />
+    <Compile Include="TransposeTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <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="FsUnit.xUnit" Version="3.0.0" />
+  </ItemGroup>
+
+</Project>

data/tracks/fsharp/exercises/transpose/TransposeTest.fs

@@ -1,18 +1,18 @@
-module TransposeTest
+module TransposeTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 
 open Transpose
 
-[<Test>]
+[<Fact>]
 let ``Empty string`` () = 
     let input = ""
     let expected = ""
 
-    Assert.That(transpose input, Is.EqualTo(expected))
+    transpose input |> should equal expected
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Two characters in a row`` () = 
     let input =
         "A1"
@@ -21,10 +21,9 @@ let ``Two characters in a row`` () =
         "A\n" +
         "1"
 
-    Assert.That(transpose input, Is.EqualTo(expected))
+    transpose input |> should equal expected
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Two characters in a column`` () = 
     let input =
         "A\n" +
@@ -33,10 +32,9 @@ let ``Two characters in a column`` () =
     let expected = 
         "A1"
 
-    Assert.That(transpose input, Is.EqualTo(expected))
+    transpose input |> should equal expected
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Simple`` () = 
     let input =
         "ABC\n" +
@@ -47,10 +45,9 @@ let ``Simple`` () =
         "B2\n" +
         "C3"
 
-    Assert.That(transpose input, Is.EqualTo(expected))
+    transpose input |> should equal expected
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Single line`` () = 
     let input =
         "Single line."
@@ -69,10 +66,9 @@ let ``Single line`` () =
         "e\n" +
         "."
 
-    Assert.That(transpose input, Is.EqualTo(expected))
+    transpose input |> should equal expected
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``First line longer than second line`` () = 
     let input = 
         "The fourth line.\n" + 
@@ -96,10 +92,9 @@ let ``First line longer than second line`` () =
         "e.\n" +
         "."
 
-    Assert.That(transpose input, Is.EqualTo(expected))
+    transpose input |> should equal expected
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Second line longer than first line`` () = 
     let input = 
         "The first line.\n" + 
@@ -123,10 +118,9 @@ let ``Second line longer than first line`` () =
         ".e\n" +
         " ."
 
-    Assert.That(transpose input, Is.EqualTo(expected))
+    transpose input |> should equal expected
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Square`` () = 
     let input = 
         "HEART\n" +
@@ -142,10 +136,9 @@ let ``Square`` () =
         "RESIN\n" +
         "TREND"
 
-    Assert.That(transpose input, Is.EqualTo(expected))
+    transpose input |> should equal expected
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Rectangle`` () = 
     let input = 
         "FRACTURE\n" +
@@ -163,10 +156,9 @@ let ``Rectangle`` () =
         "RENT\n"+ 
         "EDGE"
 
-    Assert.That(transpose input, Is.EqualTo(expected))
+    transpose input |> should equal expected
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Triangle`` () = 
     let input = 
         "T\n" +
@@ -184,10 +176,9 @@ let ``Triangle`` () =
         "    ER\n" + 
         "     R"
 
-    Assert.That(transpose input, Is.EqualTo(expected))
+    transpose input |> should equal expected
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Many lines`` () = 
     let input = 
         "Chor. Two households, both alike in dignity,\n" +
@@ -260,4 +251,4 @@ let ``Many lines`` () =
         "          e  .\n" +
         "          ,"
     
-    Assert.That(transpose input, Is.EqualTo(expected))
+    transpose input |> should equal expected

data/tracks/fsharp/exercises/tree-building/Program.fs

@@ -0,0 +1 @@
+module Program = let [<EntryPoint>] main _ = 0

data/tracks/fsharp/exercises/tree-building/TreeBuilding.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="TreeBuilding.fs" />
+    <Compile Include="TreeBuildingTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <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="FsUnit.xUnit" Version="3.0.0" />
+  </ItemGroup>
+
+</Project>