Skip to content

Instantly share code, notes, and snippets.

@Slesa

Slesa/Compiles.fs

Created March 3, 2021 09:26
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Slesa/fa90b9386eb9c8a7a72d76b32561cc54 to your computer and use it in GitHub Desktop.
Save Slesa/fa90b9386eb9c8a7a72d76b32561cc54 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Compiles.fs
open FsUnit
[<TestFixture>]
type ``When using apply in List`` ()=
let (<*>) = List.apply
[<Test>] member x.
``it should call apply to each member``() =
[add] <*> [1; 2] <*> [10;20]
|> should equal [11;21;12;22]
Raw
CompilesNot.fs
open FsUnit
[<TestFixture>]
type ``When using apply in List`` ()=
[<Test>] member x.
``it should call apply to each member``() =
let resultList =
let (<*>) = List.apply
[add] <*> [1; 2] <*> [10;20]
resultList |> should equal [11;21;12;22]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment