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

Merge pull request #7510 from joshuawarner32/pnc-fuzzing-fixes-4

Browse source 
Fix yet more fuzzing bugs
This commit is contained in:
Luke Boswell 2025-01-20 09:26:52 +11:00 • committed by GitHub
commit 5981e4354c
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
55 changed files with 1061 additions and 150 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,2 +1,3 @@
M : r
M :
r
h

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

@ -1,3 +1,4 @@
K : #
K :
#
s
K

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

@ -1,5 +1,5 @@
2 :
r where e
implements
P
implements
P
u

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

@ -1,5 +1,5 @@
x :
(a where e
implements K)
implements K)
-> Z
s

7
crates/compiler/test_syntax/tests/snapshots/pass/ann_where_e_newline_implements.expr.formatted.roc
View file

@ -1,4 +1,5 @@
J : [
] where e
implements T
J :
[
] where e
implements T
i

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

@ -1,3 +1,4 @@
A
p : e
p :
e
A

7
crates/compiler/test_syntax/tests/snapshots/pass/assign_parens_item_newline_comment.expr.formatted.roc Normal file
View file

@ -0,0 +1,7 @@
a =
i
#
#
r

58
crates/compiler/test_syntax/tests/snapshots/pass/assign_parens_item_newline_comment.expr.result-ast Normal file
View file

@ -0,0 +1,58 @@
@0-11 SpaceAfter(
Defs(
Defs {
tags: [
EitherIndex(2147483648),
],
regions: [
@0-9,
],
space_before: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
space_after: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
spaces: [],
type_defs: [],
value_defs: [
Body(
@0-1 Identifier {
ident: "a",
},
@2-9 ParensAround(
SpaceBefore(
SpaceAfter(
Var {
module_name: "",
ident: "i",
},
[
Newline,
LineComment(
"",
),
],
),
[
Newline,
],
),
),
),
],
},
@10-11 SpaceBefore(
Var {
module_name: "",
ident: "r",
},
[
Newline,
],
),
),
[
Newline,
],
)

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

@ -0,0 +1,5 @@
a=(
i
#
)
r

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

@ -0,0 +1,2 @@
b
|e| s

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

@ -0,0 +1,47 @@
@0-7 SpaceAfter(
Defs(
Defs {
tags: [
EitherIndex(2147483648),
],
regions: [
@0-1,
],
space_before: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
space_after: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
spaces: [],
type_defs: [],
value_defs: [
Stmt(
@0-1 Var {
module_name: "",
ident: "b",
},
),
],
},
@2-7 SpaceBefore(
Closure(
[
@3-4 Identifier {
ident: "e",
},
],
@6-7 Var {
module_name: "",
ident: "s",
},
),
[
Newline,
],
),
),
[
Newline,
],
)

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

@ -0,0 +1,2 @@
b
\e->s

10
crates/compiler/test_syntax/tests/snapshots/pass/crazy_parens_multiline_str_question_etc.expr.formatted.roc Normal file
View file

@ -0,0 +1,10 @@
(
(
d
-(
"""
"""()?
)
)
)
Y

61
crates/compiler/test_syntax/tests/snapshots/pass/crazy_parens_multiline_str_question_etc.expr.result-ast Normal file
View file

@ -0,0 +1,61 @@
@0-17 SpaceAfter(
Apply(
@1-15 ParensAround(
ParensAround(
Defs(
Defs {
tags: [
EitherIndex(2147483648),
],
regions: [
@2-3,
],
space_before: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
space_after: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
spaces: [],
type_defs: [],
value_defs: [
Stmt(
@2-3 Var {
module_name: "",
ident: "d",
},
),
],
},
@4-14 SpaceBefore(
UnaryOp(
@5-13 TrySuffix(
PncApply(
@5-11 Str(
Block(
[],
),
),
[],
),
),
@4-5 Negate,
),
[
Newline,
],
),
),
),
),
[
@16-17 Tag(
"Y",
),
],
Space,
),
[
Newline,
],
)

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

@ -0,0 +1,2 @@
((d
-""""""()?))Y

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

