Version 2.00

[vbslib/main.git] / _src / TestByFCBatAuto / TestScript / vbslib / setting_default / TestPrompt_Setting.vbs

diff --git a/_src/TestByFCBatAuto/TestScript/vbslib/setting_default/TestPrompt_Setting.vbs b/_src/TestByFCBatAuto/TestScript/vbslib/setting_default/TestPrompt_Setting.vbs
new file mode 100644 (file)
index 0000000..3f3fda0
--- /dev/null
+++ b/_src/TestByFCBatAuto/TestScript/vbslib/setting_default/TestPrompt_Setting.vbs
@@ -0,0 +1,44 @@
+Sub  Setting_buildTestPrompt( prompt ) \r
+  Dim t\r
+  Dim tests\r
+  Dim fo\r
+\r
+  Set tests = prompt.m_Tests\r
+\r
+  Set prompt.m_Setting = New TestPromptSet\r
+\r
+  prompt.m_Menu(1).m_Caption = "1. Select the Test"\r
+  prompt.m_Menu(2).m_Caption = "2. Do ALL Test"\r
+  prompt.m_Menu(3).m_Caption = "3. | Build the binary"\r
+  prompt.m_Menu(4).m_Caption = "4. | Setup the test"\r
+  prompt.m_Menu(5).m_Caption = "5. | Do the unit test on Debugger"\r
+  prompt.m_Menu(6).m_Caption = "6. | Check the result"\r
+  prompt.m_Menu(7).m_Caption = "7. | Clean"\r
+  prompt.m_Menu(8).m_Caption = "8. Change the Debug Mode"\r
+  prompt.m_Menu(9).m_Caption = "9. Quit"\r
+\r
+  prompt.m_Menu(1).m_OpType = prompt.Op_SelectTest\r
+  prompt.m_Menu(2).m_OpType = prompt.Op_AllTest\r
+  prompt.m_Menu(3).m_OpType = prompt.Op_EachTest\r
+  prompt.m_Menu(3).m_OpParam = "test_build"\r
+  prompt.m_Menu(4).m_OpType = prompt.Op_EachTest\r
+  prompt.m_Menu(4).m_OpParam = "test_setup"\r
+  prompt.m_Menu(5).m_OpType = prompt.Op_EachTestR\r
+  prompt.m_Menu(5).m_OpParam = "test_start"\r
+  prompt.m_Menu(6).m_OpType = prompt.Op_EachTestR\r
+  prompt.m_Menu(6).m_OpParam = "test_check"\r
+  prompt.m_Menu(7).m_OpType = prompt.Op_EachTestR\r
+  prompt.m_Menu(7).m_OpParam = "test_clean"\r
+  prompt.m_Menu(8).m_OpType = prompt.Op_Debug\r
+  prompt.m_Menu(9).m_OpType = prompt.Op_Exit\r
+\r
+  tests.AddTestScriptAuto  tests.BaseFolderPath, "Test.vbs"\r
+End Sub\r
+\r
+\r
+Class  TestPromptSet\r
+  Public  m_Dummy\r
+End Class\r
+\r
+\r
+ \r