summaryrefslogtreecommitdiff
path: root/src/couch/test/eunit/couch_ejson_size_tests.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/couch/test/eunit/couch_ejson_size_tests.erl')
-rw-r--r--src/couch/test/eunit/couch_ejson_size_tests.erl99
1 files changed, 0 insertions, 99 deletions
diff --git a/src/couch/test/eunit/couch_ejson_size_tests.erl b/src/couch/test/eunit/couch_ejson_size_tests.erl
deleted file mode 100644
index 27803d8b7..000000000
--- a/src/couch/test/eunit/couch_ejson_size_tests.erl
+++ /dev/null
@@ -1,99 +0,0 @@
-% Licensed under the Apache License, Version 2.0 (the "License"); you may not
-% use this file except in compliance with the License. You may obtain a copy of
-% the License at
-%
-% http://www.apache.org/licenses/LICENSE-2.0
-%
-% Unless required by applicable law or agreed to in writing, software
-% distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
-% WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
-% License for the specific language governing permissions and limitations under
-% the License.
-
--module(couch_ejson_size_tests).
-
--include_lib("eunit/include/eunit.hrl").
-
-% 4 byte utf8 encoding
--define(HWAIR, $\x{10348}).
-% 3 byte utf8 encoding
--define(EURO, $\x{20ac}).
-% 2 byte utf8 encoding
--define(CENT, $\x{a2}).
-
-ejson_size_test_() ->
- [
- ?_assertEqual(R, couch_ejson_size:encoded_size(Input))
- || {R, Input} <- [
- {1, 1},
- {1, 1},
- {2, -1},
- {1, 9},
- {2, 10},
- {3, -10},
- {2, 11},
- {2, 99},
- {3, 100},
- {3, 999},
- {4, 1000},
- {4, 9999},
- {5, 10000},
-
- {3, 0.0},
- {3, 0.1},
- {3, 1.0},
- {4, -1.0},
- {3, 1.0e9},
- {4, 1.0e10},
- {5, 1.0e-10},
- {5, 1.0e-99},
- {6, 1.0e-100},
- {3, 1.0e-323},
-
- {2, arr_nested(0)},
- {22, arr_nested(10)},
- {2002, arr_nested(1000)},
- {9, obj_nested(0)},
- {69, obj_nested(10)},
- {6009, obj_nested(1000)},
-
- {4, null},
- {4, true},
- {5, false},
-
- {3, str(1, $x)},
- {4, str(1, ?CENT)},
- {5, str(1, ?EURO)},
- {6, str(1, ?HWAIR)},
- {3, str(1, $\x{1})},
- {12, str(10, $x)},
- {22, str(10, ?CENT)},
- {32, str(10, ?EURO)},
- {42, str(10, ?HWAIR)},
- {12, str(10, $\x{1})}
- ]
- ].
-
-%% Helper functions
-
-arr_nested(MaxDepth) ->
- arr_nested(MaxDepth, 0).
-
-obj_nested(MaxDepth) ->
- obj_nested(MaxDepth, 0).
-
-obj(N, K, V) ->
- {[{K, V} || _ <- lists:seq(1, N)]}.
-
-str(N, C) ->
- unicode:characters_to_binary([C || _ <- lists:seq(1, N)]).
-
-arr_nested(MaxDepth, MaxDepth) ->
- [];
-arr_nested(MaxDepth, Depth) ->
- [arr_nested(MaxDepth, Depth + 1)].
-
-obj_nested(MaxDepth, MaxDepth) ->
- obj(1, <<"k">>, <<"v">>);
-obj_nested(MaxDepth, Depth) ->
- {[{<<"k">>, obj_nested(MaxDepth, Depth + 1)}]}.