added test for multi_terms

This commit is contained in:
alisdair sullivan 2010-06-24 15:55:08 -07:00
parent 1320241e68
commit 0a96a059a1
3 changed files with 60 additions and 40 deletions

View file

@ -68,12 +68,7 @@ parse_opts([{escaped_unicode, Value}|Rest], {Comments, _EscapedUnicode, Multi})
true = lists:member(Value, [ascii, codepoint, none]),
parse_opts(Rest, {Comments, Value, Multi});
parse_opts([{multi_term, Value}|Rest], {Comments, EscapedUnicode, _Multi}) ->
ok = case Value of
S when is_binary(S) -> ok
; whitespace -> ok
; true -> ok
; false -> ok
end,
true = lists:member(Value, [true, false]),
parse_opts(Rest, {Comments, EscapedUnicode, Value});
parse_opts([{encoding, _}|Rest], Opts) ->
parse_opts(Rest, Opts).