wizards/source/sfunittests/SF_UnitTest.xba | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
New commits:
commit 65908a69836ab15d71d55f0740bc89d1fc643d16
Author: Andrea Gelmini <andrea.gelm...@gelma.net>
AuthorDate: Sun Jun 5 20:17:00 2022 +0200
Commit: Julien Nabet <serval2...@yahoo.fr>
CommitDate: Mon Jun 6 12:38:58 2022 +0200
Fix typos
Change-Id: Icc97a5fdf00c9b8f267a2015a72c050438452105
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/135441
Tested-by: Jenkins
Reviewed-by: Julien Nabet <serval2...@yahoo.fr>
diff --git a/wizards/source/sfunittests/SF_UnitTest.xba
b/wizards/source/sfunittests/SF_UnitTest.xba
index c3a1daa9dc9d..5237bb7ce88b 100644
--- a/wizards/source/sfunittests/SF_UnitTest.xba
+++ b/wizards/source/sfunittests/SF_UnitTest.xba
@@ -34,7 +34,7 @@ Option Explicit
''' The code to be tested may be released as an
extension. It does not need to make
''' use of ScriptForge services in any way.
'''
-''' The test reporting device is the Console. Read
abount the console in the ScriptForge.Exception service.
+''' The test reporting device is the Console. Read
about the console in the ScriptForge.Exception service.
'''
''' Definitions:
''' - Test Case
@@ -271,7 +271,7 @@ End Property '
SFUnitTests.SF_UnitTest.ReturnCode (get)
REM
-----------------------------------------------------------------------------
Property Get Verbose() As Variant
-''' The Verbose property indicates if all sertions are
reported
+''' The Verbose property indicates if all assertions are
reported
Verbose = _PropertyGet("Verbose")
End Property ' SFUnitTests.SF_UnitTest.Verbose (get)
@@ -422,7 +422,7 @@ Public Function AssertGreater(Optional ByRef A As Variant _
''' Returns True when A is greater than B.
''' To compare A and B:
''' They should have the same VarType or both be
numeric
-''' Elgible datatypes are String, Date or numeric.
+''' Eligible datatypes are String, Date or numeric.
''' String comparisons are case-sensitive.
Dim bAssert As Boolean ' Return value
@@ -452,7 +452,7 @@ Public Function AssertGreaterEqual(Optional ByRef A As
Variant _
''' Returns True when A is greater than or equal to B.
''' To compare A and B:
''' They should have the same VarType or both be
numeric
-''' Elgible datatypes are String, Date or numeric.
+''' Eligible datatypes are String, Date or numeric.
''' String comparisons are case-sensitive.
Dim bAssert As Boolean ' Return value
@@ -599,7 +599,7 @@ Public Function AssertLess(Optional ByRef A As Variant _
''' Returns True when A is less than B.
''' To compare A and B:
''' They should have the same VarType or both be
numeric
-''' Elgible datatypes are String, Date or numeric.
+''' Eligible datatypes are String, Date or numeric.
''' String comparisons are case-sensitive.
Dim bAssert As Boolean ' Return value
@@ -629,7 +629,7 @@ Public Function AssertLessEqual(Optional ByRef A As Variant
_
''' Returns True when A is less than or equal to B.
''' To compare A and B:
''' They should have the same VarType or both be
numeric
-''' Elgible datatypes are String, Date or numeric.
+''' Eligible datatypes are String, Date or numeric.
''' String comparisons are case-sensitive.
Dim bAssert As Boolean ' Return value
@@ -996,7 +996,7 @@ End Sub ' SFUnitTests.SF_UnitTest.Fail
REM
-----------------------------------------------------------------------------
Public Sub Log(Optional ByVal Message As Variant)
-''' Forces a test Logure
+''' Forces to record the given message in the test report
(console)
Dim bAssert As Boolean ' Fictive return value
Dim bVerbose As Boolean : bVerbose = _Verbose
@@ -1164,13 +1164,13 @@ Public Function RunTest(Optional ByVal TestSuite As
Variant _
''' Args:
''' TestSuite: the name of the module containing
the set of test cases to run
''' TestCasePattern: the pattern that the test
cases must match. The comparison is not case-sensitive.
-''' Non-matching finctions and subs are
ignored.
+''' Non-matching functions and subs are
ignored.
''' Admitted wildcard are: the
"?" represents any single character
'''
the "*" represents zero, one, or multiple characters
''' The default pattern is
"Test_*"
''' Message: the message to be displayed in the
console when the test starts.
''' Returns:
-''' The return code of the esecution (RCxxx
constants
+''' The return code of the execution (RCxxx
constants)
''' Examples:
'''
GlobalScope.BasicLibraries.loadLibrary("ScriptForge")
''' Dim test : test =
CreateScriptService("UnitTest", ThisComponent, "Tests")
@@ -1326,7 +1326,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 esecution (RCxxx
constants
+''' The return code of the execution (RCxxx
constants)
''' Examples:
'''
GlobalScope.BasicLibraries.loadLibrary("ScriptForge")
''' Dim test : test =
CreateScriptService("UnitTest", ThisComponent, "Tests")
@@ -1817,4 +1817,4 @@ Const cstMaxLength = 50 ' Maximum length for items
End Function ' SFUnitTests.SF_UnitTest._Repr
REM ============================================== END OF
SFUNITTESTS.SF_UNITTEST
-</script:module>
\ No newline at end of file
+</script:module>
