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

Update mono tests

Browse source
This commit is contained in:
Ayaz Hafiz 2023-03-25 13:55:11 -05:00
parent dd55be6142
commit aef21741ec
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
5 changed files with 138 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

18
crates/compiler/test_mono/generated/guard_pattern_true.txt
View file

@ -4,24 +4,24 @@ procedure Bool.1 ():
procedure Test.1 (Test.2):
let Test.5 : I64 = 2i64;
joinpoint Test.10:
let Test.9 : I64 = 0i64;
ret Test.9;
joinpoint Test.8:
let Test.7 : I64 = 0i64;
ret Test.7;
in
let Test.12 : I64 = 2i64;
let Test.13 : Int1 = lowlevel Eq Test.12 Test.5;
if Test.13 then
joinpoint Test.7 Test.11:
if Test.11 then
joinpoint Test.10 Test.9:
if Test.9 then
let Test.6 : I64 = 42i64;
ret Test.6;
else
jump Test.10;
jump Test.8;
in
let Test.8 : Int1 = CallByName Bool.1;
jump Test.7 Test.8;
let Test.11 : Int1 = CallByName Bool.1;
jump Test.10 Test.11;
else
jump Test.10;
jump Test.8;
procedure Test.0 ():
let Test.4 : {} = Struct {};

14
crates/compiler/test_mono/generated/if_guard_bind_variable_false.txt
View file

