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

make things compile, base64 has a memory leak

Browse source
This commit is contained in:
Folkert 2021-10-06 22:57:11 +02:00
parent c6a8bdfdbe
commit 94e8c62613
12 changed files with 99 additions and 104 deletions
Download patch file Download diff file Expand all files Collapse all files

38
compiler/test_gen/src/gen_dict.rs
View file

@ -191,7 +191,7 @@ fn from_list_with_fold() {
myDict : Dict I64 I64
myDict =
[1,2,3]
|> List.walk (\value, accum -> Dict.insert accum value value) Dict.empty
|> List.walk Dict.empty (\accum, value -> Dict.insert accum value value)
Dict.values myDict
"#
@ -214,7 +214,7 @@ fn from_list_with_fold() {
myDict =
# 25 elements (8 + 16 + 1) is guaranteed to overflow/reallocate at least twice
range 0 25 []
|> List.walk (\value, accum -> Dict.insert accum value value) Dict.empty
|> List.walk Dict.empty (\accum, value -> Dict.insert accum value value)
Dict.values myDict
|> List.len
@ -373,7 +373,7 @@ fn intersection() {
indoc!(
r#"
dict1 : Dict I64 {}
dict1 =
dict1 =
Dict.empty
|> Dict.insert 1 {}
|> Dict.insert 2 {}
@ -382,14 +382,14 @@ fn intersection() {
|> Dict.insert 5 {}
dict2 : Dict I64 {}
dict2 =
dict2 =
Dict.empty
|> Dict.insert 0 {}
|> Dict.insert 2 {}
|> Dict.insert 4 {}
Dict.intersection dict1 dict2
|> Dict.len
Dict.intersection dict1 dict2
|> Dict.len
"#
),
2,
@ -403,7 +403,7 @@ fn intersection_prefer_first() {
indoc!(
r#"
dict1 : Dict I64 I64
dict1 =
dict1 =
Dict.empty
|> Dict.insert 1 1
|> Dict.insert 2 2
@ -412,14 +412,14 @@ fn intersection_prefer_first() {
|> Dict.insert 5 5
dict2 : Dict I64 I64
dict2 =
dict2 =
Dict.empty
|> Dict.insert 0 100
|> Dict.insert 2 200
|> Dict.insert 4 300
Dict.intersection dict1 dict2
|> Dict.values
Dict.intersection dict1 dict2
|> Dict.values
"#
),
RocList::from_slice(&[4, 2]),
@ -433,7 +433,7 @@ fn difference() {
indoc!(
r#"
dict1 : Dict I64 {}
dict1 =
dict1 =
Dict.empty
|> Dict.insert 1 {}
|> Dict.insert 2 {}
@ -442,14 +442,14 @@ fn difference() {
|> Dict.insert 5 {}
dict2 : Dict I64 {}
dict2 =
dict2 =
Dict.empty
|> Dict.insert 0 {}
|> Dict.insert 2 {}
|> Dict.insert 4 {}
Dict.difference dict1 dict2
|> Dict.len
Dict.difference dict1 dict2
|> Dict.len
"#
),
3,
@ -463,7 +463,7 @@ fn difference_prefer_first() {
indoc!(
r#"
dict1 : Dict I64 I64
dict1 =
dict1 =
Dict.empty
|> Dict.insert 1 1
|> Dict.insert 2 2
@ -472,14 +472,14 @@ fn difference_prefer_first() {
|> Dict.insert 5 5
dict2 : Dict I64 I64
dict2 =
dict2 =
Dict.empty
|> Dict.insert 0 100
|> Dict.insert 2 200
|> Dict.insert 4 300
Dict.difference dict1 dict2
|> Dict.values
Dict.difference dict1 dict2
|> Dict.values
"#
),
RocList::from_slice(&[5, 3, 1]),
@ -493,7 +493,7 @@ fn walk_sum_keys() {
indoc!(
r#"
dict1 : Dict I64 I64
dict1 =
dict1 =
Dict.empty
|> Dict.insert 1 1
|> Dict.insert 2 2

12
compiler/test_gen/src/gen_list.rs
View file

@ -399,13 +399,13 @@ fn list_walk_backwards_empty_all_inline() {
fn list_walk_backwards_with_str() {
assert_evals_to!(
r#"List.walkBackwards [ "x", "y", "z" ] "<" Str.concat"#,
RocStr::from("xyz<"),
RocStr::from("<zyx"),
RocStr
);
assert_evals_to!(
r#"List.walkBackwards [ "Second", "Third", "Fourth" ] "First" Str.concat"#,
RocStr::from("ThirdSecondFirstFourth"),
RocStr::from("FirstFourthThirdSecond"),
RocStr
);
}
@ -441,7 +441,7 @@ fn list_walk_backwards_with_record() {
fn list_walk_with_str() {
assert_evals_to!(
r#"List.walk [ "x", "y", "z" ] "<" Str.concat"#,
RocStr::from("zyx<"),
RocStr::from("<xyz"),
RocStr
);
@ -454,7 +454,7 @@ fn list_walk_with_str() {
#[test]
fn list_walk_subtraction() {
assert_evals_to!(r#"List.walk [ 1, 2 ] 1 Num.sub"#, 2, i64);
assert_evals_to!(r#"List.walk [ 1, 2 ] 1 Num.sub"#, (1 - 1) - 2, i64);
}
#[test]
@ -471,11 +471,11 @@ fn list_walk_until_even_prefix_sum() {
assert_evals_to!(
r#"
helper = \a, b ->
if Num.isEven a then
if Num.isEven b then
Continue (a + b)
else
Stop b
Stop a
List.walkUntil [ 2, 4, 8, 9 ] 0 helper"#,
2 + 4 + 8,

2
compiler/test_gen/src/gen_set.rs
View file

@ -163,7 +163,7 @@ fn walk_sum() {
assert_evals_to!(
indoc!(
r#"
Set.walk (Set.fromList [1,2,3]) (\x, y -> x + y) 0
Set.walk (Set.fromList [1,2,3]) 0 (\x, y -> x + y)
"#
),
6,