anchor.diff:  -author('schuett@zib.de').
   -vsn('$Id$ ').
   
  +%% @doc Fails the currently run unit test with a reason that is made of the
  +%%      given Date formatted using the Format string (see io_lib:format/2).
  +-spec ct_fail(Format::atom() | string() | binary(), Data::[term()]) -> none().
  +ct_fail(Format, Data) ->
  +    Reason = lists:flatten(io_lib:format(Format, Data)),
  +    ct:fail(Reason).
  +
   -define(assert(Boolean), myassert(Boolean, ??Boolean)).
   
   -define(equals(Actual, Expected),
  
positive.code:                             after
                                  0 -> no_message
                              end,
                          ct:pal("expected message ~p but got ~p", [??MsgPattern, ActualMessage]),
                          ?assert(false)
                  end
          end()).
  -define(expect_message(MsgPattern), ?expect_message_timeout(MsgPattern, 1000)).
  
negative.code:                                             after
                                                  0 -> no_message
                                              end,
                                          ct_fail("expected message ~p but got \"~p\"", [??MsgPattern, ActualMessage])
                                  end
                              MsgPattern -> ok
                          after
  