codetools: test for scope rule local before uses

components/codetools/tests/laztests/tunitdots.main.pas

@@ -5,7 +5,7 @@ unit tunitdots.main;
 interface
 
 uses
-  unitdots.dot, unitdots; // unit names (with or without namespaces) win over interface identifiers
+  unitdots.dot, unitdots; // unit names (with or without namespaces) win over used interface identifiers
                           // even though the 'unitdots.dot' is left of 'unitdots'
 
 implementation

components/codetools/tests/testfinddeclaration.pas

@@ -161,6 +161,9 @@ type
     procedure TestFindDeclaration_IncludeSearch_StarStar;
     procedure TestFindDeclaration_FindFPCSrcNameSpacedUnits;
 
+    // unit namespaces
+    procedure TestFindDeclaration_LocalBeforeUses;
+
     // directives
     procedure TestFindDeclaration_DirectiveWithIn;
 
@@ -1687,6 +1690,40 @@ begin
   Traverse(FPCSrcDir,0,-1);
 end;
 
+procedure TTestFindDeclaration.TestFindDeclaration_LocalBeforeUses;
+var
+  DotsUnit: TCodeBuffer;
+begin
+  DotsUnit:=nil;
+  try
+    DotsUnit:=CodeToolBoss.CreateFile('nsA.dots.pp');
+    DotsUnit.Source:='unit nsa.dots;'+LineEnding
+      +'interface'+LineEnding
+      +'implementation'+LineEnding
+      +'end.';
+
+    StartProgram;
+    Add([
+    'uses nsA.dots;',
+    'type',
+    '  TWing = record',
+    '    Size: word;',
+    '  end;',
+    '  TBird = record',
+    '    DoTs: TWing;',
+    '  end;',
+    'var NSA: TBird;',
+    'begin',
+    '  NSA.dots.Size{declaration:twing.Size}:=3',
+    'end.',
+    '']);
+    FindDeclarations(Code);
+  finally
+    if DotsUnit<>nil then
+      DotsUnit.IsDeleted:=true;
+  end;
+end;
+
 procedure TTestFindDeclaration.TestFindDeclaration_DirectiveWithIn;
 begin
   StartProgram;