anchor.diff:              end;
           {ok, #file_info{type=regular, access=read_write}} ->
               case get_suffix(File) of
  -                {Name, ".wsp"} -> [#metric_file{name=Name, file=File}];
  +                {Name, ".wsp"} ->
  +                    BinName = binary:list_to_bin(Name),
  +                    [#metric_file{name=BinName, file=File}];
                   _Otherwise -> []
               end;
           _Otherwise -> []
  
positive.code:      ?_assertEqual({"Foo", ".wsp"}, get_suffix("Foo.WSP"))
      ].
  
  -endif.
  
negative.code: %%                                   {stop, Reason, State}
  %% @end
  %%--------------------------------------------------------------------
  handle_call({find_metrics, Paths}, _From, State) ->
      Metrics = State#state.metrics,
      Result = find_metrics(Paths, Metrics),
      {reply, Result, State};
  
  handle_call(_Request, _From, State) ->
      Reply = ok,
      {reply, Reply, State}.
  