使う Makefile の中身：

INSTALLDISH = /dish
PAN  = /tmp/fryingpan
POT  = /tmp/pot
CUP  = /tmp/cup

all : peperoncino

install :
	mv ${PAN}/* ${INSTALLDISH}

peperoncino : source boiled-pasta consomme.o
	split -d -b 100cc ${POT}/water.o water-
	mv ${POT}/water-00 > ${CUP}
	mv consomme.o ${CUP}
	rm ${POT}/water*
	find ${POT} -name "pasta-*" -exec mv {} ${PAN} \;
	fry -t 1m ${PAN}

source : garlic.o red-pepper.o olive-oil.o
	split -d -b 2 garlic.o garlic-
	mv   garlic-* ${FRYINGPAN}
	split -d -b 15 red-pepper.o red-pepper-
	mv   red-pepper-* ${FRYINGPAN}
	mv   olive-oil.o ${FRYINGPAN}
	fry  ${PAN}

boiled-pasta : water.o salt.o pasta.o
	mv water.o ${POT}
	boil  ${POT}
	split -d -b 150 pasta.o pasta-
	mv pasta-* ${POT}
	mv salt.o ${POT}
	sleep 6m

garlic.o :
	cat /dev/garlic > garlic.o

red-pepper.o :
	cat /dev/red-pepper > red-pepper.o

olive-oil.o :
	cat /dev/olive-oil > olive-oil.o

water.o :
	cat /dev/water > water.o

salt.o :
	cat /dev/salt > salt.o

pasta.o :
	cat /dev/pasta > pasta.o

consomme.o :
	cat /dev/consomme > consomme.o

clean :
	rm -R ${INSTALLDISH}/*
	rm -R ${PAN}/*
	rm -R ${POT}/*

作って食べる：

% ls
Makefile
% make
% make install
% eat /dish/*

クイックスタート

DUnit がどんなものなのか、ここで少し体験してみます。
新しいプロジェクトを作成して、 1 + 1 = 2 となることを確かめるサンプルです。
※Delphi 7 を使って作業をしてます。

プロジェクトの作成

まず、Delphi を起動します。勝手に新しいプロジェクトができます。

いらないファイルを取り除く

Delphi を起動したときにいくつかのファイルが勝手に作成されます。この中のいらないファイルを取り除きます。

まず画面に出てきている Form1 を[×]ボタンを押して消します。
img/2-01-form1.png

Unit1.pas という Form1 の実体もいらないので右上の [×] ボタンを押して消します。
img/2-02-unit1.png

[Unit1.pas を保存しますか？] と聞いてきますが、もちろん保存しません。[いいえ]です。

ここまできたら一旦プロジェクトを保存します。[ファイル] – [すべて保存] を選びます。
img/2-03-file_all.png

プロジェクト名に Project1Test.dpr というような名前を付けて保存します。

DUnit のファイルをプロジェクトに追加

[プロジェクト] – [ソース表示] を選びます。
img/2-04-prj_src.png

出てきたウィンドウに DUnit のファイルを追加します。
img/2-05-prj_dpr.png

エクスプローラで dunit-7.2.0\src (ここでは C:\Tools\dunit-7.2.0\src) を開き、
TestFramework.pas と、GUITestRunner.pas をProject1Test.dpr ウィンドウにドラッグアンドドロップします。

img/2-06-prg_dpr_add.png

これで、DUnit のファイルは追加できました。

TestCase を追加

[ファイル] – [新規作成] – [ユニット] を選んで Unit1 を追加します。
Unit1 の初期状態

unit Unit1;

interface

implementation

end.

これを以下のように変更します。

Unit1 の変更後

unit Project1TestCases;
interface
uses
 TestFrameWork;

type
 TTestCaseFirst = class(TTestCase)
 published
   procedure TestFirst;
 end;

implementation

procedure TTestCaseFirst.TestFirst;
begin
 Check(1 + 1 = 1, 'Oops!');
end;

initialization
 TestFramework.RegisterTest(TTestCaseFirst.Suite);
end.

※わざと1 + 1 = 1 というようにして、必ずテストが失敗するようにしてあります。

Unit1 を Project1TestCases.pas という名前で保存します。

Project1Test.dpr を編集

初期状態で以下のようになっている Project1Test.dpr を、

Project1Test.dpr の変更前

program Project1Test;

uses
  Forms,
  Project1TestCase in 'Project1TestCase.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.Run;
end.

以下のように変更します。
Project1Test.dpr の変更後

program Project1Test;
uses
 Forms,
 TestFrameWork,
 GUITestRunner,
 Project1TestCases in 'Project1TestCases.pas';

{$R *.RES}

begin
 Application.Initialize;
 GUITestRunner.RunRegisteredTests;
end.

テストを失敗させる

ここまでで、テストが実行できるようになっています。
[実行] – [実行] を選択して、実行してみてください。

DUnit の ダイアログが表示されるはずです。
img/2-08-dunit_dlg_def.png

実行ボタン（[Actions] – [Run] またはＦ９）を押すと、テストが実行されます。

1 + 1 の答えは 1 にはなりませんので、テストは失敗します。
img/2-09_dunit_dlg_fail.png

この、テストが失敗することを確認するのは、すごく大事です。
テストがちゃんと実行されていることを確認することができるからです。

テストを成功させる

今度は、1 + 1 の答えが 2 になるかをテストします。
Project1TestCases.pas のを以下のように変更します。

変更前：

Check(1 + 1 = 1, 'Oops!');

変更後：

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

これは、問題なくパスするはずです。
img/2-10_dunit_dlg_pass.png

これが、DUnit の基本的な動きです。

関連

• DUnit インストール

DUnit とは、Delphi 用の xUnit です。
※Delphi4以降 or Kylix で使用できます。

DUnit にもいくつか種類があるみたいなんですけど、
一番使われていそうなのが今から紹介する DUnit です。（※2004/03/29頃の話）

ここでは、Windows 用の Delphi 7 Professional を使って説明をしていきます。

ダウンロード

http://dunit.sourceforge.net/ から DUnit (dunit-*.zip) をダウンロードします。

今現在のバージョンは 7.2 ですので、dunit-7.2.0.zipをダウンロードします。
（※2004/03/29頃の話）

インストール

DUnit は好きなトコロに解凍するだけでＯＫです。
例： C:\Tools\dunit-7.2.0

解凍したディレクトリの中には DUnit のソースコードが入っていますが、バイナリがあるのでコンパイル不要。

これから、DUnit を使うための設定をします。
ちなみに DUnit-7.2 にもセットアップについてのドキュメントがついているのですが、
残念なことに昔のバージョン（？）についての説明になっています。（※2004/03/29頃の話）
今の DUnit-7.2 とは説明中のディレクトリ構造とかも違います。

まず、Delphi を起動します。

[ツール] – [環境オプション] を選びます。

すると[環境オプション]ダイアログが出てくるので
[ライブラリパス] に dunit-7.2.0\src へのパスを追加して [OK] をクリックします。
例： C:\Tools\dunit-7.2.0\src;

[ライブラリパス] 変更前：
$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib
[ライブラリパス] 変更後：
C:\Tools\dunit-7.2.0\src;$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib

次に、
[プロジェクト] – [オプション] を選びます。

出てきた[プロジェクトオプション] ダイアログの [ディレクトリ／条件] タブを選びます。

そこの [検索パス] に dunit-7.2.0\src へのパスを追加します。
例： C:\Tools\dunit-7.2.0\src

左下の [デフォルト] にチェックを入れると、
これから新規に作成するプロジェクトにこの設定が自動的に適用されて便利です。

[OK] を押す。

これで、インストール完了です。

※Delphi7 を起動したときに勝手に作られたプロジェクトは、
保存せずに破棄してください。
（保存してもいいですけど今回は設定するために Delphi を起動しただけなので…）

関連

• DUnit クイックスタート