anchor.diff:            finalize(Rest, [Option|Acc]);
           _Else ->
             opt_error(
  -            "'--~s' value must be -1 (infinity) or >= ~w",
  +            "'--~s' value must be -1 (infinity) or >= ~w.",
               [Key, ?MINIMUM_TIMEOUT])
         end;
       test ->
  
positive.code:       end;
      module ->
        case proplists:is_defined(module, Rest) of
          true -> opt_error("Multiple instances of '--module'.");
          false -> ok
        end,
        case proplists:get_value(test, Rest, 1) of
          Name when is_atom(Name) ->
            NewRest = proplists:delete(test, Rest),
            finalize(NewRest, [{entry_point, {Value, Name, []}}|Acc]);
          _ -> opt_error("The name of the test function is missing")
        end;
      output ->
        case file:open(Value, [write]) of
  
negative.code:         _:_ ->
            InvalidEntryPoint =
              "The entry point ~w:~w/~w is not valid. Make sure you have"
              " specified the correct module ('-m') and test function ('-t').",
            opt_error(InvalidEntryPoint, [M,F,length(B)])
        end;
      _ ->
  