path: root/tests/source/updown_fail.scade

const bound: int = 7;

node updown() returns(probe x: int)
let
    automaton
        initial state UP
        let x = (0 -> pre x) + 1; tel
        until if x >= bound resume DOWN;

        state DOWN
        let x = (0 -> pre x) - 1; tel
        until if x <= -bound resume UP;

    returns x;
tel

node test(i: int) returns(a, b, c: int; exit: bool)
let
    exit = i >= 30;
    a = updown();
    b = 0;
    c = 0;
tel