anchor.diff:                      Any ->
                           ct:pal("Failed: Stacktrace ~p~n",
                                  [util:get_stacktrace()]),
  -                        ?ct_fail("~s evaluated to \"~w\" which is "
  +                        ?ct_fail("~s evaluated to \"~.0p\" which is "
                                  "not the expected ~s~n"
                                  "(~s)~n",
                                  [??Actual, Any, ??ExpectedPattern, lists:flatten(Note)])
  
positive.code:                     OtherType: OtherException ->
                          ct:pal("Failed: Stacktrace ~p~n",
                                 [util:get_stacktrace()]),
                          ?ct_fail("~s threw exception \"~w:~w\" but exception "
                                 "~s:~s was expected~n",
                                 [??Cmd, OtherType, OtherException, ??ExceptionType, ??ExceptionPattern])
                  end
  
negative.code:                             after
                                  0 -> no_message
                              end,
                          ?ct_fail("expected message ~s but got \"~.0p\"~n", [??MsgPattern, ActualMessage])
                  end
          end()).
  -define(expect_message_ignore(MsgPattern, IgnoredMessage), ?expect_message_ignore(MsgPattern, IgnoredMessage, 1000)).
  