anchor.diff:                                      after
                                           0 -> no_message
                                       end,
  -                                ct:pal("expected message ~p but got ~p", [??MsgPattern, ActualMessage]),
  -                                ?assert(false)
  +                                ct_fail("expected message ~p but got \"~p\"", [??MsgPattern, ActualMessage])
                           end
                       MsgPattern -> ok
                   after
  
positive.code: -author('schuett@zib.de').
  -vsn('$Id$ ').
  
  -define(assert(Boolean), myassert(Boolean, ??Boolean)).
  
  -define(equals(Actual, Expected),
  
negative.code:                                             after
                                                  0 -> no_message
                                              end,
                                          ct_fail("expected message ~p but got \"~p\"", [??MsgPattern, ActualMessage])
                                  end
                              MsgPattern -> ok
                          after
  