anchor.diff:        testList "string isnotempty" [
           testCase "when string is not empty" <| fun _ ->
             Expect.isNotEmpty "dede" "should pass because string is not empty"
  -        
  +
           testCase "when string is empty" (fun _ ->
             Expect.isNotEmpty "" "should fail because string is empty"
           ) |> assertTestFails
  
positive.code:         testList "infinity testing" [
            testCase "is not an infinity" <| fun _ ->
              Expect.isNotInfinity 4.0 "should pass because it's not an negative infinity nor positive"
            
            testCase "is a negative infinity" (fun _ ->
              Expect.isNotInfinity Double.NegativeInfinity "should fail because it's negative infinity"
             ) |> assertTestFails
  
negative.code:       ]
  
      let deadlockTest() =
        let waitOne = new System.Threading.ManualResetEventSlim()
        let waitTwo = new System.Threading.ManualResetEventSlim()
        let lockOne = new System.Threading.ReaderWriterLockSlim()
        let lockTwo = new System.Threading.ReaderWriterLockSlim()
        testList "deadlock" [
          testCaseAsync "case A" <| async {
            lockOne.EnterReadLock()
            waitTwo.Wait 200 |> ignore
            waitOne.Set()
            lockTwo.EnterWriteLock()
            lockTwo.ExitWriteLock()
            lockOne.ExitReadLock()
          }
          testCaseAsync "case B" <| async {
            lockTwo.EnterReadLock()
            waitOne.Wait 200 |> ignore
            waitTwo.Set()
            lockOne.EnterWriteLock()
            lockOne.ExitWriteLock()
            lockTwo.ExitReadLock()
          }
        ]
  
  