From Lazarus wiki
Revision as of 11:25, 20 December 2011 by Ggeldenhuys (talk | contribs) (get the source code)
Jump to navigationJump to search

FPTest (Free Pascal Testing Framework) is a unit testing framework. It is a fork of the DUnit2 project created by the late Peter McNabb, but tweaked specifically for use with the Free Pascal Compiler.

Many of the items listed below relate to the DUnit2 project (and now the FPTest project), and how it differs to the original Delphi DUnit project.


Design aims used during project development, not necessarily in any particular order:

  • Introduce SetUpOnce and TearDownOnce per TestCase and TestSuite.
  • Hopefully improve speed of test execution.
  • Introduce multiple "Projects" and open the way to run project tests in separate threads.
  • Improve the ease of using FPTest (in part by adding more example documentation).
  • Ensure TTestCase Constructors and Destructors only execute once, not for each contained test method.
  • Provide a non global var means for sharing high level setup data between test units.
  • Improve the applicability of time measurements.
  • Provide a visual count of detected memory leaks and Check()-less tests.
  • Provide an optional count to identify which Check() failed.
  • Code cleanup, by removing legacy code in FPTest, such as Delphi Win32 and .Net specific code.
  • A new GUI Test Runner for fpGUI based projects. A LCL GUI Test Runner will follow shortly.

Current status

  • New code remains compatible with existing test suites not relying on user modified DUnit code.
  • If your FPCUnit test projects use the CheckXXX() methods and not the AssertXXX() methods, it should be quite painless to switch from FPCUnit to the FPTest testing framework.
  • New code remains compatible with existing test suites not relying on low level TestFramework functions (e.g. TTestResult).
  • New code introduces a Project and ProjectManager class between the GUI and TextTestRunners to assist the future introduction of threaded unit testing.
  • SetupOnce and TeardownOnce code reduces node and name clutter where test decorators would have previously been required. Test Decorator in FPCUnit has same design flaws, and doesn't work as expected.
  • New Test Decoration code is easier to comprehend and extend.
  • Execution call depth per TestCase procedure has been reduced in an effort to improve testing efficiency. (Execution path is easier to follow and so eases future code change).
  • Individual test procedure timing is now taken on just the test method and excludes SetUp and TearDown times. The intention being to provide higher timing accuracy for method profiling. Overall Timing still brackets all code.
  • All existing Check procedures are supported. Several new Check procedures have been added to complete the range available.
  • New unit tests have been created to verify all Check() procedures detect pass and fail conditions.
  • All tests run without memory leaks or the need to allow leaks.
  • New self-test unit tests are more comprehensive including checks to ensure setup conditions are properly met before executing the required tests.
  • A Project class now handles registration and execution of grouped TestCases (TestSuites) and TestCases.
  • Counted Tests can now be invoked inside nested Test Decorators to provide 2 or more dimensional test data
  • Non Optimized empty tests still fail.
  • Tests that don't call Check() can be globally armed to fail, i.e. from the GUI.
  • Similarly tests causing memory leaks can optionally be globally armed to fail.
  • Individual tests can optionally override the above GUI settings. (e.g. where a third party component has a known leak)
  • All tests that override GUI settings can optionally be identified after test execution by additional node colours.
  • A count of overridden test failures is included in the execution status display.
  • Overridden tests which would otherwise have failed generate a separate warning count visible in the updated GUI and Text output
  • Test Method names are decoupled from the execution process, allowing post compile information to be displayed at the GUI level.
  • Added XML report generator, supplementing both GUITestRunner and TextTestRunner.
  • Added capability in both GUITestRunner and TextTestRunner to skip (Exclude) individual tests separate from Enabling/Disabling tests.
  • Tool buttons to GUITestRunner to ease control and show at runtime which soft options have been selected.

To facilitate early testing without completely re-developing GUITestsRunner and TextTestRunner an intermediate Proxy unit and a TTestResults replacement has been interposed between the GUI and the new TestFramework. Although the original aim was to eventually completely re-develop the GUI the "Proxy" classes are working very well and may not need further work.

How does it compare to FPCUnit?

I (Graeme Geldenhuys) was a long time user of FPCUnit. I even contributed and helped extend the FPCUnit project. But FPCUnit has some design flaws which makes it mostly useful for smaller project and less complicated test suites. The FPTest testing framework overcomes all the issues I had with FPCUnit, and adds many more features.

Get the source code

The source code is freely available from GitHub using the following command.

git clone git://github.com/graemeg/fptest.git


git clone https://github.com/graemeg/fptest.git

If you don't have Git installed, you can always grab a source tarball (archive) too, using the following URL.


The FPTest project is under active development, so code and documentation are constantly improved. For this reason I highly recommend you get the source code via git, instead of as a tarball.


FPTest documentation can be found in the docs directory as HTML files.

Test Example

Here is a console sample testing project

<delphi> program project1;

{$mode objfpc}{$H+}




// Register all tests

end. </delphi>

and the unit containing the actual tests...

<delphi> unit sample_tests;

{$mode objfpc}{$H+}



TestFramework;  // required for TTestCase and CheckXXX() references


TTestCaseFirst = class(TTestCase)
  procedure TestWarning;
  procedure TestOne;
  procedure TestNoError;
  procedure TestThree;
  procedure TestFour;

procedure RegisterTests;




{ here we register all our test classes } procedure RegisterTests; begin



{ TTestCaseFirst }

procedure TTestCaseFirst.TestWarning; begin

 // Do nothing here - should cause a Warning


procedure TTestCaseFirst.TestOne; begin

 Check(1 + 1 = 3, 'Catastrophic arithmetic failure!');


procedure TTestCaseFirst.TestNoError; begin

 Check(1 + 1 = 2, 'Catastrophic arithmetic failure!');


procedure TTestCaseFirst.TestThree; var

 s: string;


 s := 'hello';
 CheckEquals('Hello', s, 'Failed CheckEquals');


procedure TTestCaseFirst.TestFour; var

 x, y: integer;


 x := 10;
 y := 0;
 Check(x / y = 0, 'Failed on 1');


end. </delphi>


Here is a screenshot of the Text Test Runner output.

Sample output of the console Text Test Runner.

Here is a screenshot of the GUI Test Runner (using the fpGUI Toolkit) to run the tiOPF test suite.

A screenshot of the GUI Test Runner using the fpGUI toolkit.