test/erl/src/test_membuffer.erl

-module(test_membuffer).
-export([t/0]).

-include("thriftTest_types.hrl").

test_data() ->
    #xtruct{string_thing = <<"foobar">>,
	    byte_thing = 123,
	    i32_thing = 1234567,
	    i64_thing = 12345678900}.

t1() ->
    {ok, Transport} = thrift_memory_buffer:new(),
    {ok, Protocol} = thrift_binary_protocol:new(Transport),
    TestData = test_data(),
    ok = thrift_protocol:write(Protocol,
			       {{struct, element(2, thriftTest_types:struct_info('xtruct'))},
				TestData}),
    {ok, Result} = thrift_protocol:read(Protocol,
					{struct, element(2, thriftTest_types:struct_info('xtruct'))},
					'xtruct'),

    Result = TestData.


t2() ->
    {ok, Transport} = thrift_memory_buffer:new(),
    {ok, Protocol} = thrift_binary_protocol:new(Transport),
    TestData = test_data(),
    ok = thrift_protocol:write(Protocol,
			       {{struct, element(2, thriftTest_types:struct_info('xtruct'))},
				TestData}),
    {ok, Result} = thrift_protocol:read(Protocol,
					{struct, element(2, thriftTest_types:struct_info('xtruct3'))},
					'xtruct3'),

    Result = #xtruct3{string_thing = TestData#xtruct.string_thing,
                      changed = undefined,
                      i32_thing = TestData#xtruct.i32_thing,
                      i64_thing = TestData#xtruct.i64_thing}.


t3() ->
    {ok, Transport} = thrift_memory_buffer:new(),
    {ok, Protocol} = thrift_binary_protocol:new(Transport),
    TestData = #bools{im_true = true, im_false = false},
    ok = thrift_protocol:write(Protocol,
			       {{struct, element(2, thriftTest_types:struct_info('bools'))},
				TestData}),
    {ok, Result} = thrift_protocol:read(Protocol,
					{struct, element(2, thriftTest_types:struct_info('bools'))},
					'bools'),

    true = TestData#bools.im_true  =:= Result#bools.im_true,
    true = TestData#bools.im_false =:= Result#bools.im_false.


t() ->
    t1(),
    t2(),
    t3().