The unit contains three public methods:

function LoadModuleTests(LibName: string) :ITest;
procedure RegisterModuleTests(LibName: string);
procedure UnloadTestModules;

The LoadModuleTests( )-function, dynamically loads the given library (dll or dtl files), and returns an interface to the tests defined within. RegisterModuleTests( ) does the same, but also calls RegisterTest( ) with the interface from the library.

There is one requirement that the library has to satisfy. It must export a function named ‘Test’ that returns a ITest-interface. Following is a basic project file showing how this can be done:

library OurUnitTests;

uses
  TestFramework;

function Test: ITest;
begin
  result := RegisteredTests;
end;

exports
  Test name 'Test';

end;

The Test( )-function simply returns the result from the RegisteredTests( ) method from the TestFramework-unit. RegisteredTests( ) returns a ITestSuite containing all the test classes registered.

Here’s a samle project file that loads all dll-files from the executables folder, and runs all test through the GUITestRunner:

program RunTests;
uses
  Forms,
  TestFramework,
  GUITestRunner,
  TestModules,
  SysUtils,
  Windows,
  JclFileUtils,
  classes,
  Dialogs
  ;

  {$R *.RES}

procedure LoadTests;
var
  filelist: TStringList;
  str: string;
begin
  filelist := TStringList.Create;
  try
    BuildFileList('*.dll', faAnyFile, filelist);

    for str in filelist do
    begin
      try
        RegisterModuleTests(str)
      except
        on E: Exception do
          ShowMessage(e.Message);
      end;
    end;
  finally
    filelist.free;
  end;
end;

begin
  Application.Initialize;

  LoadTests;
  GUITestRunner.RunRegisteredTests;
  UnloadTestModules;
end.

The BuildFileList( ) method comes from JCL, and simply fills a TStringList with filenames from the given mask. As I said, this is a very basic project, but it shows how to use the TestModules-unit to dynamically load tests. This can easily be expanded to a more flexible solution. You could use command parameters to control what folder should be searched for libraries, or what testrunner should be used, GUI or XML or custom runner.

Test Frameworks

DUnit

http://dunit.sourceforge.net/

DUnitLite

http://code.google.com/p/dunitlite/

DSpec

http://sourceforge.net/projects/dspec/

Mocking/Faking

Pascal Mock

http://sourceforge.net/projects/pascalmock/

Delphi Mock Wizard

http://code.google.com/p/delphi-mock-wizard/

Simple Mock

http://delphixtreme.com/wordpress/?p=14

Ultra Basic MockObjects

http://sourceforge.net/projects/ubmock/

Code coverage

Discover for Delphi

http://www.cyamon.com/discover1.htm

AQ Time

http://www.automatedqa.com/products/aqtime/

Supporting tools

DUnit IDE integration

http://delphixtreme.com/wordpress/?page_id=8

Websites

Delphi-Extreme

http://www.delphixtreme.com/

http://www.delphixtreme.com/forums/

FitNesse

FitNesse

http://fitnesse.org/

Fit4Delphi

http://code.google.com/p/fit4delphi/

FitNesse.Tutorials

http://schuchert.wikispaces.com/FitNesse.Tutorials

Books

	Fit for Developing Software: Framework for Integrated Tests by Rick Mugridge; Ward Cunningham Publisher: Prentice Hall Pub Date: June 29, 2005 Print ISBN-10: 0-321-26934-9 Print ISBN-13: 978-0-321-26934-8 Pages: 384
	The Art of Unit Testing: with Examples in .NET by Roy Osherove Publisher: Manning Publications Pub Date: June 28, 2009 Print ISBN-10: 1-933988-27-4 Print ISBN-13: 978-1-933988-27-6 Pages: 320
	Test Driven Development: By Example by Kent Beck Publisher: Addison-Wesley Professional Pub Date: November 08, 2002 Print ISBN-10: 0-321-14653-0 Print ISBN-13: 978-0-321-14653-3 Pages: 240
	xUnit Test Patterns: Refactoring Test Code by Gerard Meszaros Publisher: Addison-Wesley Professional Pub Date: May 21, 2007 Print ISBN-10: 0-13-149505-4 Print ISBN-13: 978-0-13-149505-0 Pages: 944