umgeher/jsx
0
Fork 0
Code Issues Pull requests Activity

new is_term function that mirrors is_json for erlang terms

Browse source
This commit is contained in:
alisdair sullivan 2012-03-04 18:40:00 -08:00
parent 620e6c7d91
commit ec295a888b
6 changed files with 64 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/jsx_to_json.erl
View file

@ -23,7 +23,7 @@
-module(jsx_to_json).
-export([to_json/2]).
-export([to_json/2, format/2]).
-export([init/1, handle_event/2]).
@ -36,14 +36,17 @@
-type opts() :: list().
-spec to_json(Source::(binary() | list()), Opts::opts()) -> binary().
-spec to_json(Source::any(), Opts::opts()) -> binary().
to_json(Source, Opts) when is_list(Source) andalso is_list(Opts) ->
(jsx:encoder(?MODULE, init(Opts), Opts))(Source);
to_json(Source, Opts) when is_binary(Source) andalso is_list(Opts) ->
(jsx:decoder(?MODULE, init(Opts), Opts))(Source).
to_json(Source, Opts) when is_list(Opts) ->
(jsx:encoder(?MODULE, init(Opts), jsx_utils:extract_opts(Opts)))(Source).
-spec format(Source::binary(), Opts::opts()) -> binary().
format(Source, Opts) when is_binary(Source) andalso is_list(Opts) ->
(jsx:decoder(?MODULE, init(Opts), jsx_utils:extract_opts(Opts)))(Source).
parse_opts(Opts) -> parse_opts(Opts, #opts{}).
@ -173,8 +176,6 @@ indent_or_space(Opts) ->
-ifdef(TEST).
-include_lib("eunit/include/eunit.hrl").
format(Source, Opts) -> to_json(Source, Opts).
basic_test_() ->
[
{"empty object", ?_assert(format(<<"{}">>, []) =:= <<"{}">>)},