trackler 2.2.1.22 → 2.2.1.23

data/tracks/fsharp/exercises/largest-series-product/LargestSeriesProductTest.fs

@@ -1,35 +1,40 @@
 module LargestSeriesProductTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
+open System
 open LargestSeriesProduct
     
-[<TestCase("01234567890", 2, ExpectedResult = 72)>]
-[<TestCase("1027839564", 3, ExpectedResult = 270, Ignore = "Remove to run test case")>]
-let ``Gets the largest product``(digits: string) (seriesLength: int) =
-    largestProduct digits seriesLength
+[<Theory(Skip = "Remove to run test")>]
+[<InlineData("01234567890", 2, 72)>]
+[<InlineData("1027839564", 3, 270)>]
+let ``Gets the largest product``(digits: string) (seriesLength: int) (expected: int) =
+    largestProduct digits seriesLength |> should equal expected
+
     
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Largest product works for small numbers`` () =
-    Assert.That(largestProduct "19" 2, Is.EqualTo(9))
+    largestProduct "19" 2 |> should equal 9
     
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Largest product works for large numbers`` () =
     let LARGE_NUMBER = "73167176531330624919225119674426574742355349194934"
-    Assert.That(largestProduct LARGE_NUMBER 6, Is.EqualTo(23520))
+    largestProduct LARGE_NUMBER 6 |> should equal 23520
     
-[<TestCase("0000", 2, ExpectedResult = 0, Ignore = "Remove to run test case")>]
-[<TestCase("99099", 3, ExpectedResult = 0, Ignore = "Remove to run test case")>]
-let ``Largest product works if all spans contain zero``(digits: string) (seriesLength: int) =
-    largestProduct digits seriesLength
+[<Theory(Skip = "Remove to run test")>]
+[<InlineData("0000", 2, 0)>]
+[<InlineData("99099", 3, 0)>]
+let ``Largest product works if all spans contain zero``(digits: string) (seriesLength: int) (expected: int) =
+    largestProduct digits seriesLength |> should equal expected
+
     
-[<TestCase("", ExpectedResult = 1)>]
-[<TestCase("123", ExpectedResult = 1)>]
-let ``Largest product for empty span is 1``(digits: string) =
-    largestProduct digits 0
+[<Theory(Skip = "Remove to run test")>]
+[<InlineData("", 1)>]
+[<InlineData("123", 1)>]
+let ``Largest product for empty span is 1``(digits: string) (expected: int) =
+    largestProduct digits 0 |> should equal expected
+
     
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Cannot slice empty string with nonzero span`` () =
-    Assert.That((fun () -> largestProduct "" 1 |> ignore), Throws.Exception)
+    (fun () -> largestProduct "" 1 |> ignore) |> should throw typeof<Exception>

data/tracks/fsharp/exercises/largest-series-product/Program.fs

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

data/tracks/fsharp/exercises/leap/Leap.fs

@@ -0,0 +1,3 @@
+module LeapYear
+
+let isLeapYear (year: int): bool = failwith "You need to implement this function."

data/tracks/fsharp/exercises/leap/Leap.fsproj

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

@@ -1,23 +1,21 @@
-module LeapYearTest
+module LeapYearTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 open LeapYear
     
-[<Test>]
+[<Fact>]
 let ``Is 1996 a valid leap year`` () = 
-    Assert.That(isLeapYear 1996, Is.True)
+    isLeapYear 1996 |> should equal true
     
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Is 1997 an invalid leap year`` () = 
-    Assert.That(isLeapYear 1997, Is.False)
+    isLeapYear 1997 |> should equal false
     
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Is the turn of the 20th century an invalid leap year`` () = 
-    Assert.That(isLeapYear 1900, Is.False)
+    isLeapYear 1900 |> should equal false
     
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Is the turn of the 25th century a valid leap year`` () = 
-    Assert.That(isLeapYear 2400, Is.True)
+    isLeapYear 2400 |> should equal true

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

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

data/tracks/fsharp/exercises/ledger/Ledger.fsproj

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

@@ -1,10 +1,11 @@
-module LedgerTest
+module LedgerTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 
 open Ledger
 
