Sub  Setting_buildTestPrompt( prompt ) 
  Dim t
  Dim tests
  Dim fo

  Set tests = prompt.m_Tests

  Set prompt.m_Setting = New TestPromptSet

  prompt.m_Menu(1).m_Caption = "1. Select the Test"
  prompt.m_Menu(2).m_Caption = "2. Do ALL Test"
  prompt.m_Menu(3).m_Caption = "3. | Build the binary"
  prompt.m_Menu(4).m_Caption = "4. | Setup the test"
  prompt.m_Menu(5).m_Caption = "5. | Do the unit test on Debugger"
  prompt.m_Menu(6).m_Caption = "6. | Check the result"
  prompt.m_Menu(7).m_Caption = "7. | Clean"
  prompt.m_Menu(8).m_Caption = "8. Change the Debug Mode"
  prompt.m_Menu(9).m_Caption = "9. Quit"

  prompt.m_Menu(1).m_OpType = prompt.Op_SelectTest
  prompt.m_Menu(2).m_OpType = prompt.Op_AllTest
  prompt.m_Menu(3).m_OpType = prompt.Op_EachTest
  prompt.m_Menu(3).m_OpParam = "test_build"
  prompt.m_Menu(4).m_OpType = prompt.Op_EachTest
  prompt.m_Menu(4).m_OpParam = "test_setup"
  prompt.m_Menu(5).m_OpType = prompt.Op_EachTestR
  prompt.m_Menu(5).m_OpParam = "test_start"
  prompt.m_Menu(6).m_OpType = prompt.Op_EachTestR
  prompt.m_Menu(6).m_OpParam = "test_check"
  prompt.m_Menu(7).m_OpType = prompt.Op_EachTestR
  prompt.m_Menu(7).m_OpParam = "test_clean"
  prompt.m_Menu(8).m_OpType = prompt.Op_Debug
  prompt.m_Menu(9).m_OpType = prompt.Op_Exit

  tests.AddTestScriptAuto  tests.BaseFolderPath, "Test.vbs"
End Sub


Class  TestPromptSet
  Public  m_Dummy
End Class