trackler 2.2.1.22 → 2.2.1.23

data/tracks/fsharp/exercises/binary-search/BinarySearchTest.fs

@@ -1,58 +1,51 @@
-module BinarySearchTest
+module BinarySearchTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 
 open BinarySearch
 
-[<Test>]
+[<Fact>]
 let ``Should return None when an empty array is searched`` () =
     let input = [||]
-    Assert.That(binarySearch input 6, Is.EqualTo(None))
+    binarySearch input 6 |> should equal None
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Should be able to find a value in a single element array with one access`` () =
     let input = [|6|]
-    Assert.That(binarySearch input 6, Is.EqualTo(Some 0))
+    binarySearch input 6 |> should equal <| Some 0
     
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Should return None if a value is less than the element in a single element array`` () =
     let input = [|94|]
-    Assert.That(binarySearch input 6, Is.EqualTo(None))
+    binarySearch input 6 |> should equal None
     
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Should return None if a value is greater than the element in a single element array`` () =
     let input = [|94|]
-    Assert.That(binarySearch input 602, Is.EqualTo(None))
+    binarySearch input 602 |> should equal None
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Should find an element in a longer array`` () =
     let input = [|6; 67; 123; 345; 456; 457; 490; 2002; 54321; 54322|]
-    Assert.That(binarySearch input 2002, Is.EqualTo(Some 7))
+    binarySearch input 2002 |> should equal <| Some 7
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Should find elements at the beginning of an array`` () =
     let input = [|6; 67; 123; 345; 456; 457; 490; 2002; 54321; 54322|]
-    Assert.That(binarySearch input 6, Is.EqualTo(Some 0))
+    binarySearch input 6 |> should equal <| Some 0
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Should find elements at the end of an array`` () =
     let input = [|6; 67; 123; 345; 456; 457; 490; 2002; 54321; 54322|]
-    Assert.That(binarySearch input 54322, Is.EqualTo(Some 9))
+    binarySearch input 54322 |> should equal <| Some 9
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Should return None if a value is less than all elements in a long array`` () =
     let input = [|6; 67; 123; 345; 456; 457; 490; 2002; 54321; 54322|]
-    Assert.That(binarySearch input 2, Is.EqualTo(None))
+    binarySearch input 2 |> should equal None
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Should return None if a value is greater than all elements in a long array`` () =
     let input = [|6; 67; 123; 345; 456; 457; 490; 2002; 54321; 54322|]
-    Assert.That(binarySearch input 54323, Is.EqualTo(None))
+    binarySearch input 54323 |> should equal None

data/tracks/fsharp/exercises/binary-search/Program.fs

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

data/tracks/fsharp/exercises/binary-search-tree/BinarySearchTree.fs

@@ -0,0 +1,15 @@
+module BinarySearchTree
+
+let left node  = failwith "You need to implement this function."
+
+let right node = failwith "You need to implement this function."
+
+let value node = failwith "You need to implement this function."
+
+let singleton value = failwith "You need to implement this function."
+
+let rec insert newValue tree = failwith "You need to implement this function."
+
+let toList tree = failwith "You need to implement this function."
+
+let fromList xs = failwith "You need to implement this function."

data/tracks/fsharp/exercises/binary-search-tree/BinarySearchTree.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="BinarySearchTree.fs" />
+    <Compile Include="BinarySearchTreeTest.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/binary-search-tree/BinarySearchTreeTest.fs

@@ -1,66 +1,59 @@
-module BinarySearchTreeTest
+module BinarySearchTreeTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 open BinarySearchTree
 
-[<Test>]
+[<Fact>]
 let ``Data is retained`` () =
     let tree = singleton 4
-    Assert.That(tree |> value, Is.EqualTo(Some 4))
+    tree |> value |> should equal <| Some 4
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Inserting less`` () =
     let tree = singleton 4 |> insert 2
-    Assert.That(tree |> value, Is.EqualTo(Some 4))
-    Assert.That(tree |> left |> Option.bind value, Is.EqualTo(Some 2))
+    tree |> value |> should equal <| Some 4
+    tree |> left |> Option.bind value |> should equal <| Some 2
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Inserting same`` () =
     let tree = singleton 4 |> insert 4
-    Assert.That(tree |> value, Is.EqualTo(Some 4))
-    Assert.That(tree |> left |> Option.bind value, Is.EqualTo(Some 4))
+    tree |> value |> should equal <| Some 4
+    tree |> left |> Option.bind value |> should equal <| Some 4
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Inserting greater`` () =
     let tree = singleton 4 |> insert 5
-    Assert.That(tree |> value, Is.EqualTo(Some 4))
-    Assert.That(tree |> right |> Option.bind value, Is.EqualTo(Some 5))
+    tree |> value |> should equal <| Some 4
+    tree |> right |> Option.bind value |> should equal <| Some 5
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Complex tree`` () =
     let tree = fromList [4; 2; 6; 1; 3; 7; 5]
