fcl-passrc: useanalyzer: clean up

git-svn-id: trunk@41482 -

packages/fcl-passrc/tests/tcuseanalyzer.pas

@@ -2265,20 +2265,20 @@ end;
 
 procedure TTestUseAnalyzer.TestWP_UnitInitialization;
 begin
-  AddModuleWithIntfImplSrc('unit1.pp',
+  AddModuleWithIntfImplSrc('unit2.pp',
     LinesToStr([
-    'uses unit2;',
+    'var i: longint;',
     '']),
     LinesToStr([
-    'initialization',
-    'i:=2;']));
+    '']));
 
-  AddModuleWithIntfImplSrc('unit2.pp',
+  AddModuleWithIntfImplSrc('unit1.pp',
     LinesToStr([
-    'var i: longint;',
+    'uses unit2;',
     '']),
     LinesToStr([
-    '']));
+    'initialization',
+    'i:=2;']));
 
   StartProgram(true);
   Add('uses unit1;');