-[<Test>]
+[<Fact>]
 let ``Empty ledger`` () =
     let currency = "USD"
     let locale = "en-US"
@@ -12,9 +13,9 @@ let ``Empty ledger`` () =
     let expected =
         "Date       | Description               | Change       "
 
-    Assert.That(formatLedger currency locale entries, Is.EqualTo(expected))
+    formatLedger currency locale entries |> should equal expected
 
-[<Test>]
+[<Fact>]
 let ``One entry`` () =
     let currency = "USD"
     let locale = "en-US"
@@ -26,9 +27,9 @@ let ``One entry`` () =
         "Date       | Description               | Change       \n" +
         "01/01/2015 | Buy present               |      ($10.00)"
 
-    Assert.That(formatLedger currency locale entries, Is.EqualTo(expected))
+    formatLedger currency locale entries |> should equal expected
 
-[<Test>]
+[<Fact>]
 let ``Credit and debit`` () =
     let currency = "USD"
     let locale = "en-US"
@@ -42,9 +43,9 @@ let ``Credit and debit`` () =
         "01/01/2015 | Buy present               |      ($10.00)\n" +
         "01/02/2015 | Get present               |       $10.00 "
 
-    Assert.That(formatLedger currency locale entries, Is.EqualTo(expected))
+    formatLedger currency locale entries |> should equal expected
  
-[<Test>]
+[<Fact>]
 let ``Multiple entries on same date ordered by description`` () =
     let currency = "USD"
     let locale = "en-US"
@@ -58,9 +59,9 @@ let ``Multiple entries on same date ordered by description`` () =
         "01/01/2015 | Buy present               |      ($10.00)\n" +
         "01/01/2015 | Get present               |       $10.00 "
 
-    Assert.That(formatLedger currency locale entries, Is.EqualTo(expected))
+    formatLedger currency locale entries |> should equal expected
    
-[<Test>]
+[<Fact>]
 let ``Final order tie breaker is change`` () =
     let currency = "USD"
     let locale = "en-US"
@@ -76,9 +77,9 @@ let ``Final order tie breaker is change`` () =
         "01/01/2015 | Something                 |        $0.00 \n" +
         "01/01/2015 | Something                 |        $0.01 "
 
-    Assert.That(formatLedger currency locale entries, Is.EqualTo(expected))
+    formatLedger currency locale entries |> should equal expected
   
-[<Test>]
+[<Fact>]
 let ``Overlong descriptions`` () =
     let currency = "USD"
     let locale = "en-US"
@@ -90,9 +91,9 @@ let ``Overlong descriptions`` () =
         "Date       | Description               | Change       \n" +
         "01/01/2015 | Freude schoner Gotterf... |   ($1,234.56)"
 
-    Assert.That(formatLedger currency locale entries, Is.EqualTo(expected))
+    formatLedger currency locale entries |> should equal expected
   
-[<Test>]
+[<Fact>]
 let ``Euros`` () =
     let currency = "EUR"
     let locale = "en-US"
@@ -104,9 +105,9 @@ let ``Euros`` () =
         "Date       | Description               | Change       \n" +
         "01/01/2015 | Buy present               |      (€10.00)"
 
-    Assert.That(formatLedger currency locale entries, Is.EqualTo(expected))
+    formatLedger currency locale entries |> should equal expected
    
-[<Test>]
+[<Fact>]
 let ``Dutch locale`` () =
     let currency = "USD"
     let locale = "nl-NL"
@@ -118,9 +119,9 @@ let ``Dutch locale`` () =
         "Datum      | Omschrijving              | Verandering  \n" +
         "12-03-2015 | Buy present               |   $ 1.234,56 "
 
-    Assert.That(formatLedger currency locale entries, Is.EqualTo(expected))
+    formatLedger currency locale entries |> should equal expected
  
-[<Test>]
+[<Fact>]
 let ``Dutch negative number with 3 digits before decimal point`` () =
     let currency = "USD"
     let locale = "nl-NL"
@@ -132,9 +133,9 @@ let ``Dutch negative number with 3 digits before decimal point`` () =
         "Datum      | Omschrijving              | Verandering  \n" +
         "12-03-2015 | Buy present               |     $ -123,45"
 
