Sha256: 3714e41b1babefc9ba14ff0564ef81c9cd28051ff8467691d60e00b0a7529281
Contents?: true
Size: 1.89 KB
Versions: 49
Compression:
Stored size: 1.89 KB
Contents
// This file was created manually and its version is 2.0.0.
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.0m)
[<Fact(Skip = "Remove to run test")>]
let ``Check basic balance`` () =
let account = mkBankAccount() |> openAccount
let openingBalance = account |> getBalance
let updatedBalance =
account
|> updateBalance 10.0m
|> getBalance
openingBalance |> should equal (Some 0.0m)
updatedBalance |> should equal (Some 10.0m)
[<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.0m
|> getBalance
let subtractedBalance =
account
|> updateBalance -15.0m
|> getBalance
openingBalance |> should equal (Some 0.0m)
addedBalance |> should equal (Some 10.0m)
subtractedBalance |> should equal (Some -5.0m)
[<Fact(Skip = "Remove to run test")>]
let ``Account can be closed`` () =
let account =
mkBankAccount()
|> openAccount
|> closeAccount
getBalance account |> should equal None
account |> should not' (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.0m
|> ignore
}
updateAccountAsync
|> List.replicate 1000
|> Async.Parallel
|> Async.RunSynchronously
|> ignore
getBalance account |> should equal (Some 1000.0m)
Version data entries
49 entries across 49 versions & 1 rubygems