From b4735aac82c6db0afd5692f485364510ac2d9a5d Mon Sep 17 00:00:00 2001 From: Jean-Pierre Ledure Date: Tue, 7 Jun 2022 11:48:48 +0200 Subject: ScriptForge - (SF_UnitTest) fix typos + layout reviews Typos in comment lines Minor improvements of test report layout Change-Id: Ic19e55a84475b098959055ac1c573de629e21731 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/135466 Tested-by: Jean-Pierre Ledure Tested-by: Jenkins Reviewed-by: Jean-Pierre Ledure --- wizards/source/sfunittests/SF_UnitTest.xba | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) (limited to 'wizards') diff --git a/wizards/source/sfunittests/SF_UnitTest.xba b/wizards/source/sfunittests/SF_UnitTest.xba index 5237bb7ce88b..5007fb6a7255 100644 --- a/wizards/source/sfunittests/SF_UnitTest.xba +++ b/wizards/source/sfunittests/SF_UnitTest.xba @@ -271,7 +271,7 @@ End Property ' SFUnitTests.SF_UnitTest.ReturnCode (get) REM ----------------------------------------------------------------------------- Property Get Verbose() As Variant -''' The Verbose property indicates if all assertions are reported +''' The Verbose property indicates if all assertions (True AND False) are reported Verbose = _PropertyGet("Verbose") End Property ' SFUnitTests.SF_UnitTest.Verbose (get) @@ -975,8 +975,6 @@ End Function ' SFUnitTests.SF_UnitTest.AssertTrue REM ----------------------------------------------------------------------------- Public Sub Fail(Optional ByVal Message As Variant) ''' Forces a test failure -''' Args: - Dim bAssert As Boolean ' Fictive return value Const cstThisSub = "UnitTest.Fail" @@ -996,7 +994,7 @@ End Sub ' SFUnitTests.SF_UnitTest.Fail REM ----------------------------------------------------------------------------- Public Sub Log(Optional ByVal Message As Variant) -''' Forces to record the given message in the test report (console) +''' Records the given message in the test report (console) Dim bAssert As Boolean ' Fictive return value Dim bVerbose As Boolean : bVerbose = _Verbose @@ -1170,7 +1168,7 @@ Public Function RunTest(Optional ByVal TestSuite As Variant _ ''' The default pattern is "Test_*" ''' Message: the message to be displayed in the console when the test starts. ''' Returns: -''' The return code of the execution (RCxxx constants) +''' One of the return codes of the execution (RCxxx constants) ''' Examples: ''' GlobalScope.BasicLibraries.loadLibrary("ScriptForge") ''' Dim test : test = CreateScriptService("UnitTest", ThisComponent, "Tests") @@ -1326,7 +1324,7 @@ Public Function SkipTest(Optional ByVal Message As Variant) As Boolean ''' Args: ''' Message: the message to be displayed in the console ''' Returns: -''' The return code of the execution (RCxxx constants) +''' True when successful ''' Examples: ''' GlobalScope.BasicLibraries.loadLibrary("ScriptForge") ''' Dim test : test = CreateScriptService("UnitTest", ThisComponent, "Tests") @@ -1357,7 +1355,7 @@ Try: _ReturnCode = RCSKIPTEST bSkip = True ' Exit message - sSkipMessage = _Duration("Test", True) & "SKIPTEST TESTSUITE='" & _Module & "'" + sSkipMessage = " SKIPTEST testsuite='" & LibraryName & "." & _Module & "' " & _Duration("Suite", True) _ReportMessage(sSkipMessage, Message) End If @@ -1630,7 +1628,7 @@ Try: End Select If Not IsNull(oTimer) Then sDuration = CStr(oTimer.Duration) & " " - If pvBrackets Then sDuration = "(" & Trim(sDuration) & " sec) " + If pvBrackets Then sDuration = "(" & Trim(sDuration) & " sec)" Else sDuration = "" End If @@ -1817,4 +1815,4 @@ Const cstMaxLength = 50 ' Maximum length for items End Function ' SFUnitTests.SF_UnitTest._Repr REM ============================================== END OF SFUNITTESTS.SF_UNITTEST - + \ No newline at end of file -- cgit