language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-29 14:54:47 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

working decision tree gen for all tests

Browse source
This commit is contained in:
Folkert 2021-07-10 21:28:32 +02:00
parent 7abfca4388
commit e05753afd8
3 changed files with 176 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

43
compiler/test_gen/src/gen_tags.rs
View file

@ -501,8 +501,43 @@ fn when_on_single_value_tag() {
);
}
#[test]
#[ignore]
fn if_guard_multiple() {
assert_evals_to!(
indoc!(
r#"
f = \n ->
when Identity n 0 is
Identity x _ if x == 0 -> x + 0
Identity x _ if x == 1 -> x + 0
Identity x _ if x == 2 -> x + 0
Identity x _ -> x - x
{ a: f 0, b: f 1, c: f 2, d: f 4 }
"#
),
(0, 1, 2, 0),
(i64, i64, i64, i64)
);
}
#[test]
fn if_guard_constructor_switch() {
assert_evals_to!(
indoc!(
r#"
when Identity 32 0 is
Identity 41 _ -> 0
Identity s 0 if s == 32 -> 3
# Identity s 0 -> s
Identity z _ -> z
"#
),
3,
i64
);
assert_evals_to!(
indoc!(
r#"
@ -531,13 +566,13 @@ fn if_guard_constructor_switch() {
}
#[test]
#[ignore]
fn if_guard_constructor_chain() {
assert_evals_to!(
indoc!(
r#"
when Identity 43 "" is
Identity 42 _ if 3 == 3 -> 1
when Identity 43 0 is
Identity 42 _ if 3 == 3 -> 43
# Identity 42 _ -> 1
Identity z _ -> z
"#
),
@ -895,7 +930,7 @@ fn alignment_in_multi_tag_construction() {
indoc!(
r"#
x : [ Three Bool I64, Empty ]
x = Three (1 == 1) 32
x = Three (1 == 1) 32
x