adding more tests for paragraph and header.

Author: Ducasse

src/Microdown-Rules/MicVocabularyChecker.class.st

@@ -14,20 +14,19 @@ MicVocabularyChecker >> checkProject: aFileReference [
 
 	| collector |
 	collector := self fileCollectorForMainFileReference: aFileReference.
-
 	collector visitedFilesAsDOM do: [ :each | each accept: self ]
 ]
 
 { #category : 'visiting - inline elements' }
 MicVocabularyChecker >> checkText: aMicText [
-	
-	patternPairs do: [ :patternPair | 
-		(patternPair key match: aMicText bodyString) 
-			ifTrue: [  
-				results add: (MicUseofWrongVocabularyResult new
-					 micElement: aMicText;
-					 inFile: aMicText fromFile;
-					 patternPair: patternPair) ] ]
+
+	patternPairs do: [ :patternPair |
+			"note that match: ignore upper/lower case differences."
+			(patternPair key match: aMicText bodyString ) ifTrue: [
+					results add: (MicUseofWrongVocabularyResult new
+							 micElement: aMicText;
+							 inFile: aMicText fromFile;
+							 patternPair: patternPair) ] ]
 ]
 
 { #category : 'testing' }

src/Microdown-Rules/MicVocabularyCheckerTest.class.st

@@ -14,26 +14,36 @@ Class {
 MicVocabularyCheckerTest >> generateFilesystemExample [
 
 	| file |
-	file := fileSystem workingDirectory / 'example1WithMistake.md'.
+	file := fileSystem workingDirectory / 'mistakeInParagraph.md'.
 	file writeStreamDo: [ :stream |
 			stream nextPutAll: '# Foo
-Pharo is cool
+Pharo is cool.
+
+Spec uses a sub presenter. And there is a mistake in the previous sentence.
 
-Spec uses a sub presenter
 ```
 	this is a code
 ```
 ' ].
 
-	file := fileSystem workingDirectory / 'example2WithMistake.md'.
+	file := fileSystem workingDirectory / 'mistakeInHeader.md'.
 	file writeStreamDo: [ :stream |
 			stream nextPutAll: '## Bar
 Pharo is **cool**
 
-sub-presenter is not correct.
+## sub-presenter is not correct.
 ```
 	this is a code 2
 ```
+' ].
+
+	file := fileSystem workingDirectory / 'mistakeInUppercase.md'.
+	file writeStreamDo: [ :stream |
+			stream nextPutAll: '## Bar
+Pharo is **cool**
+
+sub-Presenter is not correct. The checker should pay attention that the text may use a different case than the pattern.
+
 ' ]
 ]
 
@@ -44,14 +54,7 @@ MicVocabularyCheckerTest >> setUp [
 	fileSystem := FileSystem memory.
 	self generateFilesystemExample.
 
-	checker := MicVocabularyChecker new. 
-		
-	
-]
-
-{ #category : 'running' }
-MicVocabularyCheckerTest >> testCheckerExplain [
-
+	checker := MicVocabularyChecker new.
 	checker pairs: {
 			('sub-presenter' -> 'subpresenter').
 			('sub presenter' -> 'subpresenter').
@@ -61,12 +64,40 @@ MicVocabularyCheckerTest >> testCheckerExplain [
 			('back-end' -> 'backend').
 			('back end' -> 'backend').
 			('Pharo Image' -> 'Pharo image') }.
+]
+
+{ #category : 'running' }
+MicVocabularyCheckerTest >> testCheckerFindsMistakeInHeader [
+
+	checker checkProject: fileSystem / 'mistakeInHeader.md'.
+	self deny: checker isOkay.
+
+	self
+		assert: checker results first explanation
+		equals:
+		'Text: sub-presenter is not correct. in file/mistakeInHeader.md contains a mistake: [sub-presenter] should not be used. We should use subpresenter'
+]
+
+{ #category : 'running' }
+MicVocabularyCheckerTest >> testCheckerFindsMistakeInParagraph [
+
+	checker checkProject: fileSystem / 'mistakeInParagraph.md'.
+	self deny: checker isOkay.
+
+	self
+		assert: checker results first explanation
+		equals:
+		'Text: Spec uses a sub presenter. And there is a mistake in the previous sentence. in file/mistakeInParagraph.md contains a mistake: [sub presenter] should not be used. We should use subpresenter'
+]
+
+{ #category : 'running' }
+MicVocabularyCheckerTest >> testCheckerFindsMistakeInUppercasedText [
 
-	checker checkProject: fileSystem / 'example1WithMistake.md'.
+	checker checkProject: fileSystem / 'mistakeInUppercase.md'.
 	self deny: checker isOkay.
 
 	self
 		assert: checker results first explanation
 		equals:
-		'Text: Spec uses a sub presenter in file/example1WithMistake.md contains a mistake: [sub presenter] should not be used. We should use subpresenter'
+		'Text: sub-Presenter is not correct. The checker should pay attention that the text may use a different case than the pattern. in file/mistakeInUppercase.md contains a mistake: [sub-presenter] should not be used. We should use subpresenter'
 ]