@ -1,4 +1,5 @@
N : f
N :
f
-> ((
u,
)I

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

@ -0,0 +1,4 @@
i =
"""
"""().1
p

50
crates/compiler/test_syntax/tests/snapshots/pass/multiline_str_pnc_apply_in_assignment_record_access_newline.expr.result-ast Normal file
View file

@ -0,0 +1,50 @@
@0-14 SpaceAfter(
Defs(
Defs {
tags: [
EitherIndex(2147483648),
],
regions: [
@0-12,
],
space_before: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
space_after: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
spaces: [],
type_defs: [],
value_defs: [
Body(
@0-1 Identifier {
ident: "i",
},
@2-12 TupleAccess(
PncApply(
@2-8 Str(
Block(
[],
),
),
[],
),
"1",
),
),
],
},
@13-14 SpaceBefore(
Var {
module_name: "",
ident: "p",
},
[
Newline,
],
),
),
[
Newline,
],
)

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

@ -0,0 +1,2 @@
i=""""""().1
p

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

@ -0,0 +1,2 @@
(-8.)() : C
p

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

@ -0,0 +1,47 @@
@0-11 SpaceAfter(
Defs(
Defs {
tags: [
EitherIndex(2147483648),
],
regions: [
@0-9,
],
space_before: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
space_after: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
spaces: [],
type_defs: [],
value_defs: [
Annotation(
@1-7 PncApply(
@1-4 FloatLiteral(
"-8.",
),
[],
),
@8-9 Apply(
"",
"C",
[],
),
),
],
},
@10-11 SpaceBefore(
Var {
module_name: "",
ident: "p",
},
[
Newline,
],
),
),
[
Newline,
],
)

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

@ -0,0 +1,2 @@
(-8.)():C
p

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

@ -1,3 +1,4 @@
A : A
A :
A
A
p

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

@ -1,2 +1,3 @@
C : h -> a
C :
h -> a
C

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

@ -0,0 +1,4 @@
{ #
h & } | #
i
| 0

41
crates/compiler/test_syntax/tests/snapshots/pass/record_update_apply_closure_comments.expr.result-ast Normal file
View file

@ -0,0 +1,41 @@
@0-14 SpaceAfter(
Apply(
@0-6 RecordUpdate {
update: @3-4 SpaceBefore(
Var {
module_name: "",
ident: "h",
},
[
LineComment(
"",
),
],
),
fields: [],
},
[
@6-14 Closure(
[
@10-11 SpaceBefore(
Identifier {
ident: "i",
},
[
LineComment(
"",
),
],
),
],
@13-14 Num(
"0",
),
),
],
Space,
),
[
Newline,
],
)

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

@ -0,0 +1,3 @@
{#
h&}\#
i->0

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

@ -0,0 +1,3 @@
return #
s
r

58
crates/compiler/test_syntax/tests/snapshots/pass/return_empty_assign.expr.result-ast Normal file
View file

@ -0,0 +1,58 @@
@0-18 SpaceAfter(
Return(
@0-18 SpaceBefore(
Defs(
Defs {
tags: [
EitherIndex(2147483648),
],
regions: [
@8-15,
],
space_before: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
space_after: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
spaces: [],
type_defs: [],
value_defs: [
Body(
@8-10 RecordDestructure(
[],
),
@14-15 SpaceBefore(
Var {
module_name: "",
ident: "s",
},
[
LineComment(
"",
),
],
),
),
],
},
@17-18 SpaceBefore(
Var {
module_name: "",
ident: "r",
},
[
Newline,
],
),
),
[
Newline,
],
),
None,
),
[
Newline,
],
)

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

@ -0,0 +1,4 @@
return
{}=#
s
r

9
crates/compiler/test_syntax/tests/snapshots/pass/when_in_binop_in_assign_with_sneaky_newline.expr.formatted.roc Normal file
View file

@ -0,0 +1,9 @@
j =
m
%
when
f
is
e -> i
h

82
crates/compiler/test_syntax/tests/snapshots/pass/when_in_binop_in_assign_with_sneaky_newline.expr.result-ast Normal file
View file

@ -0,0 +1,82 @@
@0-23 SpaceAfter(
Defs(
Defs {
tags: [
EitherIndex(2147483648),
],
regions: [
@0-21,
],
space_before: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
space_after: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
spaces: [],
type_defs: [],
value_defs: [
Body(
@0-1 Identifier {
ident: "j",
},
@2-21 BinOps(
[
(
@2-3 Var {
module_name: "",
ident: "m",
},
@3-4 Percent,
),
],
@4-21 When(
@9-10 SpaceAfter(
Var {
module_name: "",
ident: "f",
},
[
Newline,
],
),
[
WhenBranch {
patterns: [
@14-15 Identifier {
ident: "e",
},
],
value: @17-21 ParensAround(
SpaceAfter(
Var {
module_name: "",
ident: "i",
},
[
Newline,
],
),
),
guard: None,
},
],
),
),
),
],
},
@22-23 SpaceBefore(
Var {
module_name: "",
ident: "h",
},
[
Newline,
],
),
),
[
Newline,
],
)

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

@ -0,0 +1,4 @@
j=m%when f
is e->(i
)
h

12
crates/compiler/test_syntax/tests/snapshots/pass/when_in_binop_in_closure_in_when_guard_wow_fuzzer.expr.formatted.roc Normal file
View file

@ -0,0 +1,12 @@
when
f
is
3 if (|t|
m
%
when
f
is
z ->
e
z) -> m

93
crates/compiler/test_syntax/tests/snapshots/pass/when_in_binop_in_closure_in_when_guard_wow_fuzzer.expr.result-ast Normal file
View file

@ -0,0 +1,93 @@
@0-40 SpaceAfter(
When(
@5-6 SpaceAfter(
Var {
module_name: "",
ident: "f",
},
[
Newline,
],
),
[
WhenBranch {
patterns: [
@10-11 SpaceBefore(
NumLiteral(
"3",
),
[
Newline,
],
),
],
value: @39-40 Var {
module_name: "",
ident: "m",
},
guard: Some(
@14-37 Closure(
[
@15-16 Identifier {
ident: "t",
},
],
@18-37 BinOps(
[
(
@18-19 Var {
module_name: "",
ident: "m",
},
@19-20 Percent,
),
],
@20-37 When(
@25-26 SpaceAfter(
Var {
module_name: "",
ident: "f",
},
[
Newline,
],
),
[
WhenBranch {
patterns: [
@30-31 Identifier {
ident: "z",
},
],
value: @33-37 Apply(
@33-34 Var {
module_name: "",
ident: "e",
},
[
@36-37 SpaceBefore(
Var {
module_name: "",
ident: "z",
},
[
Newline,
],
),
],
Space,
),
guard: None,
},
],
),
),
),
),
},
],
),
[
Newline,
],
)

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

@ -0,0 +1,5 @@
when f
is
3 if\t->m%when f
is z->e
z->m

7
crates/compiler/test_syntax/tests/snapshots/pass/where_implements_lots_of_newlines.expr.formatted.roc Normal file
View file

@ -0,0 +1,7 @@
T :
[
] #
where e
implements
T
e

85
crates/compiler/test_syntax/tests/snapshots/pass/where_implements_lots_of_newlines.expr.result-ast Normal file
View file

@ -0,0 +1,85 @@
@0-31 SpaceAfter(
Defs(
Defs {
tags: [
EitherIndex(0),
],
regions: [
@0-29,
],
space_before: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
space_after: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
spaces: [],
type_defs: [
Alias {
header: TypeHeader {
name: @0-1 "T",
vars: [],
},
ann: @2-29 Where(
@2-5 SpaceAfter(
TagUnion {
ext: None,
tags: Collection {
items: [],
final_comments: [
Newline,
],
},
},
[
LineComment(
"",
),
],
),
[
@15-29 ImplementsClause {
var: @15-16 SpaceBefore(
SpaceAfter(
"e",
[
Newline,
],
),
[
Newline,
],
),
abilities: [
@28-29 SpaceBefore(
Apply(
"",
"T",
[],
),
[
Newline,
],
),
],
},
],
),
},
],
value_defs: [],
},
@30-31 SpaceBefore(
Var {
module_name: "",
ident: "e",
},
[
Newline,
],
),
),
[
Newline,
],
)

7
crates/compiler/test_syntax/tests/snapshots/pass/where_implements_lots_of_newlines.expr.roc Normal file
View file

@ -0,0 +1,7 @@
T:[
]#
where
e
implements
T
e

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

@ -0,0 +1,5 @@
L : (
l where e
implements Z,
)I
s

78
crates/compiler/test_syntax/tests/snapshots/pass/where_in_parens.expr.result-ast Normal file
View file

@ -0,0 +1,78 @@
@0-29 SpaceAfter(
Defs(
Defs {
tags: [
EitherIndex(0),
],
regions: [
@0-27,
],
space_before: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
space_after: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
spaces: [],
type_defs: [
Alias {
header: TypeHeader {
name: @0-1 "L",
vars: [],
},
ann: @2-27 Tuple {
elems: [
@3-25 Where(
@3-4 BoundVariable(
"l",
),
[
@11-25 ImplementsClause {
var: @11-12 SpaceBefore(
SpaceAfter(
"e",
[
Newline,
],
),
[
Newline,
],
),
abilities: [
@24-25 Apply(
"",
"Z",
[],
),
],
},
],
),
],
ext: Some(
@26-27 Apply(
"",
"I",
[],
),
),
},
},
],
value_defs: [],
},
@28-29 SpaceBefore(
Var {
module_name: "",
ident: "s",
},
[
Newline,
],
),
),
[
Newline,
],
)

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

@ -0,0 +1,4 @@
L:(l where
e
implements Z)I
s

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

@ -1,5 +1,5 @@
1 : (
* #
where e implements J,
where e implements J,
)*
l

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

@ -0,0 +1,3 @@
2 : (
)e where p implements T
e

71
crates/compiler/test_syntax/tests/snapshots/pass/where_newline_p_implements.expr.result-ast Normal file
View file

@ -0,0 +1,71 @@
@0-29 SpaceAfter(
Defs(
Defs {
tags: [
EitherIndex(2147483648),
],
regions: [
@0-27,
],
space_before: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
space_after: [
Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
],
spaces: [],
type_defs: [],
value_defs: [
Annotation(
@0-1 NumLiteral(
"2",
),
@2-27 Where(
@2-6 Tuple {
elems: Collection {
items: [],
final_comments: [
Newline,
],
},
ext: Some(
@5-6 BoundVariable(
"e",
),
),
},
[
@13-27 ImplementsClause {
var: @13-14 SpaceBefore(
"p",
[
Newline,
],
),
abilities: [
@26-27 Apply(
"",
"T",
[],
),
],
},
],
),
),
],
},
@28-29 SpaceBefore(
Var {
module_name: "",
ident: "e",
},
[
Newline,
],
),
),
[
Newline,
],
)

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

@ -0,0 +1,4 @@
2:(
)e where
p implements T
e