modbus

defmodule F15Test do
  use ExUnit.Case
  import TestHelper

  test "Write 011 to Multiple Coils" do
    model0 = %{
      0x50 => %{
        {:c, 0x5152} => 1,
        {:c, 0x5153} => 0,
        {:c, 0x5154} => 0
      }
    }

    model1 = %{
      0x50 => %{
        {:c, 0x5152} => 0,
        {:c, 0x5153} => 1,
        {:c, 0x5154} => 1
      }
    }

    val0 = [0, 1, 1]
    cmd0 = {:fc, 0x50, 0x5152, val0}
    req0 = <<0x50, 15, 0x51, 0x52, 0, 3, 1, 0x06>>
    res0 = <<0x50, 15, 0x51, 0x52, 0, 3>>
    pp2(cmd0, req0, res0, model0, model1)
  end

  test "Write 0011 1100 0101 to Multiple Coils" do
    model0 = %{
      0x50 => %{
        {:c, 0x5152} => 1,
        {:c, 0x5153} => 1,
        {:c, 0x5154} => 0,
        {:c, 0x5155} => 0,
        {:c, 0x5156} => 0,
        {:c, 0x5157} => 0,
        {:c, 0x5158} => 1,
        {:c, 0x5159} => 1,
        {:c, 0x515A} => 1,
        {:c, 0x515B} => 0,
        {:c, 0x515C} => 1,
        {:c, 0x515D} => 0
      }
    }

    model1 = %{
      0x50 => %{
        {:c, 0x5152} => 0,
        {:c, 0x5153} => 0,
        {:c, 0x5154} => 1,
        {:c, 0x5155} => 1,
        {:c, 0x5156} => 1,
        {:c, 0x5157} => 1,
        {:c, 0x5158} => 0,
        {:c, 0x5159} => 0,
        {:c, 0x515A} => 0,
        {:c, 0x515B} => 1,
        {:c, 0x515C} => 0,
        {:c, 0x515D} => 1
      }
    }

    val0 = [0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1]
    cmd0 = {:fc, 0x50, 0x5152, val0}
    req0 = <<0x50, 15, 0x51, 0x52, 0, 12, 2, 0x3C, 0x0A>>
    res0 = <<0x50, 15, 0x51, 0x52, 0, 12>>
    pp2(cmd0, req0, res0, model0, model1)
  end
end