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
          end()).
  -define(expect_message(MsgPattern), ?expect_message_timeout(MsgPattern, 1000)).
  