language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-30 15:21:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

add tests

Browse source
This commit is contained in:
Folkert 2020-03-16 23:15:36 +01:00
parent 5fca5fe631
commit 74ec3682a2
1 changed files with 43 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

49
compiler/gen/tests/test_gen.rs
View file

@ -136,6 +136,7 @@ mod test_gen {
// TODO try deleting this line and seeing if everything still works.
builder.append_block_params_for_function_params(block);
dbg!(&mono_expr);
let main_body =
roc_gen::crane::build::build_expr(&env, &scope, &mut module, &mut builder, &mono_expr, &procs);
@ -1114,16 +1115,16 @@ mod test_gen {
}
#[test]
fn when_on_result() {
fn applied_tag_nothing() {
assert_evals_to!(
indoc!(
r#"
x : Result Int Int
x = Ok 42
Maybe a : [ Just a, Nothing ]
when x is
Ok _ -> 0
Err _ -> 4
x : Maybe Int
x = Nothing
0x1
"#
),
1,
@ -1131,6 +1132,42 @@ mod test_gen {
);
}
#[test]
fn applied_tag_just() {
assert_evals_to!(
indoc!(
r#"
Maybe a : [ Just a, Nothing ]
y : Maybe Int
y = Just 0x4
0x1
"#
),
1,
i64
);
}
// #[test]
// fn when_on_result() {
// assert_evals_to!(
// indoc!(
// r#"
// x : Result Int Int
// x = Ok 42
//
// when x is
// Err _ -> 4
// Ok _ -> 0
// "#
// ),
// 0,
// i64
// );
// }
#[test]
fn basic_record() {
assert_evals_to!(