Changeset - b708c094d3a2
[Not reviewed]
0 2 0
MH - 4 years ago 2021-12-20 18:21:27
contact@maxhenger.nl
WIP on fixing select variable introduction
2 files changed with 52 insertions and 1 deletions:
0 comments (0 inline, 0 general)
src/protocol/tests/parser_binding.rs
Show inline comments
 
@@ -15,96 +15,138 @@ fn test_correct_binding() {
 
            auto lit_struct = TestStruct{ field: 0 };
 

	
 
            if (let test_enum_a = lit_enum_a)   { auto can_use = test_enum_a; }
 
            if (let test_enum_b = lit_enum_b)   { auto can_use = test_enum_b; }
 
            if (let test_union_a = lit_union_a) { auto can_use = test_union_a; }
 
            if (let test_union_b = lit_union_b) { auto can_use = test_union_b; }
 
            if (let test_struct = lit_struct)   { auto can_use = test_struct; }
 

	
 
            return 0;
 
        }
 
    ").for_function("foo", |f| { f
 
        .for_variable("test_enum_a", |v| { v.assert_concrete_type("TestEnum"); })
 
        .for_variable("test_enum_b", |v| { v.assert_concrete_type("TestEnum"); })
 
        .for_variable("test_union_a", |v| { v.assert_concrete_type("TestUnion"); })
 
        .for_variable("test_union_b", |v| { v.assert_concrete_type("TestUnion"); })
 
        .for_variable("test_struct", |v| { v.assert_concrete_type("TestStruct"); });
 
    });
 
}
 

	
 
#[test]
 
fn test_incorrect_binding() {
 
    Tester::new_single_source_expect_err("binding at statement level", "
 
        func foo() -> bool {
 
            return let a = 5;
 
        }
 
    ").error(|e| { e
 
        .assert_num(1)
 
        .assert_occurs_at(0, "let")
 
        .assert_msg_has(0, "only be used inside the testing expression");
 
    });
 

	
 
    Tester::new_single_source_expect_err("nested bindings", "
 
        struct Struct{ bool field }
 
        func foo() -> bool {
 
            if (let Struct{ field: let a = Struct{ field: false } } = Struct{ field: true }) {
 
                return test;
 
            }
 
            return false;
 
        }
 
    ").error(|e| { e
 
        .assert_num(2)
 
        .assert_occurs_at(0, "let a = ")
 
        .assert_msg_has(0, "nested binding")
 
        .assert_occurs_at(1, "let Struct")
 
        .assert_msg_has(1, "outer binding");
 
    });
 
}
 

	
 
#[test]
 
fn test_incorrect_binding_variable() {
 
    // Note: if variable already exists then it is interpreted at the binding
 
    // expression as value. So the case where "the variable is already defined"
 
    // results in no binding variable.
 

	
 
    Tester::new_single_source_expect_err("binding var in next scope", "
 
        union Option<T>{ Some(T), None }
 
        func foo() -> bool {
 
            auto opt = Option::Some(false);
 
            if (let Option::Some(var) = opt) {
 
                auto var = true; // should mismatch against binding 'var'
 
                return var;
 
            }
 
            return false;
 
        }
 
    ").error(|e| { e
 
        .assert_num(2)
 
        .assert_msg_has(0, "variable name conflicts")
 
        .assert_occurs_at(0, "var = true;")
 
        .assert_occurs_at(1, "var) = opt");
 
    });
 

	
 
    Tester::new_single_source_expect_err("binding var in nested scope", "
 
        union LR<A, B>{ L(A), R(B) }
 
        func foo() -> u32 {
 
            LR<auto, u32> x = LR::L(5);
 
            if (let LR::L(y) = x) {
 
                if (true) {
 
                    auto y = 5;
 
                    return y;
 
                }
 
            }
 
        }
 
    ").error(|e| { e
 
        .assert_num(2)
 
        .assert_msg_has(0, "variable name conflicts")
 
        .assert_occurs_at(0, "y = 5")
 
        .assert_occurs_at(1, "y) = x");
 
    });
 
}
 

	
 
#[test]
 
