58 lines
1.7 KiB
Elixir
58 lines
1.7 KiB
Elixir
defmodule Scopes.CSysTest do
|
|
use ExUnit.Case, async: true
|
|
@moduletag timeout: 5000
|
|
|
|
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
|
|
_env = Environ.setup(Program.prepare_basic(), Program.init_seq_b1())
|
|
zero = receive_data(~w(csys created)a).new
|
|
CSys.send_value(zero, 0)
|
|
assert 0 = receive_data().value
|
|
one = receive_data(~w(csys created)a).new
|
|
_two = receive_data(~w(csys created)a).new
|
|
three = receive_data(~w(csys created)a).new
|
|
Process.sleep(50)
|
|
CSys.send_value(one, 1)
|
|
assert receive_data().value == 1
|
|
#assert receive_data().value in [-1, 1]
|
|
CSys.send_value(three, 3)
|
|
assert receive_data().value in [2, 3]
|
|
assert receive_data().value in [2, 3]
|
|
refute_received msg, "unhandled message(s): #{inspect(msg)}"
|
|
end
|
|
end
|
|
|
|
def init_recursive_1() do [
|
|
fn [zero] ->
|
|
CSys.send_message(zero, ~w(csys connect)a, %{target: zero, op: Program.negate()})
|
|
CSys.send_message(zero, ~w(csys create succ)a)
|
|
end
|
|
]
|
|
end
|
|
|
|
describe "recursive:" do
|
|
test "zero + effector" do
|
|
_env = Environ.setup(Program.prepare_basic(), init_recursive_1())
|
|
zero = receive_data(~w(csys created)a).new
|
|
_eff = receive_data(~w(csys created)a).new
|
|
Process.sleep(50)
|
|
CSys.send_value(zero, 42)
|
|
assert receive_data().value == 42
|
|
refute_received msg, "unhandled message(s): #{inspect(msg)}"
|
|
end
|
|
end
|
|
end
|