Browse Source

* renamed

peter 25 years ago
parent
commit
7c067cef8a
4 changed files with 8 additions and 8 deletions
  1. 2 2
      tests/test/README
  2. 3 3
      tests/test/timplprog.pp
  3. 2 2
      tests/test/uimpluni1.pp
  4. 1 1
      tests/test/uimpluni2.pp

+ 2 - 2
tests/test/README

@@ -33,8 +33,8 @@ case .................. tcase1.pp      tests case statements with byte and word
                         tcase2.pp      tests case with sub enum types
                         tcase2.pp      tests case with sub enum types
 Arrays ................ tarray1.pp     open arrays with classes
 Arrays ................ tarray1.pp     open arrays with classes
                         tarray2.pp     Array of const
                         tarray2.pp     Array of const
-			tarray3.pp     Array of Char #1
-			tarray4.pp     Array of Char #2
+			tarray3.pp     Array of Char #1 (Known bug)
+			tarray4.pp     Array of Char #2 (Known bug)
 Enumerations .......... tenum1.pp      tests assignments of subrange
 Enumerations .......... tenum1.pp      tests assignments of subrange
                                        enumerations
                                        enumerations
 Codegenerration ....... tcg1.pp        i386 pushw
 Codegenerration ....... tcg1.pp        i386 pushw

+ 3 - 3
tests/test/implprog.pp → tests/test/timplprog.pp

@@ -1,4 +1,4 @@
-uses impluni1;
+uses uimpluni1;
 
 
     Type
     Type
       BEC_Single_Error = record
       BEC_Single_Error = record
@@ -8,8 +8,8 @@ uses impluni1;
 
 
     Const
     Const
       BEC_Err_Msgs: array [0..1] of BEC_Single_Error =
       BEC_Err_Msgs: array [0..1] of BEC_Single_Error =
-       ((E : impluni1.ICanUseThis;  M : '[1] No Error'),
-        (E : impluni2.ICantUseThis; M : '[10000] A Bug?'));
+       ((E : uimpluni1.ICanUseThis;  M : '[1] No Error'),
+        (E : uimpluni2.ICantUseThis; M : '[10000] A Bug?'));
 
 
 begin
 begin
 end.
 end.

+ 2 - 2
tests/test/impluni1.pp → tests/test/uimpluni1.pp

@@ -1,8 +1,8 @@
-unit impluni1;
+unit uimpluni1;
 
 
 interface
 interface
 
 
-uses impluni2;
+uses uimpluni2;
 
 
 const
 const
   ICanUseThis = 1;
   ICanUseThis = 1;

+ 1 - 1
tests/test/impluni2.pp → tests/test/uimpluni2.pp

@@ -1,4 +1,4 @@
-unit impluni2;
+unit uimpluni2;
 
 
 interface
 interface