Sha256: bc4867fe4ecb7e3a050d542574386671eb97f1f5864bc97ab349fccc165fae97

Contents?: true

Size: 1.23 KB

Versions: 80

Compression:

Stored size: 1.23 KB

Contents

// This file was created manually and its version is 1.0.0.

module LensPersonTest

open System
open Xunit
open FsUnit.Xunit
open Aether
open Aether.Operators
open LensPerson

let testPerson =
    { name = 
        { name = "Jane Joanna"
          surName = "Doe" }
      born = 
        { at = 
            { street = "Longway"
              houseNumber = 1024
              place = "Springfield"
              country = "United States" }
          on = DateTime(1984, 4, 12) }
      address = 
        { street = "Shortlane"
          houseNumber = 2
          place = "Fallmeadow"
          country = "Canada" } }

[<Fact>]
let ``Set born at street`` () =
    Optic.get bornAtStreet testPerson |> should equal "Longway"

[<Fact(Skip = "Remove to run test")>]
let ``Set current street`` () =
    Optic.set currentStreet "Middleroad" testPerson |> Optic.get currentStreet |> should equal "Middleroad"

[<Fact(Skip = "Remove to run test")>]
let ``Upper case born at street`` () =
    Optic.map bornAtStreet (fun x -> x.ToUpper()) testPerson |> Optic.get bornAtStreet |> should equal "LONGWAY"

[<Fact(Skip = "Remove to run test")>]
let ``Set birth month`` () =
    Optic.set birthMonth 9 testPerson |> Optic.get bornOn |> should equal <| DateTime(1984, 9, 12)

Version data entries

80 entries across 80 versions & 1 rubygems

Version Path
trackler-2.2.1.139 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.138 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.137 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.136 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.135 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.134 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.133 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.132 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.131 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.130 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.129 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.128 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.127 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.126 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.125 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.124 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.123 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.122 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.121 tracks/fsharp/exercises/lens-person/LensPersonTest.fs
trackler-2.2.1.120 tracks/fsharp/exercises/lens-person/LensPersonTest.fs