anchor.diff:                      Any ->
                           ct:pal("Failed: Stacktrace ~p~n",
                                  [erlang:get_stacktrace()]),
  -                        ?ct_fail("~p evaluated to \"~p\" which is "
  -                               "not the expected ~p that evaluates to \"~p\"",
  +                        ?ct_fail("~s evaluated to \"~w\" which is "
  +                               "not the expected ~s that evaluates to \"~w\"",
                                  [??Actual, Any, ??Expected, ExpectedVal])
                   end
           end()).
  
positive.code: %% expect_message_ignore(MsgPattern, IgnoredMessage) ->
  %%     receive
  %%         IgnoredMessage ->
  %%             ct:pal("ignored ~p", [IgnoredMessage]),
  %%             expect_message_ignore(MsgPattern, IgnoredMessage);
  %%         MsgPattern ->
  %%             ok
  
negative.code:                                             after
                                                  0 -> no_message
                                              end,
                                          ?ct_fail("expected message ~s but got \"~w\"", [??MsgPattern, ActualMessage])
                                  end
                              MsgPattern -> ok
                          after
  