Browse Source

* added missing unit

peter 21 years ago
parent
commit
7b3a982819
2 changed files with 13 additions and 1 deletions
  1. 1 1
      tests/webtbs/tw2956.pp
  2. 12 0
      tests/webtbs/uw2956.pp

+ 1 - 1
tests/webtbs/tw2956.pp

@@ -4,7 +4,7 @@
 
 
 program something;
 program something;
 {$mode Delphi}
 {$mode Delphi}
-Uses altunit;
+Uses uw2956;
 
 
 type
 type
      localclassfields = class(aclasswithfields)
      localclassfields = class(aclasswithfields)

+ 12 - 0
tests/webtbs/uw2956.pp

@@ -0,0 +1,12 @@
+unit uw2956;
+{$mode Delphi}
+
+interface
+
+type
+     aclasswithfields = class
+                          protected
+                            field1:integer;
+                            end;
+implementation
+end.