defmodule Scopes.CSysTest do
  use ExUnit.Case, async: true
  @moduletag timeout: 5000

  alias Scopes.Core.Actor
  alias Scopes.CSys
  alias Scopes.CSys.Environ
  alias Scopes.CSys.Program
  alias Scopes.Shape

  def receive_select(head) do
    assert_receive {^head, info}
    {head, info}
  end

  def receive_data(head \\ [:csys, :data]) do
    Shape.data(receive_select(head))
  end

  describe "basic:" do
    test "minimal-neural-net" do
      {stages, _trans} = Program.basic_prog()
      zero = Environ.setup(stages[:initial])
      #Actor.send(zero, "Hello Zero!")
      CSys.send_value(zero, "Hello Zero!")
      assert "Hello Zero!" = receive_data().value
      Actor.send(zero, {[:csys, :create, :pred], nil})
      #Actor.send(zero, {[:csys, :create, :pred], data: %{op: &neg_only})
      assert_receive {:created, new1}
      Actor.send(new1, {[:csys, :create, :succ], nil})
      assert_receive {:created, _new2}
      Actor.send(new1, "Hello New1!")
      assert_receive "Hello New1!"
      assert_receive "Hello New1!"
      Process.sleep(50)
      # Actor.stop(zero)
      refute_received msg, "unhandled message(s): #{inspect(msg)}"
    end
  end
end