modbus

defmodule F02Test do
  use ExUnit.Case
  import TestHelper

  test "Read 0 from Single Input" do
    model0 = %{ 0x50=>%{ {:i, 0x5152}=>0 } }
    cmd0 = {:ri, 0x50, 0x5152, 1}
    req0 = <<0x50, 2, 0x51, 0x52, 0, 1>>
    res0 = <<0x50, 2, 1, 0x00>>
    val0 = [0]
    pp1 cmd0, req0, res0, val0, model0
  end

  test "Read 1 from Single Input" do
    model0 = %{ 0x50=>%{ {:i, 0x5152}=>1 } }
    cmd0 = {:ri, 0x50, 0x5152, 1}
    req0 = <<0x50, 2, 0x51, 0x52, 0, 1>>
    res0 = <<0x50, 2, 1, 0x01>>
    val0 = [1]
    pp1 cmd0, req0, res0, val0, model0
  end

  test "Read 011 from Multiple Inputs" do
    model0 = %{ 0x50=>%{
      {:i, 0x5152}=>0, {:i, 0x5153}=>1, {:i, 0x5154}=>1,
    } }
    cmd0 = {:ri, 0x50, 0x5152, 3}
    req0 = <<0x50, 2, 0x51, 0x52, 0, 3>>
    res0 = <<0x50, 2, 1, 0x06>>
    val0 = [0,1,1]
    pp1 cmd0, req0, res0, val0, model0
  end

  test "Read 0011 1100 0101 from Multiple Inputs" do
    model0 = %{ 0x50=>%{
      {:i, 0x5152}=>0, {:i, 0x5153}=>0, {:i, 0x5154}=>1, {:i, 0x5155}=>1,
      {:i, 0x5156}=>1, {:i, 0x5157}=>1, {:i, 0x5158}=>0, {:i, 0x5159}=>0,
      {:i, 0x515A}=>0, {:i, 0x515B}=>1, {:i, 0x515C}=>0, {:i, 0x515D}=>1,
    } }
    cmd0 = {:ri, 0x50, 0x5152, 12}
    req0 = <<0x50, 2, 0x51, 0x52, 0, 12>>
    res0 = <<0x50, 2, 2, 0x3C, 0x0A>>
    val0 = [0,0,1,1, 1,1,0,0, 0,1,0,1]
    pp1 cmd0, req0, res0, val0, model0
  end

end