Skip to content

Commit dce81de

Browse files
edgarfgpedgarfgp
committed
more syntax tree tests
1 parent 98937bc commit dce81de

35 files changed

+1084
-0
lines changed

‎tests/service/data/SyntaxTree/SynType/Tuple 15.fs

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
module Module
2+
3+
let x: int, y: int = 0, 4

‎tests/service/data/SyntaxTree/SynType/Tuple 15.fs.bsl

Lines changed: 31 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,31 @@
1+
ImplFile
2+
(ParsedImplFileInput
3+
("/root/SynType/Tuple 15.fs", false, QualifiedNameOfFile Module, [],
4+
[SynModuleOrNamespace
5+
([Module], false, NamedModule,
6+
[Let
7+
(false,
8+
[SynBinding
9+
(None, Normal, false, false, [],
10+
PreXmlDoc ((3,0), FSharp.Compiler.Xml.XmlDocCollector),
11+
SynValData
12+
(None, SynValInfo ([], SynArgInfo ([], false, None)), None),
13+
Named (SynIdent (x, None), false, None, (3,4--3,5)),
14+
Some
15+
(SynBindingReturnInfo
16+
(LongIdent (SynLongIdent ([int], [], [None])),
17+
(3,7--3,10), [], { ColonRange = Some (3,5--3,6) })),
18+
Typed
19+
(ArbitraryAfterError ("localBinding2", (3,10--3,10)),
20+
LongIdent (SynLongIdent ([int], [], [None])), (3,10--3,10)),
21+
(3,4--3,5), Yes (3,0--3,10), { LeadingKeyword = Let (3,0--3,3)
22+
InlineKeyword = None
23+
EqualsRange = None })],
24+
(3,0--3,10))],
25+
PreXmlDoc ((1,0), FSharp.Compiler.Xml.XmlDocCollector), [], None,
26+
(1,0--3,10), { LeadingKeyword = Module (1,0--1,6) })], (true, true),
27+
{ ConditionalDirectives = []
28+
WarnDirectives = []
29+
CodeComments = [] }, set []))
30+
31+
(3,10)-(3,11) parse error Unexpected symbol ',' in binding. Expected '=' or other token.

‎tests/service/data/SyntaxTree/SynType/Typed LetBang 09.fs

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
module Module
2+
async {
3+
let! (Union value) = asyncOption()
4+
return value
5+
}

‎tests/service/data/SyntaxTree/SynType/Typed LetBang 09.fs.bsl

Lines changed: 34 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,34 @@
1+
ImplFile
2+
(ParsedImplFileInput
3+
("/root/SynType/Typed LetBang 09.fs", false, QualifiedNameOfFile Module, [],
4+
[SynModuleOrNamespace
5+
([Module], false, NamedModule,
6+
[Expr
7+
(App
8+
(NonAtomic, false, Ident async,
9+
ComputationExpr
10+
(false,
11+
LetOrUseBang
12+
(Yes (3,4--3,38), false, true,
13+
Paren
14+
(LongIdent
15+
(SynLongIdent ([Union], [], [None]), None, None,
16+
Pats
17+
[Named
18+
(SynIdent (value, None), false, None,
19+
(3,16--3,21))], None, (3,10--3,21)),
20+
(3,9--3,22)),
21+
App
22+
(Atomic, false, Ident asyncOption,
23+
Const (Unit, (3,36--3,38)), (3,25--3,38)), [],
24+
YieldOrReturn
25+
((false, true), Ident value, (4,4--4,16),
26+
{ YieldOrReturnKeyword = (4,4--4,10) }), (3,4--4,16),
27+
{ LetOrUseBangKeyword = (3,4--3,8)
28+
EqualsRange = Some (3,23--3,24) }), (2,6--5,1)),
29+
(2,0--5,1)), (2,0--5,1))],
30+
PreXmlDoc ((1,0), FSharp.Compiler.Xml.XmlDocCollector), [], None,
31+
(1,0--5,1), { LeadingKeyword = Module (1,0--1,6) })], (true, true),
32+
{ ConditionalDirectives = []
33+
WarnDirectives = []
34+
CodeComments = [] }, set []))

‎tests/service/data/SyntaxTree/SynType/Typed LetBang 10.fs

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
module Module
2+
async {
3+
let! Union value = asyncOption()
4+
return value
5+
}

‎tests/service/data/SyntaxTree/SynType/Typed LetBang 10.fs.bsl

Lines changed: 32 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,32 @@
1+
ImplFile
2+
(ParsedImplFileInput
3+
("/root/SynType/Typed LetBang 10.fs", false, QualifiedNameOfFile Module, [],
4+
[SynModuleOrNamespace
5+
([Module], false, NamedModule,
6+
[Expr
7+
(App
8+
(NonAtomic, false, Ident async,
9+
ComputationExpr
10+
(false,
11+
LetOrUseBang
12+
(Yes (3,4--3,36), false, true,
13+
LongIdent
14+
(SynLongIdent ([Union], [], [None]), None, None,
15+
Pats
16+
[Named
17+
(SynIdent (value, None), false, None,
18+
(3,15--3,20))], None, (3,9--3,20)),
19+
App
20+
(Atomic, false, Ident asyncOption,
21+
Const (Unit, (3,34--3,36)), (3,23--3,36)), [],
22+
YieldOrReturn
23+
((false, true), Ident value, (4,4--4,16),
24+
{ YieldOrReturnKeyword = (4,4--4,10) }), (3,4--4,16),
25+
{ LetOrUseBangKeyword = (3,4--3,8)
26+
EqualsRange = Some (3,21--3,22) }), (2,6--5,1)),
27+
(2,0--5,1)), (2,0--5,1))],
28+
PreXmlDoc ((1,0), FSharp.Compiler.Xml.XmlDocCollector), [], None,
29+
(1,0--5,1), { LeadingKeyword = Module (1,0--1,6) })], (true, true),
30+
{ ConditionalDirectives = []
31+
WarnDirectives = []
32+
CodeComments = [] }, set []))

