_src/TestByFCBatAuto/TestScript/test/TestsClass/T_Sample1/_target_Test.vbs

   1 Option Explicit \r
   2 \r
   3 \r
   4 Sub  test_current( p )\r
   5   Dim fs,f,cur\r
   6 \r
   7   Set fs = WScript.CreateObject( "Scripting.FileSystemObject" )\r
   8   Set f = fs.OpenTextFile( "SubSymbol.txt" )\r
   9   cur = Trim( f.ReadLine )\r
  10   p.SetCur  cur\r
  11   If p.CurrentTestPriority <> 900 Then\r
  12     echo "Current = " & cur\r
  13   End If\r
  14   p.CurrentTestPriority = 900\r
  15 End Sub\r
  16 \r
  17 \r
  18 Sub  test_build( p )\r
  19   If p.IsCur("Sub1") Then  echo p.Symbol+" - test_build Sub1"\r
  20   If p.IsCur("Sub2") Then  echo p.Symbol+" - test_build Sub2"\r
  21   Pass\r
  22 End Sub\r
  23 \r
  24 \r
  25 Sub  test_setup( p )\r
  26   If p.IsCur("Sub1") Then  echo p.Symbol+" - test_setup Sub1"\r
  27   If p.IsCur("Sub2") Then  echo p.Symbol+" - test_setup Sub2"\r
  28   Pass\r
  29 End Sub\r
  30 \r
  31 \r
  32 Sub  test_start( p )\r
  33   If p.IsCur("Sub1") Then  echo p.Symbol+" - test_start Sub1"\r
  34   If p.IsCur("Sub2") Then  echo p.Symbol+" - test_start Sub2"\r
  35 Stop\r
  36   ' Pass  '... no result\r
  37 End Sub\r
  38 \r
  39 \r
  40 Sub  test_check( p )\r
  41   If p.IsCur("Sub1") Then  echo p.Symbol+" - test_check Sub1"\r
  42   If p.IsCur("Sub2") Then  echo p.Symbol+" - test_check Sub2"\r
  43   Fail\r
  44 End Sub\r
  45 \r
  46 \r
  47 Sub  test_clean( p )\r
  48   If p.IsCur("Sub1") Then  echo p.Symbol+" - test_clean Sub1"\r
  49   If p.IsCur("Sub2") Then  echo p.Symbol+" - test_clean Sub2"\r
  50   Skip\r
  51 End Sub\r
  52 \r
  53 \r
  54  \r