1) Reload Test Script
2) ChgDebugMode Test Script
3) ChgDebugMode Test Target
4) Echo On/Off (current=on)
5) AutoDiff (current=on)

テスト・プロンプトのトップメニューで、Change the Debug Mode を選ぶと次のメニューが出ます。

Reload Test Script は、TestPrompt.vbs や、TestPrompt_Setting.vbs を変更したときに
選択します。 選択すると再読み込みします。
Test.vbs は、トップメニューから Test.vbs を呼び出すときに、毎回再読み込みするので、
Test.vbs を変更したときは、このメニュー（Reload Test Script）を選ぶ必要はありません。

[FAIL] Fail the Test
 in "test_start" function in "C:\home\vbslib_pack\_src\T_Priority\Test.vbs"

Test_logs.txt には、エラーが発生した Test.vbs の絶対パスと、テストプロシージャが記録されて
います。

Test_logs.txt に記録されている Test.vbs を

デバッグモード(Script)

で実行すると、問題がある

場所でブレークします。

多くの場合、テスト対象のプログラムの出力値チェックでエラーになっているので、Test.vbs を

→ Fail したテスト項目を特定する (FCBat)

デバッグモード(Target)

で実行します。

FCBat を使っているときは、

Test_logs.txt を「書き込みできない」とき、テスト・プロンプトが二重に起動して同じファイルを
開こうとしているときがあります。そのときは、テスト対象が Test.vbs なら下記の /log オプション
を、テスト・スクリプトを使った VBS なら、 main で、m_DefLogFName を設定してください。

Option Explicit

Dim  g_SrcPath
Class  SampleTest_vbs
  Public  FullPath
  Private Sub  Class_Initialize()
    FullPath = g_SrcPath
  End Sub
End Class
Dim  g_SampleTest_vbs
Set  g_SampleTest_vbs =_
   new SampleTest_vbs

Const  F_Built = 1  '// Validate Flags

 
'*************************************************************************
'  <<< [get_SampleTest] >>>
'*************************************************************************
Dim  g_SampleTest
Function  get_SampleTest()
  If IsEmpty( g_SampleTest ) Then
    Set  g_SampleTest = new SampleTest
  End If
  g_SampleTest.ChkToolsExists
  Set  get_SampleTest = g_SampleTest
End Function

 
'-------------------------------------------------------------------------
' ### <<<< [SampleTest] Class >>>>
'-------------------------------------------------------------------------
Class  SampleTest
  Public Property Get  DefineInfo() : Set DefineInfo = g_SampleTest_vbs :_
     End Property
  Public  m_Exe_D
  Public  m_Exe_R
  Public  m_Sub

  Private Sub Class_Initialize
    Me.m_SrcPath = GetAbsPath( "..\..\src", g_SampleTest_vbs.FullPath )
    Me.m_Exe_D = Me.m_SrcPath +   "\Debug\App.exe"
    Me.m_Exe_R = Me.m_SrcPath + "\Release\App.exe"
  End Sub
End Class

 

グローバル・テスト・オブジェクト, SampleTest

App

App

vbslib\SampleTest.vbs

Sub  EchoTestStart( TestSymbol as string )

テストシンボルをエコー出力します。

Sub  Pass

テストがパスしたことを、テストスクリプトに知らせて、プログラムを終了します。

(src)

内部的には、エラー 21 が発生します。

→ 正常動作時の動作

関連

Sub  Fail

テストが失敗したことを、テストスクリプトに知らせて、プログラムを終了します。
エラーが発生したときと同じ動きをします。つまり、Fail の後は実行しません。

(src)

Sub  Skip

テストが実行できないことを、テストスクリプトに知らせて、プログラムを終了します。
エラーが発生したときと同じ動きをします。つまり、Skip の後は実行しません。

(src)

Sub  ManualTest( TestSymbol as string )

テストが手動テストであることを、テストスクリプトに知らせます。

SkipToSection  0

サンプル： セクション番号を表示する

Function  NotSkipSection() as boolean

本関数を呼び出した場所をセクションの開始場所とします。

【引数】

返り値

SkipToSection で設定されたセクション以降かどうか

サンプル：

テスト
スクリプト