actor-missing-input-and-output-port.cal

// This test is obtained from Chapter 4 of "Tokens, What Tokens: A gentle introduction to dataflow programming"
namespace test:
    actor InitialTokens (tokens) In ==> Out:
        A: action ==> [tokens] repeat #tokens end
        B: action [a] ==> [a] do end
        schedule fsm s0:
            s0 (A) --> s1;
            s1 (B) --> s1;
        end
    end

    actor SinkWithRedundantOutput() int IN ==> int Out:
        action IN:[token] ==>
        do
            println(token);
        end
    end

    network ActorMissingInputAndOutputPort () ==>:
    entities
        init1 = InitialTokens(tokens = [0,1,2]);
        sink = SinkWithRedundantOutput();
    structure
        init1.Out --> sink.IN;
    end
end