FPCUnit Test Application
を選択する
FPCUnit Test Application
とは、事前にテストコードを書いて、
そのテストが合格するように、
開発を進める手法である。
Default Test Name
をTTestUnit
にして、Fixtureのチェックには何も入れず、
Create Unitを押下する
すると次のようなコード生成される
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.
{$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.