quality: Add test cases for group_stats messages

This commit is contained in:
Eishun Kondoh 2019-05-05 21:34:24 +09:00
parent 2557778042
commit 87ff193b63
4 changed files with 89 additions and 18 deletions

View file

@ -4,34 +4,43 @@ defmodule Openflow.Multipart.Group.Request do
xid: 0,
# virtual field
datapath_id: nil,
aux_id: nil,
flags: [],
group_id: :all
)
alias __MODULE__
@type t :: %Request{
version: 4,
xid: 0..0xFFFFFFFF,
datapath_id: String.t() | nil,
aux_id: 0..0xFF | nil,
flags: [],
group_id: Openflow.GroupMod.id()
}
@spec ofp_type() :: 18
def ofp_type, do: 18
def new(options) when is_list(options) do
@spec new(xid: 0..0xFFFFFFFF, group_id: Openflow.GroupMod.id()) :: t()
def new(options \\ []) do
%Request{
xid: options[:xid] || 0,
group_id: options[:group_id] || :all
}
end
def new(group_id) when is_integer(group_id) or is_atom(group_id) do
%Request{group_id: group_id}
end
@spec read(<<_::32, _::_*8>>) :: t()
def read(<<group_id_int::32, _::size(4)-unit(8)>>) do
group_id = Openflow.Utils.get_enum(group_id_int, :group_id)
%Request{group_id: group_id}
end
@spec to_binary(t()) :: binary()
def to_binary(%Request{group_id: group_id} = msg) do
group_id_int = Openflow.Utils.get_enum(group_id, :group_id)
body_bin = <<group_id_int::32, 0::size(4)-unit(8)>>
header_bin = Openflow.Multipart.Request.header(msg)
<<header_bin::bytes, body_bin::bytes>>
<<header_bin::bytes, group_id_int::32, 0::size(4)-unit(8)>>
end
end