Support [<Values>] (#12)

This commit is contained in:
Patrick Stevens
2024-06-04 23:14:23 +01:00
committed by GitHub
parent d30fde69a1
commit 2f9772007a
9 changed files with 271 additions and 27 deletions

View File

@@ -23,11 +23,13 @@ module TestSetUp =
[<SetUp>]
let setUp () =
haveOneTimeSetUp.Value |> shouldEqual 1
Interlocked.Increment setUpTimes |> setUpTimesSeen.Add
let newId = Interlocked.Increment setUpTimes
lock setUpTimesSeen (fun () -> setUpTimesSeen.Add newId)
[<TearDown>]
let tearDown () =
Interlocked.Increment tearDownTimes |> tearDownTimesSeen.Add
let newId = Interlocked.Increment tearDownTimes
lock tearDownTimesSeen (fun () -> tearDownTimesSeen.Add newId)
let haveOneTimeTearDown = ref 0