Version 2.00

[vbslib/main.git] / _src / TestByFCBatAuto / TestScript / target_vbslib / VBSTestTarget.vbs

diff --git a/_src/TestByFCBatAuto/TestScript/target_vbslib/VBSTestTarget.vbs b/_src/TestByFCBatAuto/TestScript/target_vbslib/VBSTestTarget.vbs
new file mode 100644 (file)
index 0000000..3aae005
--- /dev/null
+++ b/_src/TestByFCBatAuto/TestScript/target_vbslib/VBSTestTarget.vbs
@@ -0,0 +1,54 @@
+Option Explicit \r
+\r
+' VBSTestTarget\r
+' Copyright (c) 2008, T's-Neko\r
+' All rights reserved. 3-clause BSD license.\r
+\r
+\r
+Dim  g_VBSTestTarget\r
+\r
+\r
+'Function  InitializeModule\r
+'  Set  g_VBSTestTarget = New VBSTestTarget\r
+'End Function\r
+'Dim  g_InitializeModule\r
+'Set  g_InitializeModule = GetRef( "InitializeModule" )\r
+\r
+Const  Err_TestPass = 21\r
+Const  Err_TestSkip = 22\r
+Const  Err_TestFail = 23\r
+\r
+\r
+ \r
+'********************************************************************************\r
+'  <<< [EchoTestStart] >>> \r
+'********************************************************************************\r
+Sub  EchoTestStart( TestSymbol )\r
+  WScript.Echo  "<<< ["+TestSymbol+"] >>>"\r
+End Sub\r
+\r
+\r
+'********************************************************************************\r
+'  <<< [Pass] >>>\r
+'********************************************************************************\r
+Sub Pass\r
+  WScript.Quit  Err_TestPass\r
+End Sub\r
+\r
+\r
+'********************************************************************************\r
+'  <<< [Fail] >>>\r
+'********************************************************************************\r
+Sub  Fail()\r
+  WScript.Quit  Err_TestFail\r
+End Sub\r
+\r
+\r
+'********************************************************************************\r
+'  <<< [Skip] >>>\r
+'********************************************************************************\r
+Public Sub  Skip()\r
+  WScript.Quit  Err_TestSkip\r
+End Sub\r
+\r
+ \r