anchor.diff:  
       let sequencedGroup() =
         testList "with other" [
  -        singleTest
  -        testSequencedGroup "stop deadlock" (deadlockTest())
  -        singleTest
  +        singleTest "hi"
  +        testSequencedGroup "stop deadlock" (deadlockTest("deadlock"))
  +        singleTest "another hi"
         ]
   
       let twoSequencedGroups() =
         testList "with other" [
  -        singleTest
  -        testSequencedGroup "stop deadlock" (deadlockTest())
  -        testSequencedGroup "stop deadlock other" (deadlockTest())
  -        singleTest
  +        singleTest "hi"
  +        testSequencedGroup "stop deadlock" (deadlockTest("deadlock"))
  +        testSequencedGroup "stop deadlock other" (deadlockTest("other deadlock"))
  +        singleTest "another hi"
         ]
   
       yield testAsync "single" {
  
positive.code:             stress = TimeSpan.FromMilliseconds 100.0 |> Some
              printer = TestPrinters.silent
              verbosity = Logging.LogLevel.Fatal }
        Expect.equal (runTests config singleTest) 0 "one"
      }
  
      yield testAsync "memory" {
  
negative.code:         }
        ]
  
      let deadlockTest(name) =
        let lockOne = new obj()
        let lockTwo = new obj()
        testList name [
          testAsync "case A" {
            repeat100 (fun () ->
              lock lockOne (fun () ->
  