namespace Example.Tests

open Example
open Mutannot
open Xunit

type CalculatorTests() =
    [<Fact>]
    [<MutationCase("""
    diff --git a/Example.Tests/Calculator.fs b/Example.Tests/Calculator.fs
    index cfcce3b..39be7f3 100644
    --- a/Example.Tests/Calculator.fs
    +++ b/Example.Tests/Calculator.fs
    @@ -1,7 +1,7 @@
     namespace Example

     module Calculator =
    -    let addOne value = value + 1
    +    let addOne value = value - 1

         let absoluteDifference left right =
             if left >= right then left - right else right - left

        member _.AddOne_increments() =
            Assert.Equal(42, Calculator.addOne 41)
    """)>]
    member _.AddOne_increments() = Assert.Equal(42, Calculator.addOne 41)