anchor.diff:      ct:fail(failed).
   
   message_compare(T, T) ->
  -    true;
  -message_compare(T1, T2) ->
  -    ln(T1) =:= T2.
  -
  -%% Replaces locations like {Line,Column} with Line.
  -ln({warnings,L}) ->
  -    {warnings,ln0(L)};
  -ln({errors,EL,WL}) ->
  -    {errors,ln0(EL),ln0(WL)};
  -ln(L) ->
  -    ln0(L).
  -
  -ln0(L) ->
  -    lists:keysort(1, ln1(L)).
  -
  -ln1([]) ->
  -    [];
  -ln1([{File,Ms}|MsL]) when is_list(File) ->
  -    [{File,ln0(Ms)}|ln1(MsL)];
  -ln1([M|Ms]) ->
  -    [ln2(M)|ln1(Ms)].
  -
  -ln2({{L,_C},Mod,Mess}) ->
  -    {L,Mod,Mess};
  -ln2({error,M}) ->
  -    {error,ln2(M)};
  -ln2(M) ->
  -    M.
  +    T =:= T.
   
   %% +fnu means a peer node has to be started; slave will not do
   start_node(Name, Xargs) ->
  
positive.code: 
      {file_7702,[{abstract_code,{_,Forms}}]} = AC,
      Forms2 = unopaque_forms(Forms),
          [{attribute,_,file,_},
           _,
           _,
           {function,_,t,0,
            [{clause,_,[],[],
              [{'receive',_,
                [_,
                 {clause,_,
                  [{var,_,'M'}],
                  [],
                  [{_,_,_,
                    [{tuple,_,
                      [{atom,_,unexpected_message},
                       {var,_,'M'},
                       {atom,_,on_line},
                       {integer,_,14},
                       {atom,_,was_expecting},
                       {string,_,"foo"}]}]}]}],
                {integer,_,10000},
                [{call,_,
                  {atom,_,exit},
                  [{tuple,_,
                    [{atom,_,timeout},
                     {atom,_,on_line},
                     {integer,_,14},
                     {atom,_,was_expecting},
                     {string,_,"foo"}]}]}]}]}]},
           {eof,_}] = Forms2,
  
      file:delete(File),
      file:delete(BeamFile),
  
negative.code: 
      Cks = [{otp_check_1,
              <<"\n-include_lib(\"epp_test.erl\").\n">>,
              [{error,{2,epp,{depth,"include_lib"}}}]},
  
             {otp_check_2,
              <<"\n-include(\"epp_test.erl\").\n">>,
              [{error,{2,epp,{depth,"include"}}}]}
             ],
      [] = check(Config, Cks),
  
  