‎tests/service/data/SyntaxTree/SynType/Typed LetBang 11.fs

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
module Module
2+
async {
3+
let! (Union value): int option = asyncOption()
4+
return value
5+
}

‎tests/service/data/SyntaxTree/SynType/Typed LetBang 11.fs.bsl

Lines changed: 40 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,40 @@
1+
ImplFile
2+
(ParsedImplFileInput
3+
("/root/SynType/Typed LetBang 11.fs", false, QualifiedNameOfFile Module, [],
4+
[SynModuleOrNamespace
5+
([Module], false, NamedModule,
6+
[Expr
7+
(App
8+
(NonAtomic, false, Ident async,
9+
ComputationExpr
10+
(false,
11+
LetOrUseBang
12+
(Yes (3,4--3,50), false, true,
13+
Typed
14+
(Paren
15+
(LongIdent
16+
(SynLongIdent ([Union], [], [None]), None, None,
17+
Pats
18+
[Named
19+
(SynIdent (value, None), false, None,
20+
(3,16--3,21))], None, (3,10--3,21)),
21+
(3,9--3,22)),
22+
App
23+
(LongIdent (SynLongIdent ([option], [], [None])),
24+
None,
25+
[LongIdent (SynLongIdent ([int], [], [None]))], [],
26+
None, true, (3,24--3,34)), (3,9--3,34)),
27+
App
28+
(Atomic, false, Ident asyncOption,
29+
Const (Unit, (3,48--3,50)), (3,37--3,50)), [],
30+
YieldOrReturn
31+
((false, true), Ident value, (4,4--4,16),
32+
{ YieldOrReturnKeyword = (4,4--4,10) }), (3,4--4,16),
33+
{ LetOrUseBangKeyword = (3,4--3,8)
34+
EqualsRange = Some (3,35--3,36) }), (2,6--5,1)),
35+
(2,0--5,1)), (2,0--5,1))],
36+
PreXmlDoc ((1,0), FSharp.Compiler.Xml.XmlDocCollector), [], None,
37+
(1,0--5,1), { LeadingKeyword = Module (1,0--1,6) })], (true, true),
38+
{ ConditionalDirectives = []
39+
WarnDirectives = []
40+
CodeComments = [] }, set []))

‎tests/service/data/SyntaxTree/SynType/Typed LetBang 12.fs

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
module Module
2+
async {
3+
let! Union value: int option = asyncOption()
4+
return value
5+
}

‎tests/service/data/SyntaxTree/SynType/Typed LetBang 12.fs.bsl

Lines changed: 38 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,38 @@
1+
ImplFile
2+
(ParsedImplFileInput
3+
("/root/SynType/Typed LetBang 12.fs", false, QualifiedNameOfFile Module, [],
4+
[SynModuleOrNamespace
5+
([Module], false, NamedModule,
6+
[Expr
7+
(App
8+
(NonAtomic, false, Ident async,
9+
ComputationExpr
10+
(false,
11+
LetOrUseBang
12+
(Yes (3,4--3,48), false, true,
13+
Typed
14+
(LongIdent
15+
(SynLongIdent ([Union], [], [None]), None, None,
16+
Pats
17+
[Named
18+
(SynIdent (value, None), false, None,
19+
(3,15--3,20))], None, (3,9--3,20)),
20+
App
21+
(LongIdent (SynLongIdent ([option], [], [None])),
22+
None,
23+
[LongIdent (SynLongIdent ([int], [], [None]))], [],
24+
None, true, (3,22--3,32)), (3,9--3,32)),
25+
App
26+
(Atomic, false, Ident asyncOption,
27+
Const (Unit, (3,46--3,48)), (3,35--3,48)), [],
28+
YieldOrReturn
29+
((false, true), Ident value, (4,4--4,16),
30+
{ YieldOrReturnKeyword = (4,4--4,10) }), (3,4--4,16),
31+
{ LetOrUseBangKeyword = (3,4--3,8)
32+
EqualsRange = Some (3,33--3,34) }), (2,6--5,1)),
33+
(2,0--5,1)), (2,0--5,1))],
34+
PreXmlDoc ((1,0), FSharp.Compiler.Xml.XmlDocCollector), [], None,
35+
(1,0--5,1), { LeadingKeyword = Module (1,0--1,6) })], (true, true),
36+
{ ConditionalDirectives = []
37+
WarnDirectives = []
38+
CodeComments = [] }, set []))

0 commit comments

Comments
 (0)