42 lines
1.2 KiB
Elixir
42 lines
1.2 KiB
Elixir
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 send_value(rcvr, val) do
|
|
msg = Shape.create([:csys, :data], data: %{value: val})
|
|
Actor.send(rcvr, msg)
|
|
end
|
|
|
|
def receive_head(head) do
|
|
assert_receive {^head, info}
|
|
{head, info}
|
|
end
|
|
|
|
describe "basic:" do
|
|
test "minimal-neural-net" do
|
|
env = Environ.create(self())
|
|
Environ.put_prog(env, :basic, Program.basic_prog())
|
|
proc = Environ.get_stage(env, :basic, :initial)
|
|
zero = CSys.neuron({[], proc, [], env})
|
|
#Actor.send(zero, "Hello Zero!")
|
|
send_value(zero, "Hello Zero!")
|
|
assert "Hello Zero!" = Shape.data(receive_head([:csys, :data])).value
|
|
Actor.send(zero, {[:csys, :create, :parent], nil})
|
|
assert_receive {:created, new1}
|
|
Actor.send(new1, {[:csys, :create, :child], 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
|