tests: rename test files to make them run by testsuite

git-svn-id: trunk@24251 -

.gitattributes

@@ -11676,6 +11676,12 @@ tests/test/ttypedrecord1.pp svneol=native#text/plain
 tests/test/ttypedrecord2.pp svneol=native#text/plain
 tests/test/ttypedrecord3.pp svneol=native#text/plain
 tests/test/ttypedrecord4.pp svneol=native#text/plain
+tests/test/tudots.dot.next.pp svneol=native#text/pascal
+tests/test/tudots.dot.pp svneol=native#text/pascal
+tests/test/tudots.dot.prog.pp svneol=native#text/pascal
+tests/test/tudots.pp svneol=native#text/pascal
+tests/test/tudots.prog.pp svneol=native#text/pascal
+tests/test/tudots.test.pp svneol=native#text/pascal
 tests/test/tunaligned1.pp svneol=native#text/plain
 tests/test/tunistr1.pp svneol=native#text/plain
 tests/test/tunistr2.pp svneol=native#text/plain
@@ -11716,12 +11722,6 @@ tests/test/twrstr8.pp svneol=native#text/plain
 tests/test/uabstrcl.pp svneol=native#text/plain
 tests/test/uchlp12.pp svneol=native#text/pascal
 tests/test/uchlp18.pp svneol=native#text/pascal
-tests/test/udots.dot.next.pp svneol=native#text/pascal
-tests/test/udots.dot.pp svneol=native#text/pascal
-tests/test/udots.dot.prog.pp svneol=native#text/pascal
-tests/test/udots.pp svneol=native#text/pascal
-tests/test/udots.prog.pp svneol=native#text/pascal
-tests/test/udots.test.pp svneol=native#text/pascal
 tests/test/uenum2a.pp svneol=native#text/plain
 tests/test/uenum2b.pp svneol=native#text/plain
 tests/test/ugenconstraints.pas svneol=native#text/pascal

tests/test/tdotunits1.pp

@@ -5,10 +5,10 @@ program tdotunits1;
 {$mode delphi}
 
 uses
-  udots.dot.next, udots;
+  tudots.dot.next, tudots;
 
 begin
   // this identifier can't be resolved because namespace udots.dot hides the udots unit visibility
-  udots.dot.test := 1;
+  tudots.dot.test := 1;
 end.
 

tests/test/tdotunits2.pp

@@ -3,15 +3,15 @@ program tdotunits2;
 {$mode delphi}
 
 uses
-  udots.dot, udots.dot.next, udots;
+  tudots.dot, tudots.dot.next, tudots;
 
 begin
   // this identifier should be resolved to test variable from udots.dot unit
-  udots.dot.test := 'a';
-  if udots.dot.test <> 'a' then
+  tudots.dot.test := 'a';
+  if tudots.dot.test <> 'a' then
     halt(1);
-  udots.dot.t;
-  if udots.dot.test <> 'c' then
+  tudots.dot.t;
+  if tudots.dot.test <> 'c' then
     halt(2);
 end.
 

tests/test/tdotunits3.pp

@@ -4,21 +4,21 @@ program tdotunits3;
 {$mode delphi}
 
 uses
-  udots.dot.next, udots;
+  tudots.dot.next, tudots;
 
 type
   TDot = record
     test: string;
   end;
 
-  TUdots = record
+  TUdots1 = record
     dot: TDot;
   end;
 
 var
-  udots: TUdots;
+  tudots: TUdots1;
 begin
   // this identifier should be resolved to local udots variable
-  udots.dot.test := 'test';
+  tudots.dot.test := 'test';
 end.
 

tests/test/tdotunits4.pp

@@ -5,7 +5,7 @@ program tdotunits4;
 {$mode delphi}
 
 uses
-  udots.test;
+  tudots.test;
 
 begin
 end.

tests/test/udots.dot.next.pp → tests/test/tudots.dot.next.pp

@@ -1,4 +1,4 @@
-unit udots.dot.next;
+unit tudots.dot.next;
 
 interface
 

tests/test/udots.dot.pp → tests/test/tudots.dot.pp

@@ -1,4 +1,4 @@
-unit udots.dot;
+unit tudots.dot;
 
 interface
 
@@ -10,16 +10,16 @@ procedure t;
 implementation
 
 uses
-  udots, udots.dot.next;
+  tudots, tudots.dot.next;
 
 // test that type is resolved
 var
-  test1: udots.dot.next.ttest;
+  test1: tudots.dot.next.ttest;
 
 procedure t;
 begin
   // test that we resolved the next identifier to the local variable test
-  udots.dot.test := 'c';
+  tudots.dot.test := 'c';
 end;
 
 end.

tests/test/udots.dot.prog.pp → tests/test/tudots.dot.prog.pp

@@ -1,15 +1,15 @@
 {%fail}
 {%norun}
-program udots.dot.prog;
+program tudots.dot.prog;
 
 {$mode delphi}
 
 uses
-  udots;
+  tudots;
 
 begin
   // this must fail because we have a namespace udots.dot and it has no unit test
-  udots.dot.test := 1;
+  tudots.dot.test := 1;
 end.
 
 

tests/test/udots.pp → tests/test/tudots.pp

@@ -1,4 +1,4 @@
-unit udots;
+unit tudots;
 
 interface
 

tests/test/udots.prog.pp → tests/test/tudots.prog.pp

@@ -1,14 +1,14 @@
 {%norun}
-program udots.prog;
+program tudots.prog;
 
 {$mode delphi}
 
 uses
-  udots;
+  tudots;
 
 begin
   // this should not fail although we have a namespace udots and a unit udots
-  udots.dot.test := 1;
+  tudots.dot.test := 1;
 end.
 
 

tests/test/tudots.test.pp

@@ -0,0 +1,16 @@
+{ %fail }
+unit tudots.test;
+
+interface
+
+// this must fail
+var
+  test: tudots.dot.next.ttest;
+
+implementation
+
+uses
+  tudots.dot.next;
+
+end.
+

tests/test/udots.test.pp

@@ -1,15 +0,0 @@
-unit udots.test;
-
-interface
-
-// this must fail
-var
-  test: udots.dot.next.ttest;
-
-implementation
-
-uses
-  udots.dot.next;
-
-end.
-