%%
%% Licensed to the Apache Software Foundation (ASF) under one
%% or more contributor license agreements. See the NOTICE file
%% distributed with this work for additional information
%% regarding copyright ownership. The ASF licenses this file
%% to you 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(test_thrift_buffered_transport).
-include_lib("eunit/include/eunit.hrl").


new(Transport) -> thrift_buffered_transport:new(Transport).

new_test_() ->
  [
    {"new buffered membuffer", ?_assertMatch(
      {ok, {t_transport, thrift_buffered_transport, {t_buffered,
        {t_transport, thrift_membuffer_transport, {t_membuffer, []}},
        []
      }}},
      new({t_transport, thrift_membuffer_transport, {t_membuffer, []}})
    )}
  ].


read(Frame, Bytes) -> thrift_buffered_transport:read(Frame, Bytes).

read_test_() ->
  [
    {"read zero bytes from an empty buffered membuffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          []
        },
        {ok, <<>>}
      },
      read(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          []
        },
        0
      )
    )},
    {"read 1 byte from an empty buffered membuffer", ?_assertMatch(
      {_, {ok, <<>>}},
      read(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          []
        },
        1
      )
    )},
    {"read zero bytes from nonempty buffered membuffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer,
            <<"hallo world">>
          }},
          []
        },
        {ok, <<>>}
      },
      read(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer,
            <<"hallo world">>
          }},
          []
        },
        0
      )
    )},
    {"read 1 byte from nonempty buffered membuffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<"allo world">>}},
          []
        },
        {ok, <<"h">>}
      },
      read(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<"hallo world">>}},
          []
        },
        1
      )
    )},
    {"read 1 byte from nonempty buffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<"allo world">>}},
          []
        },
        {ok, <<"h">>}
      },
      read(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<"hallo world">>}},
          []
        },
        1
      )
    )},
    {"read a zillion bytes from nonempty buffered membuffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          []
        },
        {ok, <<"hallo world">>}
      },
      read(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<"hallo world">>}},
          []
        },
        65536
      )
    )}
  ].


read_exact(Frame, Bytes) -> thrift_buffered_transport:read_exact(Frame, Bytes).

read_exact_test_() ->
  [
    {"read exactly zero bytes from an empty buffered membuffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          []
        },
        {ok, <<>>}
      },
      read_exact(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          []
        },
        0
      )
    )},
    {"read exactly 1 byte from an empty buffered membuffer", ?_assertMatch(
      {_, {error, eof}},
      read_exact(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          []
        },
        1
      )
    )},
    {"read exactly zero bytes from nonempty buffered membuffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<"hallo world">>}},
          []
        },
        {ok, <<>>}
      },
      read_exact(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<"hallo world">>}},
          []
        },
        0
      )
    )},
    {"read exactly 1 byte from nonempty buffered membuffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<"allo world">>}},
          []
        },
        {ok, <<"h">>}
      },
      read_exact(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer,
            <<"hallo world">>
          }},
          []
        },
        1
      )
    )},
    {"read exactly 1 byte from nonempty buffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<"allo world">>}},
          []
        },
        {ok, <<"h">>}
      },
      read_exact(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<"hallo world">>}},
          []
        },
        1
      )
    )},
    {"read exactly a zillion bytes from nonempty buffered membuffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<"hallo world">>}},
          []
        },
        {error, eof}
      },
      read_exact(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer,
            <<"hallo world">>
          }},
          []
        },
        65536
      )
    )}
  ].


write(Framed, Data) -> thrift_buffered_transport:write(Framed, Data).

write_test_() ->
  [
    {"write empty list to empty buffered membuffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          [[], []]
        },
        ok
      },
      write(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          []
        },
        []
      )
    )},
    {"write empty list to nonempty buffered membuffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          [["hallo world"], []]
        },
        ok
      },
      write(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          ["hallo world"]
        },
        []
      )
    )},
    {"write empty binary to empty buffered membuffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          [[], <<>>]
        },
        ok
      },
      write(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          []
        },
        <<>>
      )
    )},
    {"write empty binary to nonempty buffered membuffer", ?_assertMatch(
      {
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          [["hallo world"], <<>>]
        },
        ok
      },
      write(
        {t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          ["hallo world"]
        },
        <<>>
      )
    )}
  ].


flush(Transport) -> thrift_buffered_transport:flush(Transport).

flush_test_() ->
  [
    {"flush empty buffered membuffer", ?_assertMatch(
      {{t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
          []
        },
        ok
      },
      flush({t_buffered,
        {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
        []
      })
    )},
    {"flush nonempty buffered membuffer", ?_assertMatch(
      {{t_buffered,
          {t_transport, thrift_membuffer_transport, {t_membuffer,
            [<<>>, <<"hallo world">>]
          }},
          []
        },
        ok
      },
      flush({t_buffered,
        {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
        <<"hallo world">>
      })
    )}
  ].


close(Transport) -> thrift_buffered_transport:close(Transport).

close_test_() ->
  {"close buffered membuffer", ?_assertMatch(
    {{t_buffered,
        {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
        []
      },
      ok
    },
    close({t_buffered,
      {t_transport, thrift_membuffer_transport, {t_membuffer, <<>>}},
      []
    })
  )}.