Version 2.00

[vbslib/main.git] / _src / TestByFCBatAuto / TestScript / test / TestsClass / T_Sample1 / _target_Test.vbs

diff --git a/_src/TestByFCBatAuto/TestScript/test/TestsClass/T_Sample1/_target_Test.vbs b/_src/TestByFCBatAuto/TestScript/test/TestsClass/T_Sample1/_target_Test.vbs
new file mode 100644 (file)
index 0000000..540f19b
--- /dev/null
+++ b/_src/TestByFCBatAuto/TestScript/test/TestsClass/T_Sample1/_target_Test.vbs
@@ -0,0 +1,53 @@
+Option Explicit \r
+\r
+\r
+Sub  test_current( p )\r
+  Dim fs,f,cur\r
+\r
+  Set fs = WScript.CreateObject( "Scripting.FileSystemObject" )\r
+  Set f = fs.OpenTextFile( "SubSymbol.txt" )\r
+  cur = Trim( f.ReadLine )\r
+  p.SetCur  cur\r
+  If p.CurrentTestPriority <> 900 Then\r
+    echo "Current = " & cur\r
+  End If\r
+  p.CurrentTestPriority = 900\r
+End Sub\r
+\r
+\r
+Sub  test_build( p )\r
+  If p.IsCur("Sub1") Then  echo p.Symbol+" - test_build Sub1"\r
+  If p.IsCur("Sub2") Then  echo p.Symbol+" - test_build Sub2"\r
+  Pass\r
+End Sub\r
+\r
+\r
+Sub  test_setup( p )\r
+  If p.IsCur("Sub1") Then  echo p.Symbol+" - test_setup Sub1"\r
+  If p.IsCur("Sub2") Then  echo p.Symbol+" - test_setup Sub2"\r
+  Pass\r
+End Sub\r
+\r
+\r
+Sub  test_start( p )\r
+  If p.IsCur("Sub1") Then  echo p.Symbol+" - test_start Sub1"\r
+  If p.IsCur("Sub2") Then  echo p.Symbol+" - test_start Sub2"\r
+  ' Pass  '... no result\r
+End Sub\r
+\r
+\r
+Sub  test_check( p )\r
+  If p.IsCur("Sub1") Then  echo p.Symbol+" - test_check Sub1"\r
+  If p.IsCur("Sub2") Then  echo p.Symbol+" - test_check Sub2"\r
+  Fail\r
+End Sub\r
+\r
+\r
+Sub  test_clean( p )\r
+  If p.IsCur("Sub1") Then  echo p.Symbol+" - test_clean Sub1"\r
+  If p.IsCur("Sub2") Then  echo p.Symbol+" - test_clean Sub2"\r
+  Skip\r
+End Sub\r
+\r
+\r
+ \r