capricorn 2.0.8 → 2.0.9

data/erlang/lib/ejson/test/arrays.escript

@@ -0,0 +1,47 @@
+#! /usr/bin/env escript
+
+main([]) ->
+    code:add_pathz("ebin/"),
+    check_good(),
+    check_errors().
+
+check_good() ->
+    lists:map(fun
+        ({J, E}) ->
+             E = ejson:decode(J),
+            J = ejson:encode(E);
+        ({J, E, J2}) ->
+            E = ejson:decode(J),
+            J2 = ejson:encode(E)
+        end,
+    good()).
+
+check_errors() ->
+    lists:map(fun(E) ->
+        ok = case (catch ejson:decode(E)) of
+            {invalid_json, _} -> ok;
+            Error ->
+                io:format("Error: ~p~n", [E]),
+                Error
+        end
+    end, errors()).
+
+good() ->
+    [
+        {<<"[]">>, []},
+        {<<"[\t[\n]\r]">>, [[]], <<"[[]]">>},
+        {<<"[\t123, \r true\n]">>, [123, true], <<"[123,true]">>},
+        {<<"[1,\"foo\"]">>, [1, <<"foo">>]},
+        {<<"[1199344435545.0,1]">>, [1199344435545.0,1]},
+        {<<"[\"\\u00A1\",\"\\u00FC\"]">>, [<<194, 161>>, <<195, 188>>]}
+    ].
+
+errors() ->
+    [
+        <<"[">>,
+        <<"]">>,
+        <<"[,]">>,
+        <<"[123">>,
+        <<"[123,]">>,
+        <<"[32 true]">>
+    ].

data/erlang/lib/ejson/test/compound.escript

@@ -0,0 +1,56 @@
+#! /usr/bin/env escript
+
+main([]) ->
+    code:add_pathz("ebin/"),
+    check_good(),
+    check_errors().
+
+check_good() ->
+    lists:map(fun
+        ({J, E}) ->
+             E = ejson:decode(J),
+            J = ejson:encode(E);
+        ({J, E, J2}) ->
+            E = ejson:decode(J),
+            J2 = ejson:encode(E)
+        end,
+    good()).
+
+check_errors() ->
+    lists:map(fun(E) ->
+        ok = case (catch ejson:decode(E)) of
+            {invalid_json, _} -> ok;
+            Error ->
+                io:format("Error: ~p~n", [E]),
+                Error
+        end
+    end, errors()).
+
+good() ->
+    [
+        {<<"[{}]">>, [{[]}]},
+        {<<"{\"foo\":[123]}">>, {[{<<"foo">>, [123]}]}},
+        {<<"{\"foo\":{\"bar\":true}}">>,
+            {[{<<"foo">>, {[{<<"bar">>, true}]} }]} },
+        {<<"{\"foo\":[],\"bar\":{\"baz\":true},\"alice\":\"bob\"}">>,
+            {[
+                {<<"foo">>, []},
+                {<<"bar">>, {[{<<"baz">>, true}]}},
+                {<<"alice">>, <<"bob">>}
+            ]}
+        },
+        {<<"[-123,\"foo\",{\"bar\":[]},null]">>,
+            [
+                -123,
+                <<"foo">>,
+                {[{<<"bar">>, []}]},
+                null
+            ]
+        }
+    ].
+
+errors() ->
+    [
+        <<"[{}">>,
+        <<"}]">>
+    ].

data/erlang/lib/ejson/test/literals.escript

@@ -0,0 +1,30 @@
+#! /usr/bin/env escript
+
+main([]) ->
+    code:add_pathz("ebin/"),
+    ok = true(),
+    ok = false(),
+    ok = null().
+
+true() ->
+    true = ejson:decode(<<"true">>),
+    case ejson:encode(true) of
+        <<"true">> -> ok;
+        Error -> throw({invalid_result, Error})
+    end.
+
+false() ->
+    false = ejson:decode(<<"false">>),
+    case ejson:encode(false) of
+        <<"false">> -> ok;
+        Error -> throw({invalid_result, Error})
+    end.
+
+null() ->
+    null = ejson:decode(<<"null">>),
+    case ejson:encode(null) of
+        <<"null">> -> ok;
+        Error -> throw({invalid_result, Error})
+    end.    
+
+

data/erlang/lib/ejson/test/numbers.escript

