プロパティベースのテストスイートに設定を適用するにはどうすればよいですか？

Question

プロパティベースのテストスイートに設定を適用するにはどうすればよいですか？

は、私は次のことを試してみました：

let config = { Config.Quick with MaxTest = 10000 
           QuietOnSuccess = true } 

[<Property(Config=config)>] // Doesn't work because "Config" is a private member 
let ``my property-based test``() = 
    ... 

しかし、Configメンバーはプライベートに設定され、コンパイルされません。

提案がありますか？

Answer 1

あなたがMaxTestプロパティを使用し、10000にMaxTestを設定する場合：

[<Property(MaxTest = 10000, QuietOnSuccess = true)>] 
let ``my property-based test``() = 
    // ... 

あなたは、これはすべてのプロパティのためにそれを入力する必要がDRY原則に違反していると感じた場合は、派生属性を作成することができます。

type MyPropertyAttribute() = 
    inherit PropertyAttribute(
     MaxTest = 10000, 
     QuietOnSuccess = true) 

と、代わりにあなたの特性上、その属性を使用します。

[<MyProperty>] 
let ``my property-based test``() = 
    // ...