新規プロジェクトの作成 -ゼロからプログラミング言語を作る

プロジェクト>新規プロジェクト、から
FPCUnit Test Application
を選択する

FPCUnit Test Application
とは、事前にテストコードを書いて、
そのテストが合格するように、
開発を進める手法である。

Default Test Name
をTTestUnit
にして、Fixtureのチェックには何も入れず、
Create Unitを押下する

すると次のようなコード生成される


unit TestCase1 ;

{$mode objfpc}{$H+}

interface

uses
  Classes , SysUtils , fpcunit , testutils , testregistry ;

type

  TTestUnit = class ( TTestCase )
  published
    procedure TestHookUp ;
  end ;

implementation

procedure TTestUnit.TestHookUp ;
begin
  Fail ( 'Write your own test' ) ;
end ;



initialization

  RegisterTest ( TTestUnit ) ;
end.