@@ -0,0 +1,70 @@
+#! /usr/bin/env escript
+
+main([]) ->
+    code:add_pathz("ebin/"),
+    check_good(),
+    check_errors().
+
+check_good() ->
+    lists:map(fun
+        ({J, E}) ->
+            E = ejson:decode(J),
+            J = ejson:encode(E);
+        ({J, E, J2}) ->
+            E = ejson:decode(J),
+            J2 = ejson:encode(E)
+        end,
+    good()).
+
+check_errors() ->
+    lists:map(fun({Json, Reason}) ->
+        ok = case (catch ejson:decode(Json)) of
+            {invalid_json, {invalid_number, Reason}} -> ok;
+            {invalid_json, Reason} -> ok;
+            Error ->
+                Fmt = "Wrong error for ~p: ~p (exp: {invalid_number, ~p})~n",
+                io:format(standard_error, Fmt, [Json, Error, Reason]),
+                Error
+        end
+    end, errors()).
+
+good() ->
+    [
+        {<<"0">>, 0},
+        {<<"1">>, 1},
+        {<<"12">>, 12},
+        {<<"-3">>, -3},
+        {<<"309230948234098">>, 309230948234098},
+        {<<"1.0">>, 1.0},
+        {<<"0.3">>, 0.3},
+        {<<"2.4234324">>, 2.4234324},
+        {<<"-3.1416">>, -3.1416},
+        {<<"1E4">>, 10000.0, <<"1.0e4">>},
+        {<<"1.0E+01">>, 10.0, <<"10.0">>},
+        {<<"1e1">>, 10.0, <<"10.0">>},
+        {<<"3.0E2">>, 300.0, <<"300.0">>},
+        {<<"0E3">>, 0.0, <<"0.0">>},
+        {<<"1.5E3">>, 1500.0, <<"1.5e3">>},
+        {<<"1.5E-1">>, 0.15, <<"0.15">>},
+        {<<"-0.323E+2">>, -32.3, <<"-32.3">>}
+    ].
+
+errors() ->
+    [
+        {<<"02">>, leading_zero},
+        {<<"-0">>, no_more_data},
+        {<<"-01">>, "-01"},
+        {<<"+12">>, plus_prefix_is_invalid},
+        {<<"0A">>, leading_zero},
+        {<<".1">>, decimals_require_a_zero},
+        {<<"0.A">>, not_digit_after_decimal},
+        {<<"1A">>, invalid_digit},
+        {<<"1.A">>, not_digit_after_decimal},
+        {<<"-">>, lonely_hyphen},
+        {<<"1.">>, missing_fraction},
+        {<<"1.-1">>, not_digit_after_decimal},
+        {<<"1E">>, invalid_exponent},
+        {<<"1-E2">>, invalid_digit},
+        {<<"2E +3">>, no_exponent_after_e},
+        {<<"1EA">>, invalid_digit_in_exponent}
+    ].

data/erlang/lib/ejson/test/objects.escript

@@ -0,0 +1,51 @@
+#! /usr/bin/env escript
+
+main([]) ->
+    code:add_pathz("ebin/"),
+    check_good(),
+    check_errors().
+
+check_good() ->
+    lists:map(fun
+        ({J, E}) ->
+             E = ejson:decode(J),
+            J = ejson:encode(E);
+        ({J, E, J2}) ->
+            E = ejson:decode(J),
+            J2 = ejson:encode(E)
+        end,
+    good()).
+
+check_errors() ->
+    lists:map(fun(E) ->
+        ok = case (catch ejson:decode(E)) of
+            {invalid_json, _} -> ok;
+            Error ->
+                io:format("Error: ~p~n", [E]),
+                Error
+        end
+    end, errors()).
+
+good() ->
+    [
+        {<<"{}">>, {[]}},
+        {<<"{\"foo\": \"bar\"}">>,
+            {[{<<"foo">>, <<"bar">>}]},
+            <<"{\"foo\":\"bar\"}">>},
+        {<<"\n\n{\"foo\":\r \"bar\",\n \"baz\"\t: 123 }">>,
+            {[{<<"foo">>, <<"bar">>}, {<<"baz">>, 123}]},
+            <<"{\"foo\":\"bar\",\"baz\":123}">>}
+    ].
+
+errors() ->
+    [
+        <<"{">>,
+        <<"{,}">>,
+        <<"{123:true}">>,
+        <<"{false:123}">>,
+        <<"{:\"stuff\"}">>,
+        <<"{\"key\":}">>,
+        <<"{\"key\": 123">>,
+        <<"{\"key\": 123 true">>,
+        <<"{\"key\": 123,}">>
+    ].

data/erlang/lib/ejson/test/strings.escript

