language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-10-03 00:24:34 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

reformat test

Browse source
This commit is contained in:
Folkert 2023-06-22 21:14:39 +02:00
parent 41af8ff969
commit 26308f1dae
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
1 changed files with 28 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

56
crates/compiler/test_gen/src/gen_primitives.rs
View file

@ -2215,42 +2215,42 @@ fn nested_switch() {
// exposed bug with passing the right symbol/layout down into switch branch generation // exposed bug with passing the right symbol/layout down into switch branch generation
// This is also the only test_gen test that exercises Reset/Reuse (as of Aug 2022) // This is also the only test_gen test that exercises Reset/Reuse (as of Aug 2022)
assert_evals_to!( assert_evals_to!(
indoc!( indoc!(
r#" r#"
app "test" provides [main] to "./platform" app "test" provides [main] to "./platform"
Expr : [ZAdd Expr Expr, Val I64, Var I64] Expr : [ZAdd Expr Expr, Val I64, Var I64]
eval : Expr -> I64 eval : Expr -> I64
eval = \e -> eval = \e ->
when e is when e is
Var _ -> 0 Var _ -> 0
Val v -> v Val v -> v
ZAdd l r -> eval l + eval r ZAdd l r -> eval l + eval r
constFolding : Expr -> Expr constFolding : Expr -> Expr
constFolding = \e -> constFolding = \e ->
when e is when e is
ZAdd e1 e2 -> ZAdd e1 e2 ->
when Pair e1 e2 is when Pair e1 e2 is
Pair (Val a) (Val b) -> Val (a+b) Pair (Val a) (Val b) -> Val (a+b)
Pair (Val a) (ZAdd x (Val b)) -> ZAdd (Val (a+b)) x Pair (Val a) (ZAdd x (Val b)) -> ZAdd (Val (a+b)) x
Pair _ _ -> ZAdd e1 e2 Pair _ _ -> ZAdd e1 e2
_ -> e _ -> e
expr : Expr expr : Expr
expr = ZAdd (Val 3) (ZAdd (Val 4) (Val 5)) expr = ZAdd (Val 3) (ZAdd (Val 4) (Val 5))
main : I64 main : I64
main = eval (constFolding expr) main = eval (constFolding expr)
"# "#
), ),
12, 12,
i64 i64
)); ));
} }
#[test] #[test]