-    Assert.That(tree |> value, Is.EqualTo(Some 4))
-    Assert.That(tree |> left |> Option.bind value, Is.EqualTo(Some 2))
-    Assert.That(tree |> left |> Option.bind (fun x -> x |> left) |> Option.bind value, Is.EqualTo(Some 1))
-    Assert.That(tree |> left |> Option.bind (fun x -> x |> right) |> Option.bind value, Is.EqualTo(Some 3))
-    Assert.That(tree |> right |> Option.bind value, Is.EqualTo(Some 6))
-    Assert.That(tree |> right |> Option.bind (fun x -> x |> left) |> Option.bind value, Is.EqualTo(Some 5))
-    Assert.That(tree |> right |> Option.bind (fun x -> x |> right) |> Option.bind value, Is.EqualTo(Some 7))
-
-[<Test>]
-[<Ignore("Remove to run test")>]
+    tree |> value |> should equal <| Some 4
+    tree |> left |> Option.bind value |> should equal <| Some 2
+    tree |> left |> Option.bind (fun x -> x |> left) |> Option.bind value |> should equal <| Some 1
+    tree |> left |> Option.bind (fun x -> x |> right) |> Option.bind value |> should equal <| Some 3
+    tree |> right |> Option.bind value |> should equal <| Some 6
+    tree |> right |> Option.bind (fun x -> x |> left) |> Option.bind value |> should equal <| Some 5
+    tree |> right |> Option.bind (fun x -> x |> right) |> Option.bind value |> should equal <| Some 7
+
+[<Fact(Skip = "Remove to run test")>]
 let ``Iterating one element`` () =
     let elements = singleton 4 |> toList
-    Assert.That(elements, Is.EqualTo([4]))
+    elements |> should equal [4]
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Iterating over smaller element`` () =
     let elements = fromList [4; 2] |> toList
-    Assert.That(elements, Is.EqualTo([2; 4]))
+    elements |> should equal [2; 4]
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Iterating over larger element`` () =
     let elements = fromList [4; 5] |> toList
-    Assert.That(elements, Is.EqualTo([4; 5]))
+    elements |> should equal [4; 5]
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Iterating over complex element`` () =
     let elements = fromList [4; 2; 1; 3; 6; 7; 5] |> toList
-    Assert.That(elements, Is.EqualTo([1; 2; 3; 4; 5; 6; 7])) 
+    elements |> should equal [1; 2; 3; 4; 5; 6; 7] 

data/tracks/fsharp/exercises/binary-search-tree/Program.fs

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

data/tracks/fsharp/exercises/bob/Bob.fs

@@ -0,0 +1,3 @@
+module Bob
+
+let hey (input: string): string = failwith "You need to implement this function."

data/tracks/fsharp/exercises/bob/Bob.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Bob.fs" />
+    <Compile Include="BobTest.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/bob/BobTest.fs

@@ -1,78 +1,65 @@
-module BobTest
+module BobTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 open Bob
     
-[<Test>]
+[<Fact>]
 let ``Stating something`` () =
-    Assert.That(hey "Tom-ay-to, tom-aaaah-to.", Is.EqualTo("Whatever."))
+    hey "Tom-ay-to, tom-aaaah-to." |> should equal "Whatever."
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Shouting`` () =
-    Assert.That(hey "WATCH OUT!", Is.EqualTo("Whoa, chill out!"))
+    hey "WATCH OUT!" |> should equal "Whoa, chill out!"
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Asking a question`` () =
-    Assert.That(hey "Does this cryogenic chamber make me look fat?", Is.EqualTo("Sure."))
+    hey "Does this cryogenic chamber make me look fat?" |> should equal "Sure."
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Asking a numeric question`` () =
-    Assert.That(hey "You are, what, like 15?", Is.EqualTo("Sure."))
+    hey "You are, what, like 15?" |> should equal "Sure."
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Forceful questions`` () =
-    Assert.That(hey "WHAT THE HELL WERE YOU THINKING?", Is.EqualTo("Whoa, chill out!"))
+    hey "WHAT THE HELL WERE YOU THINKING?" |> should equal "Whoa, chill out!"
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Shouting numbers`` () =
-    Assert.That(hey "1, 2, 3 GO!", Is.EqualTo("Whoa, chill out!"))
+    hey "1, 2, 3 GO!" |> should equal "Whoa, chill out!"
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Only numbers`` () =
-    Assert.That(hey "1, 2, 3", Is.EqualTo("Whatever."))
+    hey "1, 2, 3" |> should equal "Whatever."
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Question only with numbers`` () =
-    Assert.That(hey "4?", Is.EqualTo("Sure."))
+    hey "4?" |> should equal "Sure."
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Shouting with special characters`` () =
-    Assert.That(hey "ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!", Is.EqualTo("Whoa, chill out!"))
+    hey "ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!" |> should equal "Whoa, chill out!"
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Shouting with no exlamation mark`` () =
-    Assert.That(hey "I HATE YOU", Is.EqualTo("Whoa, chill out!"))
+    hey "I HATE YOU" |> should equal "Whoa, chill out!"
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Statement containing question mark`` () =
-    Assert.That(hey "Ending with ? means a question.", Is.EqualTo("Whatever."))
+    hey "Ending with ? means a question." |> should equal "Whatever."
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Prattling on`` () =
-    Assert.That(hey "Wait! Hang on. Are you going to be OK?", Is.EqualTo("Sure."))
+    hey "Wait! Hang on. Are you going to be OK?" |> should equal "Sure."
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Silence`` () =
-    Assert.That(hey "", Is.EqualTo("Fine. Be that way!"))
+    hey "" |> should equal "Fine. Be that way!"
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Prolonged silence`` () =
-    Assert.That(hey "    ", Is.EqualTo("Fine. Be that way!"))
+    hey "    " |> should equal "Fine. Be that way!"
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Multiple line question`` () =
-    Assert.That(hey "Does this cryogenic chamber make me look fat?\nno", Is.EqualTo("Whatever."))
+    hey "Does this cryogenic chamber make me look fat?\nno" |> should equal "Whatever."

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

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