@@ -0,0 +1,49 @@
+#! /usr/bin/env escript
+
+main([]) ->
+    code:add_pathz("ebin/"),
+    check_good(),
+    check_errors().
+
+check_good() ->
+    lists:map(fun
+        ({J, E}) ->
+            E = ejson:decode(J),
+            J = ejson:encode(E);
+        ({J, E, J2}) ->
+            E = ejson:decode(J),
+            J2 = ejson:encode(E)
+        end,
+    good()).
+
+check_errors() ->
+    lists:map(fun(E) ->
+        ok = case (catch ejson:decode(E)) of
+            {invalid_json, _} -> ok;
+            Error ->
+                io:format("Error: ~p~n", [E]),
+                Error
+        end
+    end, errors()).
+
+good() ->
+    [
+        {<<"\"\"">>, <<"">>},
+        {<<"\"0\"">>, <<"0">>},
+        {<<"\"foo\"">>, <<"foo">>},
+        {<<"\"\\\"foobar\\\"\"">>, <<"\"foobar\"">>},
+        {<<"\"\\n\\n\\n\"">>, <<"\n\n\n">>},
+        {<<"\"\\\" \\b\\f\\r\\n\\t\\\"\"">>, <<"\" \b\f\r\n\t\"">>},
+        {<<"\"foo\\u0005bar\"">>, <<"foo", 5, "bar">>},
+        {<<"\"\\uFFFF\"">>, <<239, 191, 191>>},
+        {<<"\"\\uD834\\uDD1E\"">>, <<240, 157, 132, 158>>},
+        {<<"\"\\uD834foo\\uDD1E\"">>, <<237, 160, 180, "foo", 237, 180, 158>>}
+    ].
+
+errors() ->
+    [
+        <<"\"", 0, "\"">>,
+        <<"\"\\g\"">>,
+        % CouchDB-345
+        <<"\"",78,69,73,77,69,78,32,70,216,82,82,32,70,65,69,78,33,"\"">>
+    ].

data/erlang/lib/ejson/test/timing.escript

@@ -0,0 +1,43 @@
+#! /usr/bin/env escript
+
+main([]) ->
+    code:add_pathz("ebin/"),
+    Cases = read_cases("test/timing.json"),
+    io:format("Timing runs...~n", []),
+    run(ejson, Cases),
+    run(mochijson2, Cases),
+    run(rfc4627, Cases).
+
+run(Module, Cases) ->
+    F = fun() ->
+        lists:foreach(fun(_) ->
+           lists:map(fun(C) -> Module:decode(C) end, Cases)
+        end, lists:seq(1, 2000))
+    end,
+    io:format("~p => ~p~n", [Module, timed(F)]).
+
+timed(Func) ->
+    Start = micro(),
+    Func(),
+    End = micro(),
+    (End-Start)/1000000.
+
+micro() ->
+    {Mega, Secs, Micro} = erlang:now(),
+    (Mega * 1000000 + Secs) * 1000000 + Micro.
+
+read_cases(FName) ->
+    {ok, Data} = file:read_file(FName),
+    read_cases(Data, [], []).
+
+read_cases(Data, Curr, Acc) ->
+    case Data of
+        <<>> ->
+            Case = list_to_binary(lists:reverse(Curr)),
+            lists:reverse([Case | Acc]);
+        <<"---", Rest/binary>> ->
+            Case = list_to_binary(lists:reverse(Curr)),
+            read_cases(Rest, [], [Case | Acc]);
+        <<First:8/integer, Rest/binary>> ->
+            read_cases(Rest, [First | Curr], Acc)
+    end.

data/erlang/lib/ejson/test/timing.json

@@ -0,0 +1,382 @@
+[]
+---
+[123, true]
+---
+[1,"foo"]
+---
+[1199344435545.0,1]
+---
+["\u00A1","\u00FC"]
+---
+[{}]
+---
+{"foo":[123]}
+---
+{"foo":{"bar":true}}
+---
+{"foo":[], "bar": {"baz": true}, "alice": "bob"}
+---
+[-123,"foo",{"bar":[]},null]
+---
+0
+---
+309230948234098
+---
+-0.323E+2
+---
+{"foo": "bar"}
+---
+{"foo": "bar", "baz": 123}
+---
+[{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}}]
+---
+[{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}},
+{"animals": {
+    "dog": [
+        {"name": "Rufus", "breed": "labrador"},
+        {"name": "Marty", "breed": "whippet"}
+    ],
+    "cat": {"name": "Matilda"}
+}}
+]