@ -4,17 +4,17 @@ procedure Bool.11 (#Attr.2, #Attr.3):
procedure Test.1 (Test.3):
let Test.6 : I64 = 10i64;
joinpoint Test.8 Test.12:
if Test.12 then
joinpoint Test.10 Test.9:
if Test.9 then
let Test.7 : I64 = 0i64;
ret Test.7;
else
let Test.11 : I64 = 42i64;
ret Test.11;
let Test.8 : I64 = 42i64;
ret Test.8;
in
let Test.10 : I64 = 5i64;
let Test.9 : Int1 = CallByName Bool.11 Test.6 Test.10;
jump Test.8 Test.9;
let Test.12 : I64 = 5i64;
let Test.11 : Int1 = CallByName Bool.11 Test.6 Test.12;
jump Test.10 Test.11;
procedure Test.0 ():
let Test.5 : {} = Struct {};

52
crates/compiler/test_mono/generated/issue_4749.txt
View file

@ -70,6 +70,7 @@ procedure Decode.27 (Decode.107, Decode.108):
let Decode.123 : [C [C List U8, C ], C Str] = TagId(0) Decode.124;
ret Decode.123;
<<<<<<< HEAD
procedure Json.160 (Json.570, Json.571):
joinpoint Json.508 Json.505 Json.159:
let Json.162 : List U8 = StructAtIndex 0 Json.505;
@ -97,6 +98,35 @@ procedure Json.160 (Json.570, Json.571):
let Json.521 : List U8 = CallByName List.4 Json.522 Json.164;
let Json.518 : {List U8, List U8} = Struct {Json.520, Json.521};
jump Json.508 Json.518 Json.159;
=======
procedure Json.144 (Json.512, Json.513):
joinpoint Json.450 Json.447 Json.143:
let Json.146 : List U8 = StructAtIndex 0 Json.447;
inc Json.146;
let Json.145 : List U8 = StructAtIndex 1 Json.447;
inc Json.145;
dec Json.447;
joinpoint Json.488:
let Json.485 : {List U8, List U8} = Struct {Json.146, Json.145};
ret Json.485;
in
let Json.496 : U64 = lowlevel ListLen Json.146;
let Json.497 : U64 = 2i64;
let Json.498 : Int1 = lowlevel NumGte Json.496 Json.497;
if Json.498 then
let Json.487 : U64 = 0i64;
let Json.147 : U8 = lowlevel ListGetUnsafe Json.146 Json.487;
let Json.486 : U64 = 1i64;
let Json.148 : U8 = lowlevel ListGetUnsafe Json.146 Json.486;
let Json.458 : Int1 = CallByName Json.22 Json.147 Json.148;
if Json.458 then
let Json.465 : U64 = 2i64;
let Json.462 : List U8 = CallByName List.29 Json.146 Json.465;
let Json.464 : List U8 = CallByName List.4 Json.145 Json.147;
let Json.463 : List U8 = CallByName List.4 Json.464 Json.148;
let Json.460 : {List U8, List U8} = Struct {Json.462, Json.463};
jump Json.450 Json.460 Json.143;
>>>>>>> 93414ed07 (Update mono tests)
else
let Json.510 : Int1 = CallByName Json.305 Json.163;
if Json.510 then
@ -108,6 +138,7 @@ procedure Json.160 (Json.570, Json.571):
let Json.509 : {List U8, List U8} = Struct {Json.162, Json.161};
ret Json.509;
else
<<<<<<< HEAD
let Json.551 : U64 = lowlevel ListLen Json.162;
let Json.552 : U64 = 1i64;
let Json.553 : Int1 = lowlevel NumGte Json.551 Json.552;
@ -127,6 +158,27 @@ procedure Json.160 (Json.570, Json.571):
jump Json.543 Json.544;
else
jump Json.548;
=======
let Json.493 : U64 = lowlevel ListLen Json.146;
let Json.494 : U64 = 1i64;
let Json.495 : Int1 = lowlevel NumGte Json.493 Json.494;
if Json.495 then
let Json.492 : U64 = 0i64;
let Json.149 : U8 = lowlevel ListGetUnsafe Json.146 Json.492;
joinpoint Json.490 Json.489:
if Json.489 then
let Json.483 : List U8 = CallByName List.38 Json.146;
let Json.484 : List U8 = CallByName List.4 Json.145 Json.149;
let Json.481 : {List U8, List U8} = Struct {Json.483, Json.484};
jump Json.450 Json.481 Json.143;
else
jump Json.488;
in
let Json.491 : Int1 = CallByName Json.289 Json.149;
jump Json.490 Json.491;
else
jump Json.488;
>>>>>>> 93414ed07 (Update mono tests)
in
jump Json.508 Json.570 Json.571;

52
crates/compiler/test_mono/generated/issue_4772_weakened_monomorphic_destructure.txt
View file

@ -44,6 +44,7 @@ procedure Decode.26 (Decode.105, Decode.106):
let Decode.122 : {List U8, [C {}, C Str]} = CallByName Decode.25 Decode.105 Decode.123 Decode.106;
ret Decode.122;
<<<<<<< HEAD
procedure Json.160 (Json.570, Json.571):
joinpoint Json.508 Json.505 Json.159:
let Json.162 : List U8 = StructAtIndex 0 Json.505;
@ -71,6 +72,35 @@ procedure Json.160 (Json.570, Json.571):
let Json.521 : List U8 = CallByName List.4 Json.522 Json.164;
let Json.518 : {List U8, List U8} = Struct {Json.520, Json.521};
jump Json.508 Json.518 Json.159;
=======
procedure Json.144 (Json.512, Json.513):
joinpoint Json.450 Json.447 Json.143:
let Json.146 : List U8 = StructAtIndex 0 Json.447;
inc Json.146;
let Json.145 : List U8 = StructAtIndex 1 Json.447;
inc Json.145;
dec Json.447;
joinpoint Json.488:
let Json.485 : {List U8, List U8} = Struct {Json.146, Json.145};
ret Json.485;
in
let Json.496 : U64 = lowlevel ListLen Json.146;
let Json.497 : U64 = 2i64;
let Json.498 : Int1 = lowlevel NumGte Json.496 Json.497;
if Json.498 then
let Json.487 : U64 = 0i64;
let Json.147 : U8 = lowlevel ListGetUnsafe Json.146 Json.487;
let Json.486 : U64 = 1i64;
let Json.148 : U8 = lowlevel ListGetUnsafe Json.146 Json.486;
let Json.458 : Int1 = CallByName Json.22 Json.147 Json.148;
if Json.458 then
let Json.465 : U64 = 2i64;
let Json.462 : List U8 = CallByName List.29 Json.146 Json.465;
let Json.464 : List U8 = CallByName List.4 Json.145 Json.147;
let Json.463 : List U8 = CallByName List.4 Json.464 Json.148;
let Json.460 : {List U8, List U8} = Struct {Json.462, Json.463};
jump Json.450 Json.460 Json.143;
>>>>>>> 93414ed07 (Update mono tests)
else
let Json.510 : Int1 = CallByName Json.305 Json.163;
if Json.510 then
@ -82,6 +112,7 @@ procedure Json.160 (Json.570, Json.571):
let Json.509 : {List U8, List U8} = Struct {Json.162, Json.161};
ret Json.509;
else
<<<<<<< HEAD
let Json.551 : U64 = lowlevel ListLen Json.162;
let Json.552 : U64 = 1i64;
let Json.553 : Int1 = lowlevel NumGte Json.551 Json.552;
@ -101,6 +132,27 @@ procedure Json.160 (Json.570, Json.571):
jump Json.543 Json.544;
else
jump Json.548;
=======
let Json.493 : U64 = lowlevel ListLen Json.146;
let Json.494 : U64 = 1i64;
let Json.495 : Int1 = lowlevel NumGte Json.493 Json.494;
if Json.495 then
let Json.492 : U64 = 0i64;
let Json.149 : U8 = lowlevel ListGetUnsafe Json.146 Json.492;
joinpoint Json.490 Json.489:
if Json.489 then
let Json.483 : List U8 = CallByName List.38 Json.146;
let Json.484 : List U8 = CallByName List.4 Json.145 Json.149;
let Json.481 : {List U8, List U8} = Struct {Json.483, Json.484};
jump Json.450 Json.481 Json.143;
else
jump Json.488;
in
let Json.491 : Int1 = CallByName Json.289 Json.149;
jump Json.490 Json.491;
else
jump Json.488;
>>>>>>> 93414ed07 (Update mono tests)
in
jump Json.508 Json.570 Json.571;

18
crates/compiler/test_mono/src/tests.rs
View file

@ -2789,3 +2789,21 @@ fn recursive_closure_with_transiently_used_capture() {
"#
)
}
#[mono_test]
fn when_guard_appears_multiple_times_in_compiled_decision_tree_issue_5176() {
indoc!(
r#"
app "test" provides [main] to "./platform"
go : U8 -> U8
go = \byte ->
when byte is
15 if Bool.true -> 1
b if Bool.true -> b + 2
_ -> 3
main = go '.'
"#
)
}