mirror of
https://github.com/zap-proto/erlang.git
synced 2026-10-30 15:05:14 +00:00
zeekay
ce51a2074b
Mechanical, byte-balanced rename across the full tree (1648 ins / 1648 del): - ecapnp -> ezap, capnpc-erl -> zapc-erl, *_capnp.erl -> *_zap.erl - .capnp schemas -> .zap (schema, rpc, c++, test, addressbook, calculator) - "Cap'n Proto" prose -> "Zap" in docs and module @doc comments - 58 renamed/modified source, header, schema, sample and test files Brand-neutrality (canonical zap-proto): - README + overview.edoc project URLs -> zap-proto.io / github.com/zap-proto/erlang - doc links -> zap-proto.dev (encoding, otherlang, sdks/erlang) - generator banner (ezap_compiler) + all 6 generated modules -> https://github.com/zap-proto/erlang - Makefile dep_zap_test -> https://github.com/zap-proto/zap_test.git Build hygiene: - modernize git:// -> https:// for dep_eunit_formatters (git:// is dead on GitHub) Upstream license/author attribution headers (Andreas Stenius) preserved. Tests unchanged: proper_SUITE / ezap_props property tests + eunit suite.
72 lines
2.2 KiB
Erlang
72 lines
2.2 KiB
Erlang
%%
|
|
%% Copyright 2013, Andreas Stenius <[email protected]>
|
|
%%
|
|
%% 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(ezap_obj_tests).
|
|
-ifdef(TEST).
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
-include("include/ezap.hrl").
|
|
|
|
-import(ezap_test_utils, [data/1]).
|
|
|
|
from_ref_test() ->
|
|
Data = data([<<0,0,0,0, 2,0,3,0>>]),
|
|
Ref = ezap_ref:get(0, 0, Data),
|
|
?assertEqual(
|
|
#object{ ref=Ref, schema=test_zap },
|
|
ezap_obj:from_ref(Ref, object, test_zap)).
|
|
|
|
field_test() ->
|
|
T = test_zap:'Test'(),
|
|
?assertEqual(
|
|
#field{ id = 0, name=intField,
|
|
kind=#data{ type=uint8, align=0, default= <<33>> } },
|
|
ezap_obj:field(intField, #object{ schema=T })).
|
|
|
|
copy_test() ->
|
|
Bin = <<0,0,0,0, 2,0,2,0,
|
|
1234:32/integer, 5678:32/integer,
|
|
8765:32/integer, 4321:32/integer,
|
|
0:64/integer,
|
|
1,0,0,0, 106,0,0,0,
|
|
"Hello World!", 0,
|
|
0:24/integer
|
|
>>,
|
|
Data = data([Bin]),
|
|
Ref = ezap_ref:get(0, 0, Data),
|
|
Obj = ezap_obj:from_ref(Ref, object, test_zap),
|
|
?assertEqual(#object{ ref=Ref, schema=test_zap }, Obj),
|
|
?assertEqual(Bin, ezap_obj:copy(Obj)).
|
|
|
|
object_test() ->
|
|
Data = data([]),
|
|
|
|
NullRef = #ref{ data=Data },
|
|
NullObj = ezap_obj:from_ref(NullRef, object, test_zap),
|
|
|
|
ListRef = #ref{ kind=#list_ref{ size=8 }, data=Data },
|
|
ListObj = ezap_obj:from_ref(ListRef, object, test_zap),
|
|
|
|
T = test_zap:'Test'(),
|
|
?assertEqual(
|
|
#object{ schema=T, ref=NullRef },
|
|
ezap_obj:to_struct('Test', NullObj)),
|
|
|
|
?assertEqual([], ezap_obj:to_list('Simple', ListObj)),
|
|
?assertEqual(<<>>, ezap_obj:to_text(ListObj)),
|
|
?assertEqual(<<>>, ezap_obj:to_data(ListObj)).
|
|
|
|
-endif.
|