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

Move syntax tests to a dedicated crate

Browse source 
* test_fmt moves out of fmt crate
* test_parse _mostly_ moves out of parse crate and into `test_snapshots.rs` (some simple tests remain)
* now there's only two fuzz targets, fuzz_expr and fuzz_module, that cover both parsing and formatting
* added a system to auto-add new snapshot entries for new test files
* took some commented-out tests in `test_parse` and converted them to snapshot tests
* moved test_fmt's verification of formatting consistency into test_snapshots
* fixed a huge derp on my part where the fmt fuzzer in #4758 was completely useless (broken by refactoring just prior to submitting the PR)
* fixed a formatting bug found by fuzzing (bound_variable.expr.roc) - that I missed earlier due to ^^^ that derp
* no longer have roc_test_utils as a dependency in fmt - which was causing problems for the wasm build
This commit is contained in:
Joshua Warner 2022-12-26 12:50:31 -08:00
parent f0b3c3eb08
commit bfeddc470a
No known key found for this signature in database
GPG key ID: 89AD497003F93FDD
701 changed files with 1929 additions and 1516 deletions
Download patch file Download diff file Expand all files Collapse all files

1
crates/compiler/test_syntax/tests/snapshots/fail/ability_demand_value_has_args.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Ability(DemandColon(@15), @7), @0)

4
crates/compiler/test_syntax/tests/snapshots/fail/ability_demand_value_has_args.expr.roc Normal file
View file

@ -0,0 +1,4 @@
MEq has
eq b c : a, a -> U64 | a has MEq
1

1
crates/compiler/test_syntax/tests/snapshots/fail/ability_demands_not_indented_with_first.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Ability(DemandAlignment(4, @49), @40), @0)

5
crates/compiler/test_syntax/tests/snapshots/fail/ability_demands_not_indented_with_first.expr.roc Normal file
View file

@ -0,0 +1,5 @@
MEq has
eq : a, a -> U64 | a has MEq
neq : a, a -> U64 | a has MEq
1

1
crates/compiler/test_syntax/tests/snapshots/fail/ability_first_demand_not_indented_enough.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Ability(DemandAlignment(-1, @8), @7), @0)

4
crates/compiler/test_syntax/tests/snapshots/fail/ability_first_demand_not_indented_enough.expr.roc Normal file
View file

@ -0,0 +1,4 @@
MEq has
eq : a, a -> U64 | a has MEq
1

1
crates/compiler/test_syntax/tests/snapshots/fail/ability_non_signature_expression.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Ability(DemandName(@12), @7), @0)

4
crates/compiler/test_syntax/tests/snapshots/fail/ability_non_signature_expression.expr.roc Normal file
View file

@ -0,0 +1,4 @@
MEq has
123
1

1
crates/compiler/test_syntax/tests/snapshots/fail/alias_or_opaque_fail.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(InParens(End(@3), @0), @0)

2
crates/compiler/test_syntax/tests/snapshots/fail/alias_or_opaque_fail.expr.roc Normal file
View file

@ -0,0 +1,2 @@
(@,B
.e:

1
crates/compiler/test_syntax/tests/snapshots/fail/comment_with_tab.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Space(HasTab, @17), @0)

2
crates/compiler/test_syntax/tests/snapshots/fail/comment_with_tab.expr.roc Normal file
View file

@ -0,0 +1,2 @@
# comment with a
4

