_src/TestByFCBatAuto/TestPrompt/vbslib/vbslib300/VBSTestTarget.vbs

   1 Option Explicit \r
   2 \r
   3 ' VBSTestTarget\r
   4 ' Copyright (c) 2008, T's-Neko\r
   5 ' All rights reserved. 3-clause BSD license.\r
   6 \r
   7 \r
   8 Dim  g_VBSTestTarget\r
   9 \r
  10 \r
  11 'Function  InitializeModule\r
  12 '  Set  g_VBSTestTarget = New VBSTestTarget\r
  13 'End Function\r
  14 'Dim  g_InitializeModule\r
  15 'Set  g_InitializeModule = GetRef( "InitializeModule" )\r
  16 \r
  17 Const  Err_TestPass = 21\r
  18 Const  Err_TestSkip = 22\r
  19 Const  Err_TestFail = 23\r
  20 \r
  21 \r
  22  \r
  23 '********************************************************************************\r
  24 '  <<< [EchoTestStart] >>> \r
  25 '********************************************************************************\r
  26 Sub  EchoTestStart( TestSymbol )\r
  27   WScript.Echo  "<<< ["+TestSymbol+"] >>>"\r
  28 End Sub\r
  29 \r
  30 \r
  31 '********************************************************************************\r
  32 '  <<< [Pass] >>>\r
  33 '********************************************************************************\r
  34 Sub Pass\r
  35   WScript.Quit  Err_TestPass\r
  36 End Sub\r
  37 \r
  38 \r
  39 '********************************************************************************\r
  40 '  <<< [Fail] >>>\r
  41 '********************************************************************************\r
  42 Sub  Fail()\r
  43   WScript.Quit  Err_TestFail\r
  44 End Sub\r
  45 \r
  46 \r
  47 '********************************************************************************\r
  48 '  <<< [Skip] >>>\r
  49 '********************************************************************************\r
  50 Public Sub  Skip()\r
  51   WScript.Quit  Err_TestSkip\r
  52 End Sub\r
  53 \r
  54  \r