anchor.diff:  -define(assert_not_equal(Unexpected, Expr),
   ((fun (__X) ->
       case (Expr) of
  -    __X -> .erlang:error({assert_not_equal,
  +    __X -> erlang:error({assert_not_equal,
                   [{module,     ?MODULE},
                    {line,       ?LINE},
                    {expression, (??Expr)},
  
positive.code: -define(assert_exception(Class, Term, Expr),
  ((fun () ->
      try (Expr) of
          __V -> .erlang:error({assert_exception,
                      [{module,     ?MODULE},
                       {line,       ?LINE},
                       {expression, (??Expr)},
  
negative.code:         Class ->
              case __T of
              Term ->
                  erlang:error({assert_not_exception,
                      [{module,     ?MODULE},
                       {line,       ?LINE},
                       {expression, (??Expr)},
                       {pattern,
                          "{" ++ (??Class) ++ ", " ++ (??Term) ++ ", [...]}"},
                       {unexpected_exception,
                           {__C, __T, erlang:get_stacktrace()}}] });
              _ -> ok
              end;
          _ -> ok
  