diff options
Diffstat (limited to 'smoketestdoc/data/Test_DB.xml')
| -rwxr-xr-x | smoketestdoc/data/Test_DB.xml | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/smoketestdoc/data/Test_DB.xml b/smoketestdoc/data/Test_DB.xml index a9f1fc2e316d..1f5667cae5a5 100755 --- a/smoketestdoc/data/Test_DB.xml +++ b/smoketestdoc/data/Test_DB.xml @@ -46,7 +46,7 @@ Sub TestDB On Local Error GoTo DBERROR gCurrentTestCase = cLogfileFailed - LocalFileChannel% = OpenLogDat (GetLogFileName(gCurrentDocTest)) + LocalTestLog% = OpenLogDat (GetLogFileName(gCurrentDocTest)) gCurrentTestCase = cDBService sCurrentMessage = cMessageDatabaseService + " " + cUnoDatabaseContext @@ -63,8 +63,8 @@ Sub TestDB LogTestResult( "Database "+ cMessageDatabaseOpen, not IsNull (oDBConnection) ) if (IsNull(oDBConnection)) then - Close #LocalFileChannel% - LocalFileChannel = 0 + Close #LocalTestLog% + LocalTestLog = 0 Exit Sub End If @@ -128,19 +128,19 @@ Sub TestDB oDBConnection.Dispose() LogTestResult( "Database "+ cMessageDatabaseClose, True ) - Print #LocalFileChannel, "---" - Close #LocalFileChannel% - LocalFileChannel = 0 + Print #LocalTestLog, "---" + Close #LocalTestLog% + LocalTestLog = 0 Exit Sub ' Without error DBERROR: If ( gCurrentTestCase = cLogfileFailed ) then - LogTestResult( "", False ) + LogTestResult( " ", False ) Exit Sub else LogTestResult( "Database "+ sCurrentMessage, FALSE ) - Close #LocalFileChannel% - LocalFileChannel = 0 + Close #LocalTestLog% + LocalTestLog = 0 End If Exit Sub ' With error End Sub |