From 2161242e5474b571cc69cf71ca3fdc9b8e3a6433 Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Mon, 25 May 2026 16:26:48 +0200 Subject: [PATCH] csys: recursive-1 test: one more neuron, a sensor as primariy receiver --- lib/csys/program.ex | 4 ++++ test/csys_test.exs | 7 +++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lib/csys/program.ex b/lib/csys/program.ex index f5bd956..64d2ea5 100644 --- a/lib/csys/program.ex +++ b/lib/csys/program.ex @@ -162,6 +162,10 @@ defmodule Scopes.CSys.Program do Environ.connect(state, zero, zero, negate()) Environ.send_message(state, zero, ~w(csys create succ)a, %{addr: [:csys, :e01, {1, 1}]}) + end, + fn state -> + Environ.send_message(state, zero, ~w(csys create pred)a, + %{addr: [:csys, :s01, {1, 1}]}) end ] end diff --git a/test/csys_test.exs b/test/csys_test.exs index f0d3567..6ab9c21 100644 --- a/test/csys_test.exs +++ b/test/csys_test.exs @@ -8,7 +8,7 @@ defmodule Scopes.CSysTest do alias Scopes.Shape def receive_select(head) do - assert_receive {^head, info} + assert_receive {^head, info}, 100 {head, info} end @@ -34,8 +34,11 @@ defmodule Scopes.CSysTest do test "recursive-1" do env = Environ.setup(Program.prepare_basic(), Program.init_recursive_1()) Process.sleep(30) - Environ.forward_value(env, [:csys, :c00, {0, 0}], 42) + Environ.forward_value(env, [:csys, :s01, {1, 1}], 42) assert receive_data().value == 42 + Environ.forward_value(env, [:csys, :s01, {1, 1}], 47) + assert receive_data().value == 5 + Process.sleep(30) refute_received msg, "unhandled message(s): #{inspect(msg)}" end end