自己寫一個 GUI 版 C++ Builder 單元測試

heavenchou - 周日, 2017/07/23 - 15:25

最近在寫一個較大的專案，而且要能在 Windows 和 Mac 上執行（Android 和 iOS 以後再考慮），加上第一次用新版 C++ Builder 跨平台的版本寫大專案，所以凡事起頭難，這也是第一次想加上單元測試，以利後續檢查與驗證。

C++ Builder 上面宣稱已有跨平台版本的 DUnitX，詳見如下：

http://docwiki.embarcadero.com/RADStudio/Tokyo/en/DUnitX

主要方法是在 __published 的宣告範圍內寫下要測試的程式，然後自行把每一個測試程式寫進去，執行時就會逐一執行測試程式，最後把結果列出來，如下圖。

基本上測試還 OK，原本遇到一個小問題，就是說明文檔中有提到，需要宣告或初值設定的物件，可以寫在 SetUp() 這個函式中。

但我在實際測試時，發現 SetUp() 函式並不會被執行到，網路上也看到有人問這個問題，沒有找到答案。

這本來是小事，大不了我在測試函式中，自行呼叫 SetUp() 就可以解決了。後來遇到一個更大的問題，我要在 Mac OS 中測試時，發現沒有正確的結果跑出來，只有如下的結果，畫面是執行二次的情況。

這樣問題就很大了，網路上也沒找到什麼資料，只看到有人建議不要用 DUNITX，用 DUNIT 比較好。可是我就是要跨平台，所以一定要用 DUNITX 才行。

另一個問題，原本我也想使用 GUI 的版本，上面提到官方的文檔的最下面，也有提到 GUI 版本的設定法，其他地方的說明文件也略有提到，但我之前試不出來，就放棄了，反正純文字版一樣可以達到目的。

現在最嚴重的問題是 Mac OS 不能執行，也不知問題是系統或是我自己不會弄？我用系統產生最原始最簡單的範例也一樣不行，所以打算自己寫一個簡單陽春堪用的 GUI 單元測試。

程式在此：

https://github.com/heavenchou/Cpp_Sample_BCB/tree/master/GuiUnitTest

簡單說一下原理：

主要程式有二支，一支主程式，一支待測物件類別，待測物件可以自己加上去。

待測物件初始要準備二個 TStringList 的指標，分別用來記錄說明文字和結果。通常這裡也是要載入你真正要測試的物件。

__fastcall CSample::CSample(TStringList * slTitle, TStringList * slResult)
{
  Titles = slTitle;
  Results = slResult;
}

然後要有一個 RunAllTest() 裡面就放所有要測試的函式及說明文字。

void __fastcall CSample::RunAllTest()
{
  LogTest(u"測試:傳回正確", Test1());
  LogTest(u"測試:傳回錯誤", Test2());
}

這是將結果記錄下來，結果為 ture 的記錄 "1"， false 記錄 "0"。

void __fastcall CSample::LogTest(String sTitle, bool bResult)
{
  String s = "0";
  if(bResult) s = "1";
  Titles->Add(sTitle);
  Results->Add(s);
}

測試程式自己寫，這裡懶的寫，直接傳回。

bool __fastcall CSample::Test1()
{
  return true;
}

主程式就是先宣告 TStringList，宣告待測物件，然後執行它的 RunAllTest()

__fastcall TfmMain::TfmMain(TComponent* Owner)
: TForm(Owner)
{
  // 儲存結果的字串列表
  Titles = new TStringList();
  Results = new TStringList();
  // 測試物件
  Sample = new CSample(Titles, Results);
  Sample->RunAllTest();
}

這就是按下按鈕後，把結果秀在主畫面上的程式

void __fastcall TfmMain::btRunAllTestClick(TObject *Sender)
{
  for (int i = 0; i < Titles->Count; i++)
  {
    lbResult->Items->Add(Titles->Strings[i]);
    if(Results->Strings[i] == "1")
    {
      // 測試正確則打勾
      lbResult->ListItems[i]->IsChecked = true;
    }
    else
    {
      // 失敗則塗紅色
      lbResult->ListItems[i]->StyledSettings = lbResult->ListItems[i]->StyledSettings >> TStyledSetting::FontColor;
      lbResult->ListItems[i]->TextSettings->FontColor = 0xffff0000;
    }
  }
}

以上我有忽略 TListBox 的標題處理程式，原始程式中是有的。

底下就是執行結果，除了上面的基本測試，我也加了實際測試的四個項目，看起來就是比純文字結果舒服多了。 :)