anchor.diff:  init_per_testcase(_Case, Config) ->
       Config.
   
  -end_per_testcase(_Case, Config) ->
  +end_per_testcase(_Case, _Config) ->
       ok.
   
   suite() ->
  
positive.code:     check_links(Mod, T);
  check_links(_, []) ->
      ok.
  
  docsmap(Fun) ->
      lists:map(fun F({Mod,_,_}) ->
  
negative.code:       end).
  
  check_links(Mod, [{a,Attr,C}|T]) ->
      case proplists:get_value(rel,Attr) of
          <<"https://erlang.org/doc/link/seemfa">> ->
              case string:lexemes(proplists:get_value(href, Attr),":#/") of
                  [_App,TargetMod,Func,Arity] ->
                      case code:get_doc(b2a(TargetMod)) of
                          {ok, _ModDoc} ->
                              case shell_docs:get_doc(b2a(TargetMod),
                                                      b2a(Func),
                                                      binary_to_integer(Arity)) of
                                  [] -> throw({could_not_find,b2a(TargetMod),
                                                  b2a(Func),
                                                  binary_to_integer(Arity)});
                                  _Else  -> ok
                              end;
                          _Else ->
                              throw({could_not_find, TargetMod, Attr})
                      end;
                  _Callback ->
                      ok
              end;
          _OtherlinkType ->
              ok
      end,
      check_links(Mod, C),
      check_links(Mod, T);
  