1
crates/compiler/test_syntax/tests/snapshots/fail/def_missing_final_expression.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(DefMissingFinalExpr2(Start(@11), @11), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/def_missing_final_expression.expr.roc Normal file
View file

@ -0,0 +1 @@
f : Foo.foo

1
crates/compiler/test_syntax/tests/snapshots/fail/double_plus.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(BadOperator("++", @14), @0)

2
crates/compiler/test_syntax/tests/snapshots/fail/double_plus.expr.roc Normal file
View file

@ -0,0 +1,2 @@
main =
[] ++ []

1
crates/compiler/test_syntax/tests/snapshots/fail/elm_function_syntax.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(ElmStyleFunction(@2-5, @6), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/elm_function_syntax.expr.roc Normal file
View file

@ -0,0 +1 @@
f x y = x

1
crates/compiler/test_syntax/tests/snapshots/fail/empty_or_pattern.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(When(Pattern(Start(@28), @28), @0), @0)

6
crates/compiler/test_syntax/tests/snapshots/fail/empty_or_pattern.expr.roc Normal file
View file

@ -0,0 +1,6 @@
when Just 4 is
Just 4 | ->
4
_ ->
2

1
crates/compiler/test_syntax/tests/snapshots/fail/error_inline_alias_argument_uppercase.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TInlineAlias(ArgumentNotLowercase(@50), @51), @4), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/error_inline_alias_argument_uppercase.expr.roc Normal file
View file

@ -0,0 +1 @@
f : List elem -> [Nil, Cons elem a] as LinkedList U

1
crates/compiler/test_syntax/tests/snapshots/fail/error_inline_alias_not_an_alias.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TInlineAlias(NotAnAlias(@39), @40), @4), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/error_inline_alias_not_an_alias.expr.roc Normal file
View file

@ -0,0 +1 @@
f : List elem -> [Nil, Cons elem a] as a

1
crates/compiler/test_syntax/tests/snapshots/fail/error_inline_alias_qualified.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TInlineAlias(Qualified(@39), @58), @4), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/error_inline_alias_qualified.expr.roc Normal file
View file

@ -0,0 +1 @@
f : List elem -> [Nil, Cons elem a] as Module.LinkedList a

1
crates/compiler/test_syntax/tests/snapshots/fail/expr_to_pattern_fail.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Pattern(NotAPattern(@3), @3), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/expr_to_pattern_fail.expr.roc Normal file
View file

@ -0,0 +1 @@
.e,

