_src/Test/tools/vbslib/setting_default/TestPrompt_Setting.vbs

   1 Sub  Setting_buildTestPrompt( prompt ) \r
   2   Dim t\r
   3   Dim tests\r
   4   Dim fo\r
   5 \r
   6   Set tests = prompt.m_Tests\r
   7 \r
   8   Set prompt.m_Setting = New TestPromptSet\r
   9 \r
  10   prompt.m_Menu(1).m_Caption = "1. Select the Test"\r
  11   prompt.m_Menu(2).m_Caption = "2. Do ALL Test"\r
  12   prompt.m_Menu(3).m_Caption = "3. | Build the binary"\r
  13   prompt.m_Menu(4).m_Caption = "4. | Setup the test"\r
  14   prompt.m_Menu(5).m_Caption = "5. | Do the unit test on Debugger"\r
  15   prompt.m_Menu(6).m_Caption = "6. | Check the result"\r
  16   prompt.m_Menu(7).m_Caption = "7. | Clean"\r
  17   prompt.m_Menu(8).m_Caption = "8. Change the Debug Mode"\r
  18   prompt.m_Menu(9).m_Caption = "9. Quit"\r
  19 \r
  20   prompt.m_Menu(1).m_OpType = prompt.Op_SelectTest\r
  21   prompt.m_Menu(2).m_OpType = prompt.Op_AllTest\r
  22   prompt.m_Menu(3).m_OpType = prompt.Op_EachTest\r
  23   prompt.m_Menu(3).m_OpParam = "test_build"\r
  24   prompt.m_Menu(4).m_OpType = prompt.Op_EachTest\r
  25   prompt.m_Menu(4).m_OpParam = "test_setup"\r
  26   prompt.m_Menu(5).m_OpType = prompt.Op_EachTestR\r
  27   prompt.m_Menu(5).m_OpParam = "test_start"\r
  28   prompt.m_Menu(6).m_OpType = prompt.Op_EachTestR\r
  29   prompt.m_Menu(6).m_OpParam = "test_check"\r
  30   prompt.m_Menu(7).m_OpType = prompt.Op_EachTestR\r
  31   prompt.m_Menu(7).m_OpParam = "test_clean"\r
  32   prompt.m_Menu(8).m_OpType = prompt.Op_Debug\r
  33   prompt.m_Menu(9).m_OpType = prompt.Op_Exit\r
  34 \r
  35   tests.AddTestScriptAuto  tests.BaseFolderPath, "Test.vbs"\r
  36 End Sub\r
  37 \r
  38 \r
  39 Class  TestPromptSet\r
  40   Public  m_Dummy\r
  41 End Class\r
  42 \r
  43 \r
  44  \r