use crate::parser::parse_test;

parse_test! {
name: left_recursion
syntax: r#"
    rule start {
        group a {
            X(e) <- e:#this "X";
        }
        group b {
            Y() <- "Y";
        }
    }

    "#
passing tests:
    "Y" => "Y()"
    "YX" => "X(Y())"
    "YXX" => "X(X(Y()))"

failing tests:
    "XY"
    "X"

}

parse_test! {
name: left_recursion_direct
syntax: r#"
    rule start {
        group a {
            X(e) <- e:start "X";
        }
        group b {
            Y() <- "Y";
        }
    }
    "#
passing tests:
    "Y" => "Y()"
    "YX" => "X(Y())"
    "YXX" => "X(X(Y()))"

failing tests:
    "XY"
    "X"

}

parse_test! {
name: tree_climb_one_block
syntax: r#"
    rule start {
        X(e) <- e:#this "X";
        Y() <- "";
    }
    "#
passing tests:
    "" => "Y()"
    "X" => "X(Y())"
    "XX" => "X(X(Y()))"

failing tests:
    "XY"
    "Y"

}