anchor.diff:          fun() ->
                   receive
                       ActualMessage ->
  -                        ct:pal("expected no message but got ~p", [ActualMessage]),
  -                        ?assert(false)
  +                        ct_fail("expected no message but got \"~p\"", [ActualMessage])
                   after
                       Timeout -> ok
                   end
  
positive.code:                                     after
                                          0 -> no_message
                                      end,
                                  ct:pal("expected message ~p but got ~p", [??MsgPattern, ActualMessage]),
                                  ?assert(false)
                          end
                      MsgPattern -> ok
                  after
  
negative.code:                     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\"",
                                 [??Actual, Any, ??Expected, ExpectedVal])
                  end
          end()).
  
  