expecto dependent tests

test.fsx

#r "nuget: Expecto"

open Expecto

let dependentTest testName condition testCase =
    test testName {
        if condition then
            testCase ()
        else
            skiptestf "Expecto: condition failed"
    }

let test =
    testSequenced
    <| testList
        "does the thing"
        [ let mutable shouldExecuteFollowOnTests = true

          test "condition" {
              shouldExecuteFollowOnTests <- false
              failwith "condition test failed"
          }

          testList
              "dependent tests"
              [ dependentTest
                    "follow on test"
                    shouldExecuteFollowOnTests
                    (fun () -> Expect.equal true true "yup this is defintiely true") ] ]

let config =
    { defaultConfig with
        verbosity = Logging.LogLevel.Debug
        printer = Expecto.Impl.TestPrinters.summaryPrinter (Impl.TestPrinters.defaultPrinter) }

runTests config test