Sha256: 4e7ccd1128ab69ad28768d853140cdad0724a75dc4b76ac4238db70904636bf0
Contents?: true
Size: 1.79 KB
Versions: 76
Compression:
Stored size: 1.79 KB
Contents
module BankAccountTest
open Xunit
open FsUnit.Xunit
open BankAccount
[<Fact>]
let ``Returns empty balance after opening`` () =
let account = mkBankAccount() |> openAccount
getBalance account |> should equal <| Some 0.0
[<Fact(Skip = "Remove to run test")>]
let ``Check basic balance`` () =
let account = mkBankAccount() |> openAccount
let openingBalance = account |> getBalance
let updatedBalance =
account
|> updateBalance 10.0
|> getBalance
openingBalance |> should equal <| Some 0.0
updatedBalance |> should equal <| Some 10.0
[<Fact(Skip = "Remove to run test")>]
let ``Balance can increment or decrement`` () =
let account = mkBankAccount() |> openAccount
let openingBalance = account |> getBalance
let addedBalance =
account
|> updateBalance 10.0
|> getBalance
let subtractedBalance =
account
|> updateBalance -15.0
|> getBalance
openingBalance |> should equal <| Some 0.0
addedBalance |> should equal <| Some 10.0
subtractedBalance |> should equal <| Some -5.0
[<Fact(Skip = "Remove to run test")>]
let ``Account can be closed`` () =
let account =
mkBankAccount()
|> openAccount
|> closeAccount
getBalance account |> should equal None
[<Fact(Skip = "Remove to run test")>]
let ``Account can be updated from multiple threads`` () =
let account =
mkBankAccount()
|> openAccount
let updateAccountAsync =
async {
account
|> updateBalance 1.0
|> ignore
}
updateAccountAsync
|> List.replicate 1000
|> Async.Parallel
|> Async.RunSynchronously
|> ignore
getBalance account |> should equal <| Some 1000.0
Version data entries
76 entries across 76 versions & 1 rubygems