anchor.diff:                 end,
       _ = spawn_writers(UnitTestPid, Parallel, Count, WriteFun),
       wait_writers_completion(Parallel),
  -
  -    %% kill reader
  -    [exit(R, kill) || R <- Reader],
  +    stop_readers(Reader),
  +
       receive {compare_failed, A, B} ->
           ?ct_fail("~n~w ~nis not smaller or equals than ~n~w", [A, B])
       after 100 ->
  
positive.code:                end,
      _ = spawn_writers(UnitTestPid, WriterCount, Count, WriteFun),
      wait_writers_completion(WriterCount),
  
      %% kill readers and verify result
      [exit(R, kill) || R <- ReaderPids],
      ReadResults = [
                      begin
                          Loop = fun(F, Collected) ->
  
negative.code:                end,
      _ = spawn_writers(UnitTestPid, Parallel, Count, WriteFun),
      wait_writers_completion(Parallel),
      stop_readers(Readers),
  
      check_monotonic_reader_failure(),
  
      ok.
  