1
crates/compiler/test_syntax/tests/snapshots/fail/expression_indentation_end.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Start(@0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/expression_indentation_end.expr.roc Normal file
View file

@ -0,0 +1 @@
f <- Foo.foo

1
crates/compiler/test_syntax/tests/snapshots/fail/if_guard_without_condition.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(When(IfGuard(Start(@28), @27), @0), @0)

6
crates/compiler/test_syntax/tests/snapshots/fail/if_guard_without_condition.expr.roc Normal file
View file

@ -0,0 +1,6 @@
when Just 4 is
Just if ->
4
_ ->
2

1
crates/compiler/test_syntax/tests/snapshots/fail/if_missing_else.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(If(Else(@16), @0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/if_missing_else.expr.roc Normal file
View file

@ -0,0 +1 @@
if 5 == 5 then 2

1
crates/compiler/test_syntax/tests/snapshots/fail/if_outdented_then.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(If(IndentThenToken(@17), @8), @0)

5
crates/compiler/test_syntax/tests/snapshots/fail/if_outdented_then.expr.roc Normal file
View file

@ -0,0 +1,5 @@
x =
if 5 == 5
then 2 else 3
x

1
crates/compiler/test_syntax/tests/snapshots/fail/imports_missing_comma.header.result-ast Normal file
View file

@ -0,0 +1 @@
Header(Imports(ListEnd(@87), @65))

4
crates/compiler/test_syntax/tests/snapshots/fail/imports_missing_comma.header.roc Normal file
View file

@ -0,0 +1,4 @@
app "test-missing-comma"
packages { pf: "platform/main.roc" }
imports [pf.Task Base64]
provides [main, @Foo] to pf

1
crates/compiler/test_syntax/tests/snapshots/fail/inline_hastype.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(BadOperator(":", @21), @0)

4
crates/compiler/test_syntax/tests/snapshots/fail/inline_hastype.expr.roc Normal file
View file

@ -0,0 +1,4 @@
main =
(\x -> x) : I64
3

1
crates/compiler/test_syntax/tests/snapshots/fail/invalid_operator.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(BadOperator("**", @13), @0)

2
crates/compiler/test_syntax/tests/snapshots/fail/invalid_operator.expr.roc Normal file
View file

@ -0,0 +1,2 @@
main =
5 ** 3

1
crates/compiler/test_syntax/tests/snapshots/fail/lambda_double_comma.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Closure(Arg(@3), @0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/lambda_double_comma.expr.roc Normal file
View file

@ -0,0 +1 @@
\a,,b -> 1

1
crates/compiler/test_syntax/tests/snapshots/fail/lambda_extra_comma.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Closure(Arg(@1), @0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/lambda_extra_comma.expr.roc Normal file
View file

@ -0,0 +1 @@
\,x -> 1

1
crates/compiler/test_syntax/tests/snapshots/fail/lambda_leading_comma.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Closure(Arg(@1), @0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/lambda_leading_comma.expr.roc Normal file
View file

@ -0,0 +1 @@
\,b -> 1

1
crates/compiler/test_syntax/tests/snapshots/fail/lambda_missing_indent.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Closure(IndentBody(@5), @0), @0)

2
crates/compiler/test_syntax/tests/snapshots/fail/lambda_missing_indent.expr.roc Normal file
View file

@ -0,0 +1,2 @@
\x ->
1

1
crates/compiler/test_syntax/tests/snapshots/fail/list_double_comma.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(List(End(@7), @0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/list_double_comma.expr.roc Normal file
View file

@ -0,0 +1 @@
[1, 2, , 3]

1
crates/compiler/test_syntax/tests/snapshots/fail/list_pattern_not_terminated.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(When(Pattern(List(End(@22), @15), @15), @0), @0)

2
crates/compiler/test_syntax/tests/snapshots/fail/list_pattern_not_terminated.expr.roc Normal file
View file

@ -0,0 +1,2 @@
when [] is
[1, 2, -> ""

1
crates/compiler/test_syntax/tests/snapshots/fail/list_pattern_weird_indent.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(When(Pattern(List(End(@22), @15), @15), @0), @0)

3
crates/compiler/test_syntax/tests/snapshots/fail/list_pattern_weird_indent.expr.roc Normal file
View file

@ -0,0 +1,3 @@
when [] is
[1, 2,
3] -> ""

1
crates/compiler/test_syntax/tests/snapshots/fail/list_pattern_weird_rest_pattern.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(When(Pattern(List(Rest(@16), @15), @15), @0), @0)

2
crates/compiler/test_syntax/tests/snapshots/fail/list_pattern_weird_rest_pattern.expr.roc Normal file
View file

@ -0,0 +1,2 @@
when [] is
[...] -> ""

1
crates/compiler/test_syntax/tests/snapshots/fail/list_without_end.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(List(End(@6), @0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/list_without_end.expr.roc Normal file
View file

@ -0,0 +1 @@
[1, 2,

1
crates/compiler/test_syntax/tests/snapshots/fail/multi_no_end.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Str(EndlessMulti(@3), @0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/multi_no_end.expr.roc Normal file
View file

@ -0,0 +1 @@
"""there is no end

1
crates/compiler/test_syntax/tests/snapshots/fail/pattern_binds_keyword.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(When(Arrow(@24), @0), @0)

6
crates/compiler/test_syntax/tests/snapshots/fail/pattern_binds_keyword.expr.roc Normal file
View file

@ -0,0 +1,6 @@
when Just 4 is
Just when ->
4
_ ->
2

1
crates/compiler/test_syntax/tests/snapshots/fail/pattern_in_parens_end.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Closure(Pattern(PInParens(End(@4), @1), @1), @0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/pattern_in_parens_end.expr.roc Normal file
View file

@ -0,0 +1 @@
\( a

1
crates/compiler/test_syntax/tests/snapshots/fail/pattern_in_parens_end_comma.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Closure(Pattern(PInParens(End(@5), @1), @1), @0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/pattern_in_parens_end_comma.expr.roc Normal file
View file

@ -0,0 +1 @@
\( a,

1
crates/compiler/test_syntax/tests/snapshots/fail/pattern_in_parens_indent_open.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Closure(Pattern(PInParens(End(@2), @1), @1), @0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/pattern_in_parens_indent_open.expr.roc Normal file
View file

@ -0,0 +1 @@
\(

1
crates/compiler/test_syntax/tests/snapshots/fail/pattern_in_parens_open.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Closure(Pattern(PInParens(End(@4), @1), @1), @0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/pattern_in_parens_open.expr.roc Normal file
View file

@ -0,0 +1 @@
\( a

1
crates/compiler/test_syntax/tests/snapshots/fail/record_type_end.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TRecord(End(@13), @4), @4), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/record_type_end.expr.roc Normal file
View file

@ -0,0 +1 @@
f : { a: Int,

1
crates/compiler/test_syntax/tests/snapshots/fail/record_type_keyword_field_name.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TRecord(Field(@6), @4), @4), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/record_type_keyword_field_name.expr.roc Normal file
View file

@ -0,0 +1 @@
f : { if : I64 }

1
crates/compiler/test_syntax/tests/snapshots/fail/record_type_missing_comma.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TRecord(End(@11), @4), @4), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/record_type_missing_comma.expr.roc Normal file
View file

@ -0,0 +1 @@
f : { foo bar }

1
crates/compiler/test_syntax/tests/snapshots/fail/record_type_open.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TRecord(End(@5), @4), @4), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/record_type_open.expr.roc Normal file
View file

@ -0,0 +1 @@
f : {

1
crates/compiler/test_syntax/tests/snapshots/fail/record_type_open_indent.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TRecord(IndentEnd(@5), @4), @4), @0)

2
crates/compiler/test_syntax/tests/snapshots/fail/record_type_open_indent.expr.roc Normal file
View file

@ -0,0 +1,2 @@
f : {
foo : I64,

1
crates/compiler/test_syntax/tests/snapshots/fail/record_type_tab.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TRecord(Space(HasTab, @10), @4), @4), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/record_type_tab.expr.roc Normal file
View file

@ -0,0 +1 @@
f : { foo }

1
crates/compiler/test_syntax/tests/snapshots/fail/single_no_end.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Str(EndlessSingle(@1), @0), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/single_no_end.expr.roc Normal file
View file

@ -0,0 +1 @@
"there is no end

1
crates/compiler/test_syntax/tests/snapshots/fail/tab_crash.header.result-ast Normal file
View file

@ -0,0 +1 @@
Header(Space(HasMisplacedCarriageReturn, @1))

1
crates/compiler/test_syntax/tests/snapshots/fail/tab_crash.header.roc Normal file
View file

@ -0,0 +1 @@
# A

1
crates/compiler/test_syntax/tests/snapshots/fail/tag_union_end.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TTagUnion(End(@9), @4), @4), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/tag_union_end.expr.roc Normal file
View file

@ -0,0 +1 @@
f : [Yes,

1
crates/compiler/test_syntax/tests/snapshots/fail/tag_union_lowercase_tag_name.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TTagUnion(End(@5), @4), @4), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/tag_union_lowercase_tag_name.expr.roc Normal file
View file

@ -0,0 +1 @@
f : [lowercase]

1
crates/compiler/test_syntax/tests/snapshots/fail/tag_union_open.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TTagUnion(End(@5), @4), @4), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/tag_union_open.expr.roc Normal file
View file

@ -0,0 +1 @@
f : [

1
crates/compiler/test_syntax/tests/snapshots/fail/tag_union_second_lowercase_tag_name.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(Type(TTagUnion(End(@11), @4), @4), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/tag_union_second_lowercase_tag_name.expr.roc Normal file
View file

@ -0,0 +1 @@
f : [Good, bad]

1
crates/compiler/test_syntax/tests/snapshots/fail/trailing_operator.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(TrailingOperator(@2), @0)

1
crates/compiler/test_syntax/tests/snapshots/fail/trailing_operator.expr.roc Normal file
View file

@ -0,0 +1 @@
J-

1
crates/compiler/test_syntax/tests/snapshots/fail/type_annotation_double_colon.expr.result-ast Normal file
View file

@ -0,0 +1 @@
Expr(BadOperator("::", @2), @0)

4
crates/compiler/test_syntax/tests/snapshots/fail/type_annotation_double_colon.expr.roc Normal file
View file

@ -0,0 +1,4 @@
f :: I64
f = 42
f

Some files were not shown because too many files have changed in this diff Show more