language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-08-18 19:10:18 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

Add mono test for #4770

Browse source 
Closes #4770
This commit is contained in:
Ayaz Hafiz 2023-04-20 17:54:49 -05:00
parent 238e64c0b3
commit 1916a6dba5
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
2 changed files with 223 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2888,3 +2888,27 @@ fn layout_cache_structure_with_multiple_recursive_structures() {
"#
)
}
#[mono_test]
fn issue_4770() {
indoc!(
r#"
app "test" provides [main] to "./platform"
main =
isCorrectOrder { left: IsList [IsInteger 10], right: IsList [IsInteger 20] }
isCorrectOrder = \pair ->
when pair is
{ left: IsInteger left, right: IsInteger right } -> left < right
{ left: IsList l, right: IsList r } ->
if List.map2 l r (\left, right -> { left, right }) |> List.all isCorrectOrder then
List.len l < List.len r
else
Bool.false
{ left: IsList _, right: IsInteger _ } -> isCorrectOrder { left: pair.left, right: IsList [pair.right] }
{ left: IsInteger _, right: IsList _ } -> isCorrectOrder { left: IsList [pair.left], right: pair.right }
"#
)
}