anchor.diff:      [<InlineData("revision", "0", Rank.Revision, 0)>]
       let ParseAssignVersionPartReturnsCorrectResult(rank : string, rankValue : string, expectedRank : Rank, expectedRankValue : int) =
           let actual = [| "-a"; rank; rankValue |] |> Args.Parse
  -        Assert.Equal<Arg>([AssignRank(expectedRank, expectedRankValue)], actual |> Seq.toList)
  +        verify <@ [AssignRank(expectedRank, expectedRankValue)] = (actual |> Seq.toList) @>
   
       [<Theory>]
       [<InlineData("major",    Rank.Major)>]
  
positive.code: open Xunit.Extensions
  
  module ArgsTests =
      [<Theory>]
      [<InlineData("0.5")>]
      [<InlineData("3.1")>]    
  
negative.code:     [<InlineData("revision", Rank.Revision)>]
      let ParseIncementReturnsCorrectResult(rank : string, expectedRank : Rank) =
          let actual = [| "-i"; rank |] |> Args.Parse
          verify <@ [Increment(expectedRank)] = (actual |> Seq.toList) @>
  
      [<Fact>]
      let ParseListVersion() =
          let actual = [| "-l" |] |> Args.Parse
          verify <@ [ListVersions] = (actual |> Seq.toList) @>
  
      [<Theory>]
      [<InlineData("-?")>]
      [<InlineData("-h")>]
      let ParseHelpArgsReturnsShowHelp(switch : string) =
          let actual = [| switch |] |> Args.Parse
          verify <@ [ShowHelp] = (actual |> Seq.toList) @>
  
      [<Fact>]
      let ParseEmptyArgsReturnsShowHelp() =
          let actual = [| |] |> Args.Parse
          verify <@ [ShowHelp] = (actual |> Seq.toList) @>
  
      [<Theory>]
      [<InlineData("-a")>]
  