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 <jp@ledure.be>
Tested-by: Jenkins
Reviewed-by: Jean-Pierre Ledure <jp@ledure.be>

1 files changed, 7 insertions, 9 deletions

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
-</script:module>
+</script:module>
\ No newline at end of file