Как применить конфигурацию к набору тестов на основе свойств?

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`` () =
   // ...

Если вы чувствуете, что это нарушает принцип СУХОГО для того, чтобы вводить его для каждого свойства, вы можете создать производный атрибут:

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

а затем используйте этот атрибут в ваших свойствах:

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