anchor.diff:              throw({compile, No})
       end.
   
  -opts(M)
  -  when M == "rfc4006_cc";
  -       M == "rfc4072_eap" ->
  -    [inherits("rfc4005_nas")];
  -opts("rfc4740_sip") ->
  -    [inherits("rfc4590_digest")];
  -opts(_) ->
  -    [].
  +opts(Dict) ->
  +    case lists:keyfind(list_to_atom(Dict), 1, ?INHERITS) of
  +        {_, Is} ->
  +            lists:map(fun inherits/1, Is);
  +        false ->
  +            []
  +    end.
  +
  +inherits(File)
  +  when is_atom(File) ->
  +    inherits(atom_to_list(File));
   
   inherits(File) ->
       {Name, _} = make_name(File),
  
positive.code:     %% Return the top directory containing examples/code.
      Top.
  
  find_files(Dir, RE) ->
      filelib:fold_files(Dir, RE, false, fun cons/2, []).
  
  cons(H,T) ->
      [H|T].
  
  %% ===========================================================================
  
  
negative.code:                                        init_timeout,
                                         start_timeout]]).
  
  %% @inherits dependencies between example dictionaries. This is needed
  %% in order compile them in the right order. Can't compile to erl to
  %% find out since @inherits is a beam dependency.
  -define(INHERITS, [{rfc4006_cc,  [rfc4005_nas]},
                     {rfc4072_eap, [rfc4005_nas]},
                     {rfc4740_sip, [rfc4590_digest]}]).
  
  %% ===========================================================================
  
  suite() ->
  