anchor.diff:              { DepartmentId = 1
                 DepartmentName = "hoge"
                 VersionNo = -1 }
  -        try 
  -            MsSql.delete department |> ignore
  -            fail()
  -        with
  -        | OptimisticLockException _ as ex -> printfn "%s" (string ex)
  -        | ex -> fail ex
  +        let ex = Assert.Throws<OptimisticLockException>(fun() -> 
  +            MsSql.delete department 
  +        ) 
  +        ignore() 
       
       [<Test>]
       let ``delete : computed version : optimistic lock confliction``() = 
  
positive.code:             { AddressId = 1
                Street = "hoge"
                VersionNo = Array.empty }
          try 
              MsSql.delete address |> ignore
              fail()
          with
          | OptimisticLockException _ as ex -> printfn "%s" (string ex)
          | ex -> fail ex
      
      [<Test>]
      let deleteIgnoreVersion() = 
          use ts = new TransactionScope()
          
          let department = 
              { DepartmentId = 1
                DepartmentName = "aaa"
                VersionNo = -1 }
          MsSql.deleteWithOpt department (DeleteOpt(IgnoreVersion = true))
      
      [<Test>]
      let ``deleteIgnoreVersion : no affected row``() = 
          use ts = new TransactionScope()
  
negative.code:             { DepartmentId = 0
                DepartmentName = "aaa"
                VersionNo = -1 }
          let ex = Assert.Throws<NoAffectedRowException>(fun() -> 
              MsSql.deleteWithOpt department (DeleteOpt(IgnoreVersion = true))
          ) 
          ignore()