-    Assert.That(formatLedger currency locale entries, Is.EqualTo(expected))
+    formatLedger currency locale entries |> should equal expected
    
-[<Test>]
+[<Fact>]
 let ``American negative number with 3 digits before decimal point`` () =
     let currency = "USD"
     let locale = "en-US"
@@ -146,4 +147,4 @@ let ``American negative number with 3 digits before decimal point`` () =
         "Date       | Description               | Change       \n" +
         "03/12/2015 | Buy present               |     ($123.45)"
 
-    Assert.That(formatLedger currency locale entries, Is.EqualTo(expected))
+    formatLedger currency locale entries |> should equal expected

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

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

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

@@ -1,24 +1,3 @@
 module LensPerson
 
-open Aether
-open Aether.Operators
-open System
-
-type Address = 
-    { street: string
-      houseNumber: int
-      place: string
-      country: string }
-
-type Born = 
-    { at: Address
-      on: DateTime }
-
-type Name = 
-    { name: string
-      surName: string }
-
-type Person = 
-    { name: Name
-      born: Born
-      address: Address }
+// TODO: implement this module

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

@@ -0,0 +1,23 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="LensPerson.fs" />
+    <Compile Include="LensPersonTest.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" />
+    <PackageReference Include="Aether" Version="8.2.0" />
+  </ItemGroup>
+
+</Project>

data/tracks/fsharp/exercises/lens-person/LensPersonTest.fs

@@ -1,7 +1,8 @@
-module LensPersonTest
+module LensPersonTest
 
 open System
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 open Aether
 open Aether.Operators
 open LensPerson
@@ -23,21 +24,18 @@ let testPerson =
           place = "Fallmeadow"
           country = "Canada" } }
 
-[<Test>]
+[<Fact>]
 let ``Set born at street`` () =
-    Assert.That(Optic.get bornAtStreet testPerson, Is.EqualTo("Longway"))
+    Optic.get bornAtStreet testPerson |> should equal "Longway"
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Set current street`` () =
-    Assert.That(Optic.set currentStreet "Middleroad" testPerson |> Optic.get currentStreet, Is.EqualTo("Middleroad"))
+    Optic.set currentStreet "Middleroad" testPerson |> Optic.get currentStreet |> should equal "Middleroad"
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Upper case born at street`` () =
-    Assert.That(Optic.map bornAtStreet (fun x -> x.ToUpper()) testPerson |> Optic.get bornAtStreet, Is.EqualTo("LONGWAY"))
+    Optic.map bornAtStreet (fun x -> x.ToUpper()) testPerson |> Optic.get bornAtStreet |> should equal "LONGWAY"
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Set birth month`` () =
-    Assert.That(Optic.set birthMonth 9 testPerson |> Optic.get bornOn, Is.EqualTo(DateTime(1984, 9, 12)))
+    Optic.set birthMonth 9 testPerson |> Optic.get bornOn |> should equal <| DateTime(1984, 9, 12)

data/tracks/fsharp/exercises/lens-person/Program.fs

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

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

@@ -0,0 +1,13 @@
+module LinkedList
+
+let mkLinkedList () = failwith "You need to implement this function."
+
+let addToEmpty newValue linkedList = failwith "You need to implement this function."
+
+let pop linkedList = failwith "You need to implement this function."
+
+let shift linkedList = failwith "You need to implement this function."
+
+let push newValue linkedList = failwith "You need to implement this function."
+
+let unshift newValue linkedList = failwith "You need to implement this function."

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

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

@@ -1,9 +1,10 @@
 module LinkedListTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 open LinkedList
 
-[<Test>]
+[<Fact>]
 let ``Push and pop are first in last out order`` () =
     let linkedList = mkLinkedList ()
     linkedList |> push 10
@@ -12,11 +13,10 @@ let ``Push and pop are first in last out order`` () =
     let val1 = pop linkedList
     let val2 = pop linkedList
 
-    Assert.That(val1, Is.EqualTo(20))
-    Assert.That(val2, Is.EqualTo(10))
+    val1 |> should equal 20
+    val2 |> should equal 10
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Push and shift are first in first out order`` () =
     let linkedList = mkLinkedList ()
     linkedList |> push 10
