45 lines
1.4 KiB
Elixir
45 lines
1.4 KiB
Elixir
defmodule Scopes.CoreTest do
|
|
use ExUnit.Case, async: false
|
|
@moduletag timeout: 5000
|
|
|
|
alias Scopes.Core.Environ
|
|
alias Scopes.Core.Program
|
|
alias Scopes.Core.Shape
|
|
|
|
def receive_select(head) do
|
|
assert_receive {^head, info}, 100
|
|
{head, info}
|
|
end
|
|
|
|
def receive_data(head \\ [:csys, :data]) do
|
|
Shape.data(receive_select(head))
|
|
end
|
|
|
|
describe "core-basic:" do
|
|
test "minimal-b1" do
|
|
Environ.setup(Program.prepare_basic(), Program.init_seq_b1())
|
|
Process.sleep(10)
|
|
_env = Environ.get_cell({:env, :c00})
|
|
Environ.send_value({:csys, :c00, "0-0"}, 0)
|
|
assert 0 = receive_data().value
|
|
Environ.send_value({:csys, :s01, "1-0"}, 1)
|
|
assert receive_data().value == 1
|
|
#assert receive_data().value in [-1, 1]
|
|
Environ.send_value({:csys, :s01, "1-1"}, 3)
|
|
assert receive_data().value in [2, 3]
|
|
assert receive_data().value in [2, 3]
|
|
refute_receive msg, 5, "unhandled message(s): #{inspect(msg)}"
|
|
end
|
|
|
|
test "recursive-1" do
|
|
Environ.setup(Program.prepare_basic(), Program.init_recursive_1())
|
|
Process.sleep(10)
|
|
_env = Environ.get_cell({:env, :c00})
|
|
Environ.send_value({:csys, :s01, "1-1"}, 42)
|
|
assert receive_data().value == 42
|
|
Environ.send_value({:csys, :s01, "1-1"}, 47)
|
|
assert receive_data().value == 5
|
|
refute_receive msg, 5, "unhandled message(s): #{inspect(msg)}"
|
|
end
|
|
end
|
|
end
|