fn test_boolean_ops_on_binding() {
 
    Tester::new_single_source_expect_ok("apply && to binding result", "
 
        union TestUnion{ Two(u16), Four(u32), Eight(u64) }
 
        func foo() -> u32 {
 
            auto lit_2 = TestUnion::Two(2);
 
            auto lit_4 = TestUnion::Four(4);
 
            auto lit_8 = TestUnion::Eight(8);
 

	
 
            // Testing combined forms of bindings
 
            if (
 
                let TestUnion::Two(test_2) = lit_2 &&
 
                let TestUnion::Four(test_4) = lit_4 &&
 
                let TestUnion::Eight(test_8) = lit_8
 
            ) {
 
                auto valid_2 = test_2;
 
                auto valid_4 = test_4;
 
                auto valid_8 = test_8;
 
            }
 

	
 
            // Testing in combination with regular expressions, and to the correct
 
            // literals
 
            if (let TestUnion::Two(inter_a) = lit_2 && 5 + 2 == 7)               { inter_a = 0; }
 
            if (5 + 2 == 7 && let TestUnion::Two(inter_b) = lit_2)               { inter_b = 0; }
 
            if (2 + 2 == 4 && let TestUnion::Two(inter_c) = lit_2 && 3 + 3 == 8) { inter_c = 0; }
 

	
 
            // Testing with the 'incorrect' target union
 
            if (let TestUnion::Four(nope) = lit_2 && let TestUnion::Two(zilch) = lit_8) { }
 

	
 
            return 0;
 
        }
 
    ").for_function("foo", |f| { f
 
        .for_variable("valid_2", |v| { v.assert_concrete_type("u16"); })
 
        .for_variable("valid_4", |v| { v.assert_concrete_type("u32"); })
 
        .for_variable("valid_8", |v| { v.assert_concrete_type("u64"); })
 
        .for_variable("inter_a", |v| { v.assert_concrete_type("u16"); })
 
        .for_variable("inter_b", |v| { v.assert_concrete_type("u16"); })
 
        .for_variable("inter_c", |v| { v.assert_concrete_type("u16"); });
 
    });
 

	
 
    Tester::new_single_source_expect_err("apply || before binding", "
 
        enum Test{ A, B }
 
        func foo() -> u32 {
 
            if (let a = Test::A || 5 + 2 == 7) {
 
                auto mission_impossible = 5;
 
            }
 
            return 0;
 
        }
src/protocol/tests/parser_validation.rs
Show inline comments
 
@@ -574,55 +574,64 @@ fn test_variable_introduction_in_scope() {
 

	
 
    Tester::new_single_source_expect_err(
 
        "variable use in declaration",
 
        "func f() -> u8 { auto thing = 5 + thing; return thing; }"
 
    ).error(|e| { e.assert_msg_has(0, "unresolved variable"); });
 

	
 
    Tester::new_single_source_expect_ok(
 
        "variable use after declaration",
 
        "func f() -> u8 { auto thing = 5; return thing; }"
 
    );
 

	
 
    Tester::new_single_source_expect_err(
 
        "variable use of closed scope",
 
        "func f() -> u8 { { auto thing = 5; } return thing; }"
 
    ).error(|e| { e.assert_msg_has(0, "unresolved variable"); });
 
}
 

	
 
#[test]
 
fn test_correct_select_statement() {
 
    Tester::new_single_source_expect_ok(
 
        "correct single-use", "
 
        primitive f() {
 
            channel unused_output -> input;
 
            u32 outer_value = 0;
 
            sync select {
 
                outer_value = get(input) -> outer_value = 0;
 
                auto new_value = get(input) -> {
 
                    outer_value = new_value;
 
                }
 
                get(input) + get(input) ->
 
                    outer_value = 8;
 
                get(input) ->
 
                    {}
 
                outer_value %= get(input) -> {
 
                    outer_value *= outer_value;
 
                    auto new_value = get(input);
 
                    outer_value += new_value;
 
                }
 
            }
 
        }
 
        "
 
    );
 
}
 

	
 
#[test]
 
fn test_incorrect_select_statement() {
 
    Tester::new_single_source_expect_err(
 
        "outside sync",
 
        "func f() -> u32 { select {} return 0; }"
 
        "primitive f() { select {} }"
 
    ).error(|e| { e
 
        .assert_num(1)
 
        .assert_occurs_at(0, "select")
 
        .assert_msg_has(0, "inside sync blocks");
 
    });
 

	
 
    Tester::new_single_source_expect_ok(
 
        "variable in previous block",
 
        "primitive f() {
 
            channel<u32> tx -> rx;
 
            u32 a = 0; // this one will be shadowed
 
            sync select { auto a = get(rx) -> {} }
 
        }"
 
    );
 
}
 
\ No newline at end of file
0 comments (0 inline, 0 general)