@@ -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" ) >]
243247let ``Find function from member 1`` () =
244248 let input =
0 commit comments