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

Fix a bunch of bugs in parsing/formatting found by fuzzing

Browse source
This commit is contained in:
Joshua Warner 2023-02-05 11:48:05 -08:00
parent acd446f6bd
commit 3fee0d3e8f
No known key found for this signature in database
GPG key ID: 89AD497003F93FDD
43 changed files with 593 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

3
crates/compiler/test_syntax/tests/snapshots/pass/closure_in_binop.expr.formatted.roc Normal file
View file

@ -0,0 +1,3 @@
a
&& (\x -> x)
8

35
crates/compiler/test_syntax/tests/snapshots/pass/closure_in_binop.expr.result-ast Normal file
View file

@ -0,0 +1,35 @@
BinOps(
[
(
@0-1 Var {
module_name: "",
ident: "a",
},
@2-4 And,
),
],
@5-12 Apply(
@5-10 Closure(
[
@6-7 Identifier(
"x",
),
],
@9-10 Var {
module_name: "",
ident: "x",
},
),
[
@11-12 SpaceBefore(
Num(
"8",
),
[
Newline,
],
),
],
Space,
),
)

2
crates/compiler/test_syntax/tests/snapshots/pass/closure_in_binop.expr.roc Normal file
View file

@ -0,0 +1,2 @@
a && \x->x
8

4
crates/compiler/test_syntax/tests/snapshots/pass/closure_in_binop_with_spaces.expr.formatted.roc Normal file
View file

@ -0,0 +1,4 @@
i
> (\s -> s
)
-a

39
crates/compiler/test_syntax/tests/snapshots/pass/closure_in_binop_with_spaces.expr.result-ast Normal file
View file

@ -0,0 +1,39 @@
BinOps(
[
(
@0-1 Var {
module_name: "",
ident: "i",
},
@1-2 GreaterThan,
),
],
@2-10 Apply(
@2-7 SpaceAfter(
Closure(
[
@3-4 Identifier(
"s",
),
],
@6-7 Var {
module_name: "",
ident: "s",
},
),
[
Newline,
],
),
[
@8-10 UnaryOp(
@9-10 Var {
module_name: "",
ident: "a",
},
@8-9 Negate,
),
],
Space,
),
)

2
crates/compiler/test_syntax/tests/snapshots/pass/closure_in_binop_with_spaces.expr.roc Normal file
View file

@ -0,0 +1,2 @@
i>\s->s
-a

3
crates/compiler/test_syntax/tests/snapshots/pass/extra_newline_in_parens.expr.formatted.roc Normal file
View file

@ -0,0 +1,3 @@
B : {}
a

47
crates/compiler/test_syntax/tests/snapshots/pass/extra_newline_in_parens.expr.result-ast Normal file
View file

@ -0,0 +1,47 @@
Defs(
Defs {
tags: [
Index(0),
],
regions: [
@0-4,
],
space_before: [
Slice(start = 0, length = 0),
],
space_after: [
Slice(start = 0, length = 0),
],
spaces: [],
type_defs: [
Alias {
header: TypeHeader {
name: @0-1 "B",
vars: [],
},
ann: @2-4 Record {
fields: [],
ext: None,
},
},
],
value_defs: [],
},
@6-10 SpaceBefore(
ParensAround(
SpaceBefore(
Var {
module_name: "",
ident: "a",
},
[
Newline,
],
),
),
[
Newline,
Newline,
],
),
)

4
crates/compiler/test_syntax/tests/snapshots/pass/extra_newline_in_parens.expr.roc Normal file
View file

@ -0,0 +1,4 @@
B:{}
(
a)

6
crates/compiler/test_syntax/tests/snapshots/pass/negate_multiline_string.expr.formatted.roc
View file

@ -1,3 +1,3 @@
!
"""
"""
-(
"""
""")

2
crates/compiler/test_syntax/tests/snapshots/pass/negate_multiline_string.expr.result-ast
View file

@ -4,5 +4,5 @@ UnaryOp(
[],
),
),
@0-1 Not,
@0-1 Negate,
)

2
crates/compiler/test_syntax/tests/snapshots/pass/negate_multiline_string.expr.roc
View file

@ -1 +1 @@
!""""""
-""""""

4
crates/compiler/test_syntax/tests/snapshots/pass/negate_multiline_string_with_quote.expr.formatted.roc Normal file
View file

@ -0,0 +1,4 @@
-(
"""
"<
""")

8
crates/compiler/test_syntax/tests/snapshots/pass/negate_multiline_string_with_quote.expr.result-ast Normal file
View file

@ -0,0 +1,8 @@
UnaryOp(
@1-9 Str(
PlainLine(
"\"<",
),
),
@0-1 Negate,
)

1
crates/compiler/test_syntax/tests/snapshots/pass/negate_multiline_string_with_quote.expr.roc Normal file
View file

@ -0,0 +1 @@
-""""<"""

3
crates/compiler/test_syntax/tests/snapshots/pass/not_multiline_string.expr.formatted.roc Normal file
View file

@ -0,0 +1,3 @@
!
"""
"""

8
crates/compiler/test_syntax/tests/snapshots/pass/not_multiline_string.expr.result-ast Normal file
View file

@ -0,0 +1,8 @@
UnaryOp(
@1-7 Str(
Block(
[],
),
),
@0-1 Not,
)

1
crates/compiler/test_syntax/tests/snapshots/pass/not_multiline_string.expr.roc Normal file
View file