@@ -25,11 +25,10 @@ let ``Push and shift are first in first out order`` () =
     let val1 = shift linkedList
     let val2 = shift linkedList
 
-    Assert.That(val1, Is.EqualTo(10))
-    Assert.That(val2, Is.EqualTo(20))
+    val1 |> should equal 10
+    val2 |> should equal 20
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Unshift and shift are last in first out order`` () =
     let linkedList = mkLinkedList ()
     linkedList |> unshift 10
@@ -38,11 +37,10 @@ let ``Unshift and shift are last in first out order`` () =
     let val1 = shift linkedList
     let val2 = shift linkedList
 
-    Assert.That(val1, Is.EqualTo(20))
-    Assert.That(val2, Is.EqualTo(10))
+    val1 |> should equal 20
+    val2 |> should equal 10
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Unshift and pop are last in last out order`` () =
     let linkedList = mkLinkedList ()
     linkedList |> unshift 10
@@ -51,11 +49,10 @@ let ``Unshift and pop are last in last out order`` () =
     let val1 = pop linkedList
     let val2 = pop linkedList
 
-    Assert.That(val1, Is.EqualTo(10))
-    Assert.That(val2, Is.EqualTo(20))
+    val1 |> should equal 10
+    val2 |> should equal 20
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Push and pop can handle multiple values`` () =
     let linkedList = mkLinkedList ()
     linkedList |> push 10
@@ -66,12 +63,11 @@ let ``Push and pop can handle multiple values`` () =
     let val2 = pop linkedList
     let val3 = pop linkedList
 
-    Assert.That(val1, Is.EqualTo(30))
-    Assert.That(val2, Is.EqualTo(20))
-    Assert.That(val3, Is.EqualTo(10))
+    val1 |> should equal 30
+    val2 |> should equal 20
+    val3 |> should equal 10
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Unshift and shift can handle multiple values`` () =
     let linkedList = mkLinkedList ()
     linkedList |> unshift 10
@@ -82,12 +78,11 @@ let ``Unshift and shift can handle multiple values`` () =
     let val2 = shift linkedList
     let val3 = shift linkedList
 
-    Assert.That(val1, Is.EqualTo(30))
-    Assert.That(val2, Is.EqualTo(20))
-    Assert.That(val3, Is.EqualTo(10))
+    val1 |> should equal 30
+    val2 |> should equal 20
+    val3 |> should equal 10
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``All methods of manipulating the linkedList can be used together`` () =
     let linkedList = mkLinkedList ()
     linkedList |> push 10
@@ -95,12 +90,12 @@ let ``All methods of manipulating the linkedList can be used together`` () =
 
     let val1 = pop linkedList
 
-    Assert.That(val1, Is.EqualTo(20))
+    val1 |> should equal 20
 
     linkedList |> push 30
     let val2 = shift linkedList
 
-    Assert.That(val2, Is.EqualTo(10))
+    val2 |> should equal 10
 
     linkedList |> unshift 40
     linkedList |> push 50
@@ -109,6 +104,6 @@ let ``All methods of manipulating the linkedList can be used together`` () =
     let val4 = pop linkedList
     let val5 = shift linkedList
 
-    Assert.That(val3, Is.EqualTo(40))
-    Assert.That(val4, Is.EqualTo(50))
-    Assert.That(val5, Is.EqualTo(30))
+    val3 |> should equal 40
+    val4 |> should equal 50
+    val5 |> should equal 30

data/tracks/fsharp/exercises/linked-list/Program.fs

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

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

@@ -0,0 +1,17 @@
+module ListOps
+
+let rec foldl folder state list = failwith "You need to implement this function."
+
+let rec foldr folder list state = failwith "You need to implement this function."
+
+let length list = failwith "You need to implement this function."
+
+let reverse list = failwith "You need to implement this function."
+
+let map f list = failwith "You need to implement this function."
+
+let filter f list = failwith "You need to implement this function."
+
+let append xs ys = failwith "You need to implement this function."
+
+let concat xs = failwith "You need to implement this function."

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

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