Fix Find All References for Active Pattern Cases #2721
TheAngryByrdAnnotations
180 errors
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$fsautocomplete>[email protected](AsyncActivation`1 ctxt)
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$fsautocomplete>[email protected](AsyncActivation`1 ctxt)
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /home/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in D:\a\FsAutoComplete\FsAutoComplete\test\FsAutoComplete.Tests.Lsp\FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$fsautocomplete>[email protected](AsyncActivation`1 ctxt)
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.BackgroundCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in let bindings with patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let example =
let parse x =
match x with
| 〈ParseInt〉 i -> Some i
| _ -> None
let result =
match "42" with
| 〈ParseInt〉 i -> i + 10
| _ -> 0
result
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - mixed with complete patterns
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
let (|Even|Odd|) n = if n % 2 = 0 then Even else Odd
open MyModule
let categorize str =
match str with
| 〈ParseInt〉 i ->
match i with
| Even -> "even number"
| Odd -> "odd number"
| _ -> "not a number"
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in lambda and match lambda
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parser = function
| 〈ParseInt〉 i -> Some i
| _ -> None
let mapper = fun x ->
match x with
| 〈ParseInt〉 i -> i * 2
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in sequence expressions
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let parseAll items =
seq {
for item in items do
match item with
| 〈ParseInt〉 i -> yield i
| _ -> ()
}
let parseList = [
for x in ["1"; "2"; "abc"] do
match x with
| 〈ParseInt〉 i -> yield i
| _ -> ()
]
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - in try-with
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let safeParse str =
try
match str with
| 〈ParseInt〉 i -> Some i
| _ -> None
with
| ex -> None
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - deeply nested matches
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let processValue x =
match x with
| Some s ->
match s with
| 〈ParseInt〉 i ->
match i with
| i when i > 0 -> "positive"
| _ -> "non-positive"
| _ -> "not int"
| None -> "no value"
let nested =
if true then
match "123" with
| 〈ParseInt〉 x -> x * 2
| _ -> 0
else
42
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - nested in match result
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match 100 with
| i when i > 50 -> i
| _ ->
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$fsautocomplete>[email protected](AsyncActivation`1 ctxt)
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for Partial Active Pattern - from definition
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|ParseInt|_|〉) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
---------- Actual: --------------------
module MyModule =
let (|〈ParseInt〉|_|) (str: string) =
let success, i = System.Int32.TryParse str
if success then Some i else None
open MyModule
let _ =
match "42" with
| 〈ParseInt〉 i -> i
| _ -> 0
let _ =
match "test" with
| MyModule.〈ParseInt〉 i -> i
| _ -> 0
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.active patterns.can find references for full Active Pattern from declaration
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 664
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|
|
FSAC.lsp.Ionide WorkspaceLoader.TransparentCompiler.Find All References tests.range.can get range of full Active Pattern
Should find correct references. String does not match at position 25. Expected char: '〈', but got '|'.
---------- Expected: ------------------
module MyModule =
let (〈|Even|Odd|〉) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (〈|Even|Odd|〉) 42
let _ = MyModule.(〈|Even|Odd|〉) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
---------- Actual: --------------------
module MyModule =
let (|〈Even|Odd〉|) value =
if value % 2 = 0 then Even else Odd
open MyModule
let _ = (|〈Even|Odd〉|) 42
let _ = MyModule.(|〈Even|Odd〉|) 42
let _ =
MyModule
.(〈|Even|
Odd|〉) 42
let _ =
match 42 with
| Even -> ()
| Odd -> ()
let _ =
match 42 with
| MyModule.Even -> ()
| MyModule.Odd -> ()
at [email protected](FSharpResult`2 refs) in /Users/runner/work/FsAutoComplete/FsAutoComplete/test/FsAutoComplete.Tests.Lsp/FindReferencesTests.fs:line 497
at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvokeNoHijackCheck[a,b](AsyncActivation`1 ctxt, b result1, FSharpFunc`2 userCode) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 527
at <StartupCode$FSharp-Core>[email protected](Unit unitVar0) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 1463
at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\fsharp\src\FSharp.Core\async.fs:line 112
--- End of stack trace from previous location ---
|