quality: Add test cases for instructions

This commit is contained in:
Eishun Kondoh 2019-04-28 23:57:22 +09:00
parent b4c6f0822c
commit a0ee397921
9 changed files with 120 additions and 43 deletions

View file

@ -3,15 +3,18 @@ defmodule Openflow.Instruction.Meter do
alias __MODULE__
def new(meter_id) do
%Meter{meter_id: meter_id}
end
@type t :: %Meter{meter_id: 0..0xFFFFFFFF}
@spec new(meter_id :: 0..0xFFFFFFFF) :: t()
def new(meter_id), do: %Meter{meter_id: meter_id}
@spec to_binary(t()) :: <<_::64>>
def to_binary(%Meter{meter_id: meter_id}) do
meter_id_int = Openflow.Utils.get_enum(meter_id, :meter_id)
<<6::16, 8::16, meter_id_int::32>>
end
@spec read(<<_::64>>) :: t()
def read(<<6::16, _::16, meter_id_int::32>>) do
meter_id = Openflow.Utils.get_enum(meter_id_int, :meter_id)
%Meter{meter_id: meter_id}