Dim  g_SrcPath 
Dim  g_TestPrompt_Setting_Path
     g_TestPrompt_Setting_Path = g_SrcPath


Sub  Setting_buildTestPrompt( prompt )
  Dim t
  Dim tests
  Dim fo

  Set tests = prompt.m_Tests

  prompt.ReDimMenu  11
  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 = "88.Open Fail Folder"
  prompt.m_Menu(10).m_Caption= "89.Next Fail"
  prompt.m_Menu(11).m_Caption= "9. Quit"

  prompt.m_Menu(9).m_Number = 88
  prompt.m_Menu(10).m_Number = 89
  prompt.m_Menu(11).m_Number = 9

  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_EachTest
  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_OpenFail
  prompt.m_Menu(10).m_OpType = prompt.Op_NextFail
  prompt.m_Menu(11).m_OpType = prompt.Op_Exit

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