1 files changed, 11 insertions, 11 deletions

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>