_src/Test/vbslib_test/vbslib/vbslib300/setting_default/TestPrompt_Setting_default.vbs

   1 Dim  g_SrcPath \r
   2 Dim  g_TestPrompt_Setting_Path\r
   3      g_TestPrompt_Setting_Path = g_SrcPath\r
   4 \r
   5 \r
   6 Sub  Setting_buildTestPrompt( prompt )\r
   7   Dim t\r
   8   Dim tests\r
   9   Dim fo\r
  10 \r
  11   Set tests = prompt.m_Tests\r
  12 \r
  13   prompt.ReDimMenu  11\r
  14   prompt.m_Menu(1).m_Caption = "1. Select the Test"\r
  15   prompt.m_Menu(2).m_Caption = "2. Do ALL Test"\r
  16   prompt.m_Menu(3).m_Caption = "3. | Build the binary"\r
  17   prompt.m_Menu(4).m_Caption = "4. | Setup the test"\r
  18   prompt.m_Menu(5).m_Caption = "5. | Do the unit test on Debugger"\r
  19   prompt.m_Menu(6).m_Caption = "6. | Check the result"\r
  20   prompt.m_Menu(7).m_Caption = "7. | Clean"\r
  21   prompt.m_Menu(8).m_Caption = "8. Change the Debug Mode"\r
  22   prompt.m_Menu(9).m_Caption = "88.Open Fail Folder"\r
  23   prompt.m_Menu(10).m_Caption= "89.Next Fail"\r
  24   prompt.m_Menu(11).m_Caption= "9. Quit"\r
  25 \r
  26   prompt.m_Menu(9).m_Number = 88\r
  27   prompt.m_Menu(10).m_Number = 89\r
  28   prompt.m_Menu(11).m_Number = 9\r
  29 \r
  30   prompt.m_Menu(1).m_OpType = prompt.Op_SelectTest\r
  31   prompt.m_Menu(2).m_OpType = prompt.Op_AllTest\r
  32   prompt.m_Menu(3).m_OpType = prompt.Op_EachTest\r
  33   prompt.m_Menu(3).m_OpParam = "test_build"\r
  34   prompt.m_Menu(4).m_OpType = prompt.Op_EachTest\r
  35   prompt.m_Menu(4).m_OpParam = "test_setup"\r
  36   prompt.m_Menu(5).m_OpType = prompt.Op_EachTest\r
  37   prompt.m_Menu(5).m_OpParam = "test_start"\r
  38   prompt.m_Menu(6).m_OpType = prompt.Op_EachTestR\r
  39   prompt.m_Menu(6).m_OpParam = "test_check"\r
  40   prompt.m_Menu(7).m_OpType = prompt.Op_EachTestR\r
  41   prompt.m_Menu(7).m_OpParam = "test_clean"\r
  42   prompt.m_Menu(8).m_OpType = prompt.Op_Debug\r
  43   prompt.m_Menu(9).m_OpType = prompt.Op_OpenFail\r
  44   prompt.m_Menu(10).m_OpType = prompt.Op_NextFail\r
  45   prompt.m_Menu(11).m_OpType = prompt.Op_Exit\r
  46 \r
  47   tests.AddTestScriptAuto  tests.BaseFolderPath, "Test.vbs"\r
  48 End Sub\r
  49 \r
  50 \r
  51 \r
  52  \r