anchor.diff:      io:format("\n\nStrong components:\n\n~p\n", [Cs]),
       ok.
   
  +erl_file_encoding(_Config) ->
  +    Root = code:root_dir(),
  +    Wc = filename:join([Root,"**","*.erl"]),
  +    ErlFiles = ordsets:subtract(ordsets:from_list(filelib:wildcard(Wc)),
  +				release_files(Root, "*.erl")),
  +    Fs = [F || F <- ErlFiles,
  +	       case epp:read_encoding(F) of
  +		   none -> false;
  +		   _ -> true
  +	       end],
  +    case Fs of
  +	[] ->
  +	    ok;
  +	[_|_] ->
  +	    io:put_chars("Files with \"coding:\":\n"),
  +	    [io:put_chars(F) || F <- Fs],
  +	    ?t:fail()
  +    end.
  +
  +xml_file_encoding(_Config) ->
  +    XmlFiles = xml_files(),
  +    Fs = [F || F <- XmlFiles, is_bad_encoding(F)],
  +    case Fs of
  +	[] ->
  +	    ok;
  +	[_|_] ->
  +	    io:put_chars("Encoding should be \"utf-8\" or \"UTF-8\":\n"),
  +	    [io:put_chars(F) || F <- Fs],
  +	    ?t:fail()
  +    end.
  +
  +xml_files() ->
  +    Root = code:root_dir(),
  +    AllWc = filename:join([Root,"**","*.xml"]),
  +    AllXmlFiles = ordsets:from_list(filelib:wildcard(AllWc)),
  +    TestsWc = filename:join([Root,"lib","*","test","**","*.xml"]),
  +    TestXmlFiles = ordsets:from_list(filelib:wildcard(TestsWc)),
  +    XmerlWc = filename:join([Root,"lib","xmerl","**","*.xml"]),
  +    XmerlXmlFiles = ordsets:from_list(filelib:wildcard(XmerlWc)),
  +    Ignore = ordsets:union([TestXmlFiles,XmerlXmlFiles,
  +			    release_files(Root, "*.xml")]),
  +    ordsets:subtract(AllXmlFiles, Ignore).
  +
  +release_files(Root, Ext) ->
  +    Wc = filename:join([Root,"release","**",Ext]),
  +    filelib:wildcard(Wc).
  +
  +is_bad_encoding(File) ->
  +    {ok,Bin} = file:read_file(File),
  +    case Bin of
  +	<<"<?xml version=\"1.0\" encoding=\"utf-8\"",_/binary>> ->
  +	    false;
  +	<<"<?xml version=\"1.0\" encoding=\"UTF-8\"",_/binary>> ->
  +	    false;
  +	_ ->
  +	    true
  +    end.
  +
   %%%
   %%% Common help functions.
   %%%
  
positive.code: 	 init_per_suite/1,end_per_suite/1]).
  -export([undefined_functions/1,deprecated_not_in_obsolete/1,
  	 obsolete_but_not_deprecated/1,call_to_deprecated/1,
           call_to_size_1/1,strong_components/1]).
  
  -include_lib("test_server/include/test_server.hrl").
  
  
negative.code: all() -> 
      [undefined_functions, deprecated_not_in_obsolete,
       obsolete_but_not_deprecated, call_to_deprecated,
       call_to_size_1, strong_components,
       erl_file_encoding, xml_file_encoding].
  
  groups() -> 
      [].
  