@@ -633,19 +633,19 @@ let _ =
633633|> Array.map( fun su ->
634634let r = su.RangeAlternate
635635 su.Symbol.ToString(), ( r.StartLine, r.StartColumn, r.EndLine, r.EndColumn))
636+ |> Array.distinct
636637|> shouldEqual
637638// note: these "System" sysbol uses are not duplications because each of them corresponts to different namespaces
638- [|( " System" , ( 2 , 5 , 2 , 11 )); ( " System" , ( 2 , 5 , 2 , 11 ));
639- ( " System" , ( 2 , 5 , 2 , 11 )); ( " System" , ( 2 , 5 , 2 , 11 ));
640- ( " System" , ( 2 , 5 , 2 , 11 )); ( " System" , ( 2 , 5 , 2 , 11 ));
641- ( " System" , ( 2 , 5 , 2 , 11 )); ( " System" , ( 2 , 5 , 2 , 11 ));
642- ( " System" , ( 2 , 5 , 2 , 11 )); ( " System" , ( 2 , 5 , 2 , 11 ));
643- ( " System" , ( 2 , 5 , 2 , 11 )); ( " System" , ( 2 , 5 , 2 , 11 ));
644- ( " System" , ( 2 , 5 , 2 , 11 )); ( " ConsoleKey" , ( 5 , 10 , 5 , 20 ));
645- ( " field Tab" , ( 5 , 10 , 5 , 24 )); ( " ConsoleKey" , ( 6 , 6 , 6 , 16 ));
646- ( " field OemClear" , ( 6 , 6 , 6 , 25 )); ( " ConsoleKey" , ( 6 , 29 , 6 , 39 ));
647- ( " field A" , ( 6 , 29 , 6 , 41 )); ( " ConsoleKey" , ( 7 , 11 , 7 , 21 ));
648- ( " field B" , ( 7 , 11 , 7 , 23 )); ( " Test" , ( 1 , 0 , 1 , 0 ))|]
639+ [|( " System" , ( 2 , 5 , 2 , 11 ))
640+ ( " ConsoleKey" , ( 5 , 10 , 5 , 20 ));
641+ ( " field Tab" , ( 5 , 10 , 5 , 24 ));
642+ ( " ConsoleKey" , ( 6 , 6 , 6 , 16 ));
643+ ( " field OemClear" , ( 6 , 6 , 6 , 25 ));
644+ ( " ConsoleKey" , ( 6 , 29 , 6 , 39 ));
645+ ( " field A" , ( 6 , 29 , 6 , 41 ));
646+ ( " ConsoleKey" , ( 7 , 11 , 7 , 21 ));
647+ ( " field B" , ( 7 , 11 , 7 , 23 ));
648+ ( " Test" , ( 1 , 0 , 1 , 0 ))|]
649649
650650[<Test>]
651651let ``Literal values should be reported`` () =