data/tracks/fsharp/exercises/book-store/BookStore.fs

@@ -0,0 +1,3 @@
+module BookStore
+
+let calculateTotalCost books = failwith "You need to implement this function."

data/tracks/fsharp/exercises/book-store/BookStore.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="BookStore.fs" />
+    <Compile Include="BookStoreTest.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/book-store/BookStoreTest.fs

@@ -1,64 +1,54 @@
-module BookStoreTest
+module BookStoreTest
 
 open System
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 open BookStore
 
-[<Test>]
+[<Fact>]
 let ``Basket with single book`` () =
-    Assert.That(calculateTotalCost [1], Is.EqualTo(8))
+    calculateTotalCost [1] |> should equal 8.0
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Basket with two of same book`` () =
-    Assert.That(calculateTotalCost [2; 2], Is.EqualTo(16))
+    calculateTotalCost [2; 2] |> should equal 16.0
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Empty basket`` () =
-    Assert.That(calculateTotalCost [], Is.EqualTo(0))
+    calculateTotalCost [] |> should equal 0.0
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Basket with two different books`` () =
-    Assert.That(calculateTotalCost [1; 2], Is.EqualTo(15.2))
+    calculateTotalCost [1; 2] |> should equal 15.2
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Basket with three different books`` () =
-    Assert.That(calculateTotalCost [1; 2; 3], Is.EqualTo(21.6))
+    calculateTotalCost [1; 2; 3] |> should equal 21.6
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Basket with four different books`` () =
-    Assert.That(calculateTotalCost [1; 2; 3; 4], Is.EqualTo(25.6))
+    calculateTotalCost [1; 2; 3; 4] |> should equal 25.6
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Basket with five different books`` () =
-    Assert.That(calculateTotalCost [1; 2; 3; 4; 5], Is.EqualTo(30))
+    calculateTotalCost [1; 2; 3; 4; 5] |> should equal 30.0
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Basket with eight books`` () =
-    Assert.That(calculateTotalCost [1; 1; 2; 2; 3; 3; 4; 5], Is.EqualTo(51.20))
+    calculateTotalCost [1; 1; 2; 2; 3; 3; 4; 5] |> should equal 51.20
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Basket with nine books`` () =
-    Assert.That(calculateTotalCost [1; 1; 2; 2; 3; 3; 4; 4; 5], Is.EqualTo(55.60))
+    calculateTotalCost [1; 1; 2; 2; 3; 3; 4; 4; 5] |> should equal 55.60
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Basket with ten books`` () =
-    Assert.That(calculateTotalCost [1; 1; 2; 2; 3; 3; 4; 4; 5; 5], Is.EqualTo(60))
+    calculateTotalCost [1; 1; 2; 2; 3; 3; 4; 4; 5; 5] |> should equal 60.0
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Basket with eleven books`` () =
-    Assert.That(calculateTotalCost [1; 1; 2; 2; 3; 3; 4; 4; 5; 5; 1], Is.EqualTo(68))
+    calculateTotalCost [1; 1; 2; 2; 3; 3; 4; 4; 5; 5; 1] |> should equal 68.0
 
-[<Ignore("Remove to run test")>]
-[<Test>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Basket with twelve books`` () =
-    Assert.That(calculateTotalCost [1; 1; 2; 2; 3; 3; 4; 4; 5; 5; 1; 2], Is.EqualTo(75.20))
+    calculateTotalCost [1; 1; 2; 2; 3; 3; 4; 4; 5; 5; 1; 2] |> should equal 75.20

data/tracks/fsharp/exercises/book-store/Program.fs

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

data/tracks/fsharp/exercises/bowling/Bowling.fs

@@ -0,0 +1,7 @@
+module Bowling
+
+let newGame() = failwith "You need to implement this function."
+
+let roll pins rolls = failwith "You need to implement this function."
+
+let score game = failwith "You need to implement this function."

data/tracks/fsharp/exercises/bowling/Bowling.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Bowling.fs" />
+    <Compile Include="BowlingTest.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>