tests: moved utcbaseevents to TCFresnelBaseEvents

src/tests/utcbaseevents.pas → tests/base/TCFresnelBaseEvents.pas

@@ -1,4 +1,15 @@
-unit utcbaseevents;
+{
+ *****************************************************************************
+  This file is part of Fresnel.
+
+  See the file COPYING.modifiedLGPL.txt, included in this distribution,
+  for details about the license.
+ *****************************************************************************
+
+ Examples:
+    ./testfresnelbase --suite=TCEventsRegistry.TestRegister
+}
+unit TCFresnelBaseEvents;
 
 {$mode objfpc}
 {$H+}
@@ -8,7 +19,7 @@ unit utcbaseevents;
 interface
 
 uses
-  Classes, SysUtils, fpcunit, testutils, testregistry, fcl.events;
+  Classes, SysUtils, fpcunit, testregistry, fcl.events;
 
 Const
   MaxEvents = 5;

tests/base/TCFresnelCSS.pas

@@ -7,8 +7,7 @@
  *****************************************************************************
 
  Examples:
-    ./testpas2js --suite=TTestFresnelCSS.TestEmptyViewport
-
+    ./testfresnelbase --suite=TTestFresnelCSS.TestEmptyViewport
 }
 unit TCFresnelCSS;
 

tests/base/TestFresnelBase.lpi

@@ -37,6 +37,10 @@
         <Filename Value="TCFresnelCSS.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit>
+      <Unit>
+        <Filename Value="TCFresnelBaseEvents.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

tests/base/TestFresnelBase.lpr

@@ -11,7 +11,7 @@ program TestFresnelBase;
 {$mode objfpc}{$H+}
 
 uses
-  Classes, consoletestrunner, TCFresnelCSS;
+  Classes, consoletestrunner, TCFresnelCSS, TCFresnelBaseEvents;
 
 type
 
@@ -27,6 +27,7 @@ begin
   DefaultRunAllTests:=True;
   Application := TMyTestRunner.Create(nil);
   Application.Initialize;
+  Application.Title := 'Fresnel console tests';
   Application.Run;
   Application.Free;
 end.