Merge branch 'master' of http://blv-rd.tpddns.cn:19000/AUTS

UTS_Core/UTSModule/Test/UtsTester.vb

@@ -338,17 +338,18 @@ Namespace UTSModule.Test
         ''' 开始测试,此函数为正式测试调用
         ''' </summary>
         Public Sub StartTest()
-            RaiseEvent TestStart(Me, New EventArgs())
 
             _userVar.Clear() '清空全局变量
             _testResult.ResetTestResult() '重置测试结果
 
-            '重置测试进度
-            RaiseEvent TestProgressChanged(Me, New TestProgressChangedEventArgs(0))
-
             DebugMode = False
             _exitTest = False
 
+            RaiseEvent TestStart(Me, New EventArgs())
+
+            '重置测试进度
+            RaiseEvent TestProgressChanged(Me, New TestProgressChangedEventArgs(0))
+
             '测试主代码
             TestFunction()
 
@@ -363,16 +364,18 @@ Namespace UTSModule.Test
         ''' 开始调试测试,此函数为正式测试调用
         ''' </summary>
         Public Sub StartDebugTest()
-            RaiseEvent TestStart(Me, New EventArgs())
+            DebugMode = True
+            _exitTest = False
 
             _userVar.Clear() '清空全局变量
             _testResult.ResetTestResult() '重置测试结果
 
+            RaiseEvent TestStart(Me, New EventArgs())
+
             '重置测试进度
             RaiseEvent TestProgressChanged(Me, New TestProgressChangedEventArgs(0))
 
-            DebugMode = True
-            _exitTest = False
+
 
             '测试主代码
             TestFunction()