anchor.diff:            %% Silently drop it for modules that export it.
             Res1 = case lists:member(FA, FunsToTestNormally) of
                        true ->
  -                         ct:pal("Testing ~p:~p/~p~n", [Module, Fun, Arity]),
  +                         ct:pal("Testing ~p:~p/~p", [Module, Fun, Arity]),
                            test(Module, Fun, Arity, Count, [{threads, 1}]);
                        false -> skipped
                    end,
  
positive.code:     ErrList = [ case lists:member(X, ExpFuncs) of
                      true -> true;
                      false ->
                          ct:pal("Excluded non exported function ~p:~p~n", [Module,X]),
                          false
                  end ||
                    X <- ExcludeList ],
  
negative.code:                   lists:flatten(ResList)) of
          true -> ok;
          _ ->
              ct:pal("Excluded all exported functions for module ~p?!",
                     [Module]),
              catch ct:comment("Excluded all exported functions for module ~p?!",
                               [Module]),
              ok
      end,
  