anchor.diff:                message (formatResult axs) (formatResult exs) (formatResult missing) (formatResult extra)
     |> Tests.failtest
   
  -let inline private except (elementsToCheck: Map<_,uint32>) (elementsToContain: Map<_,uint32>) (isExcept: bool) =
  +let private except (elementsToCheck: Map<_,uint32>) (elementsToContain: Map<_,uint32>) (isExcept: bool) =
     let getMapValue (map: Map<_, uint32>) (element) =
       map |> Map.find element
     let getResult found expected =
  
positive.code:   if hits <> expected then Tests.failtestf "%s. Should be of count: %d, but was: %d" message expected hits
  
  /// Expects the two values to equal each other.
  let inline equal (actual : 'a) (expected : 'a) message =
    match box actual, box expected with
    | (:? string as a), (:? string as e) ->
      let ai = a.ToCharArray().GetEnumerator()
  
negative.code:               message (formatInput actual) (formatInput formatedExpected) missingElementsInfo extraElementsInfo
    |> Tests.failtest
  
  let private formattedList (sequence) =
    let formattedElements =
      sequence
      |> Seq.mapi( fun index element -> sprintf "[%d] %A" index element)
  