Skip to content

Commit 0334812

Browse files
committed
add comments about 139
1 parent 42cc2b6 commit 0334812

File tree

2 files changed

+7
-3
lines changed

2 files changed

+7
-3
lines changed

tests/service/EditorTests.fs

+6-2
Original file line numberDiff line numberDiff line change
@@ -35,7 +35,7 @@ let ``Intro test`` () =
3535
let inputLines = input.Split('\n')
3636
let file = "/home/user/Test.fsx"
3737
let untyped, typeCheckResults = parseAndTypeCheckFileInProject(file, input)
38-
let identToken = Parser.tagOfToken(Parser.token.IDENT(""))
38+
let identToken = FSharpTokenTag.IDENT
3939

4040
// We only expect one reported error. However,
4141
// on Unix, using filenames like /home/user/Test.fsx gives a second copy of all parse errors due to the
@@ -216,7 +216,7 @@ let ``Expression typing test`` () =
216216
let inputLines = input3.Split('\n')
217217
let file = "/home/user/Test.fsx"
218218
let untyped, typeCheckResults = parseAndTypeCheckFileInProject(file, input3)
219-
let identToken = Parser.tagOfToken(Parser.token.IDENT(""))
219+
let identToken = FSharpTokenTag.IDENT
220220

221221
// We only expect one reported error. However,
222222
// on Unix, using filenames like /home/user/Test.fsx gives a second copy of all parse errors due to the
@@ -239,6 +239,10 @@ let ``Expression typing test`` () =
239239
"StartsWith"; "Substring"; "ToCharArray"; "ToLower"; "ToLowerInvariant";
240240
"ToString"; "ToUpper"; "ToUpperInvariant"; "Trim"; "TrimEnd"; "TrimStart"])
241241

242+
// The underlying problem is that the parser error recovery doesn't include _any_ information for
243+
// the incomplete member:
244+
// member x.Test =
245+
242246
[<Test; Ignore("Currently failing, see #139")>]
243247
let ``Find function from member 1`` () =
244248
let input =

tests/service/FsiTests.fs

+1-1
Original file line numberDiff line numberDiff line change
@@ -142,7 +142,7 @@ let ``ParseAndCheckInteraction test 1``() =
142142

143143
// Check we can't get a declaration location for text in the F# interactive state (because the file doesn't exist)
144144
// TODO: check that if we use # line directives, then the file will exist correctly
145-
let identToken = Parser.tagOfToken(Parser.token.IDENT(""))
145+
let identToken = FSharpTokenTag.IDENT
146146
typedResults.GetDeclarationLocationAlternate(1,6,"xxxxxx",["xxxxxx"]) |> Async.RunSynchronously |> shouldEqual (FSharpFindDeclResult.DeclNotFound FSharpFindDeclFailureReason.NoSourceCode)
147147

148148
// Check we can get a tooltip for text in the F# interactive state

0 commit comments

Comments
 (0)