@ -0,0 +1 @@
!""""""

2
crates/compiler/test_syntax/tests/snapshots/pass/parens_in_type_def_apply.expr.formatted.roc Normal file
View file

@ -0,0 +1,2 @@
U (b a) : b
a

49
crates/compiler/test_syntax/tests/snapshots/pass/parens_in_type_def_apply.expr.result-ast Normal file
View file

@ -0,0 +1,49 @@
Defs(
Defs {
tags: [
Index(0),
],
regions: [
@0-8,
],
space_before: [
Slice(start = 0, length = 0),
],
space_after: [
Slice(start = 0, length = 0),
],
spaces: [],
type_defs: [
Alias {
header: TypeHeader {
name: @0-1 "U",
vars: [
@2-5 Apply(
@2-3 Identifier(
"b",
),
[
@4-5 Identifier(
"a",
),
],
),
],
},
ann: @7-8 BoundVariable(
"b",
),
},
],
value_defs: [],
},
@9-10 SpaceBefore(
Var {
module_name: "",
ident: "a",
},
[
Newline,
],
),
)

2
crates/compiler/test_syntax/tests/snapshots/pass/parens_in_type_def_apply.expr.roc Normal file
View file

@ -0,0 +1,2 @@
U(b a):b
a

3
crates/compiler/test_syntax/tests/snapshots/pass/parens_in_value_def_annotation.expr.formatted.roc Normal file
View file

@ -0,0 +1,3 @@
i #
N : b
a

52
crates/compiler/test_syntax/tests/snapshots/pass/parens_in_value_def_annotation.expr.result-ast Normal file
View file

@ -0,0 +1,52 @@
Defs(
Defs {
tags: [
Index(2147483648),
],
regions: [
@0-9,
],
space_before: [
Slice(start = 0, length = 0),
],
space_after: [
Slice(start = 0, length = 0),
],
spaces: [],
type_defs: [],
value_defs: [
Annotation(
@0-1 Apply(
@0-1 Identifier(
"i",
),
[
@5-6 SpaceBefore(
Tag(
"N",
),
[
Newline,
LineComment(
"",
),
],
),
],
),
@8-9 BoundVariable(
"b",
),
),
],
},
@10-11 SpaceBefore(
Var {
module_name: "",
ident: "a",
},
[
Newline,
],
),
)

4
crates/compiler/test_syntax/tests/snapshots/pass/parens_in_value_def_annotation.expr.roc Normal file
View file

@ -0,0 +1,4 @@
i
(#
N):b
a

2
crates/compiler/test_syntax/tests/snapshots/pass/parenthesized_type_def.expr.formatted.roc Normal file
View file

@ -0,0 +1,2 @@
D : b
a

38
crates/compiler/test_syntax/tests/snapshots/pass/parenthesized_type_def.expr.result-ast Normal file
View file

@ -0,0 +1,38 @@
Defs(
Defs {
tags: [
Index(0),
],
regions: [
@1-5,
],
space_before: [
Slice(start = 0, length = 0),
],
space_after: [
Slice(start = 0, length = 0),
],
spaces: [],
type_defs: [
Alias {
header: TypeHeader {
name: @1-2 "D",
vars: [],
},
ann: @4-5 BoundVariable(
"b",
),
},
],
value_defs: [],
},
@6-7 SpaceBefore(
Var {
module_name: "",
ident: "a",
},
[
Newline,
],
),
)

2
crates/compiler/test_syntax/tests/snapshots/pass/parenthesized_type_def.expr.roc Normal file
View file

@ -0,0 +1,2 @@
(D):b
a

2
crates/compiler/test_syntax/tests/snapshots/pass/parenthesized_type_def_space_before.expr.formatted.roc Normal file
View file

@ -0,0 +1,2 @@
A : b
a

38
crates/compiler/test_syntax/tests/snapshots/pass/parenthesized_type_def_space_before.expr.result-ast Normal file
View file

@ -0,0 +1,38 @@
Defs(
Defs {
tags: [
Index(0),
],
regions: [
@2-6,
],
space_before: [
Slice(start = 0, length = 0),
],
space_after: [
Slice(start = 0, length = 0),
],
spaces: [],
type_defs: [
Alias {
header: TypeHeader {
name: @2-3 "A",
vars: [],
},
ann: @5-6 BoundVariable(
"b",
),
},
],
value_defs: [],
},
@7-8 SpaceBefore(
Var {
module_name: "",
ident: "a",
},
[
Newline,
],
),
)

3
crates/compiler/test_syntax/tests/snapshots/pass/parenthesized_type_def_space_before.expr.roc Normal file
View file

@ -0,0 +1,3 @@
(
A):b
a

5
crates/compiler/test_syntax/tests/snapshots/pass/str_block_multiple_newlines.expr.formatted.roc Normal file
View file

@ -0,0 +1,5 @@
"""
#
""" #

24
crates/compiler/test_syntax/tests/snapshots/pass/str_block_multiple_newlines.expr.result-ast Normal file
View file

@ -0,0 +1,24 @@
SpaceAfter(
Str(
Block(
[
[
Plaintext(
"\n",
),
Plaintext(
"\n",
),
Plaintext(
"#",
),
],
],
),
),
[
LineComment(
"",
),
],
)

4
crates/compiler/test_syntax/tests/snapshots/pass/str_block_multiple_newlines.expr.roc Normal file
View file

@ -0,0 +1,4 @@
"""
#"""#