亚洲好骚综合-亚洲黄色录像-亚洲黄色网址-亚洲黄色网址大全-99久久99久久-99久久99久久精品国产

您的位置:軟件測試 > 開源軟件測試 > 開源單元測試工具 >
Delphi單元測試工具Dunit介紹
作者:網絡轉載 發布時間:[ 2013/3/7 13:32:36 ] 推薦標簽:

    定義TestCase,測試類定義代碼如下:

    TTestCaseFirst = class(TTestCase)

    private

    BeTestForm : TBeTestForm; //要測試的類

    protected

    procedure SetUp; override; //初始化類

    procedure TearDown; override; //清除數據

    published

    procedure TestFirst; //第一個測試方法

    procedure TestSecond; //第二個測試方法

    end;

    在定義測試方法時候注意,Dunit是通過RTTI(RunTime Type Information)來尋找并自動注冊測試方面的,具體實現是通過代碼

    TestFramework.RegisterTest(TTestCaseFirst.Suite);

    這段代碼將在后面提到,TtestCaseFirst.Suit在尋找的規則是:

    1、測試方法是沒有參數的Procedure

    2、測試方法被申明為Published

    SetUp,TearDown是在運行測試方法前、后運行的,所有一般把要測試的類的初始化及清除放在這兩個過程中。

    以下是實現的代碼:

    procedure TTestCaseFirst.SetUp;

    begin

    BeTestForm := TBeTestForm.Create(Nil);

    end;

    procedure TTestCaseFirst.TearDown;

    begin

    BeTestForm.Destroy;

    end;

    procedure TTestCaseFirst.TestFirst; //第一個測試方法

    begin

    Check(BeTestForm.BeTestFunction(1,3) = 3,'First Test fail');

    end;

    procedure TTestCaseFirst.TestSecond; //第二個測試方法

    begin

    Check(BeTestForm.BeTestFunction(1,3)=4,'Second Test fail');

    end;

    //Register TestCase

    initialization

    TestFramework.RegisterTest(TTestCaseFirst.Suite);

    end.

    Check是TestCase類提供的一個方法。以下是TestCase的實現代碼:

    procedure TTestCase.Check(condition :boolean; msg :string);
    begin
    if (not condition) then
    Fail(msg, CallerAddr);
    End;

    如果Check沒有通過的話,Dunit將報錯。錯誤提示在第二個參數中定義,其他有關類及方法的定義請看連機文檔,文檔放在

    Dunit安裝目錄docAPIIDH_Library_DUnit_-_Xtreme_Unit_Testing_for_Delphi.htm

    Initialzation代碼完成測試單元的注冊。

    修改Project主文件
    運行前的后一步是修改Project主文件TestProject.dpr。先使用菜單Project->View Source打開TestProject.dpr.

    修改后的代碼如下:

    program TestProject;

    uses

    Forms,

    TestFrameWork,

    GUITestRunner,

    TestUnit in 'TestUnit.pas';

    {$R *.res}

    begin

    Application.Initialize;

    //Application.Run;

    GUITestRunner.RunRegisteredTests;

    end.

    上面的加粗代碼是要增加和修改。

    運行測試例子
    運行的測試結果如下:

    使用TestSuite
    使用TestSuite的目的是對TestCase進行分類管理,如果我們再增加一個TestCase 如下

    TTestCaseSecond = class(TTestCase)

    published

    procedure TestThrid;

    end;

    添加TestThrid實現代碼后,在initialization代碼處增加

    TestFramework.RegisterTest(TTestCaseSecond.Suite);

    運行以后我們可以看到結果如下:

    如果我們將initialization處的代碼改為如下:

    initialization

    TestFramework.RegisterTest('Simple suite',TTestCaseFirst.Suite);

    TestFramework.RegisterTest('Simple suite',TTestCaseSecond.Suite);

    end.

上一頁1234下一頁
軟件測試工具 | 聯系我們 | 投訴建議 | 誠聘英才 | 申請使用列表 | 網站地圖
滬ICP備07036474 2003-2017 版權所有 上海澤眾軟件科技有限公司 Shanghai ZeZhong Software Co.,Ltd
主站蜘蛛池模板: 久久人人澡人人爽人人爱 | 影音先锋国产 | 男女性网站 | 日韩精品视频在线观看免费 | 成人自拍网站 | 男人午夜影院 | 第九色激情 | 欧美视频久久 | 亚洲国产爱 | 日本一区欧美 | 国产女人的一级毛片视频 | 午夜手机福利视频 | 我要看黄色一级毛片 | 一本大道香蕉久97在线视频 | 久久精品国产亚洲网站 | 久久4k岛国高清一区二区 | 在线观看黄的网站 | 福利片在线 | 日韩第1页 | 天天操bb| 五月婷婷丁香色 | 4虎影视国产在线观看精品 4k岛国精品午夜高清在线观看 | 高清色黄毛片一级毛片 | 黄色片在线观看免费 | 97久久精品人人做人人爽 | 国产欧美亚洲另类第一页 | 日韩国产片 | 亚洲欧美日韩在线不卡中文 | 天堂在线中文字幕 | 在线精品小视频 | 色哟哟在线网站 | 丝袜调教视频 | 99视频在线看 | 国精品在亚洲_欧美 | 黑丝一区 | 国产一级成人毛片 | 亚洲国产成人在线视频 | 日本免费小视频 | 91香蕉视频苹果 | 国产v亚洲v天堂a无 国产v亚洲v天堂无码 | 一个人的www免费视频 |