Browse Source

* avoid wrong failure for bug #856

pierre 25 years ago
parent
commit
7cb441eadb
2 changed files with 5 additions and 3 deletions
  1. 2 2
      tests/webtbf/bug856u.pp
  2. 3 1
      tests/webtbf/tbug856.pp

+ 2 - 2
tests/webtbf/tbug856u.pp → tests/webtbf/bug856u.pp

@@ -1,5 +1,5 @@
 {$MODE objfpc}
-unit tbug856u;
+unit bug856u;
 interface
 type
   TMyClass = class
@@ -13,4 +13,4 @@ constructor TMyClass.Create(x: Integer);
 begin
 end;
 
-end.
+end.

+ 3 - 1
tests/webtbf/tbug856.pp

@@ -1,5 +1,7 @@
 {$MODE objfpc}
-uses tbug856u;
+uses
+  bug856u;
+
 begin
   TMyClass.Create(1);
 end.