add test for initializeMonthList

quentin.moutte.etu · quentin.moutte.etu · commit 9ae0eac0ea7d · 2024-06-13T15:19:00.000+02:00
diff --git a/src/Microdown-Blog-Tests/MicBlogCreatorTest.class.st b/src/Microdown-Blog-Tests/MicBlogCreatorTest.class.st
@@ -144,16 +144,14 @@ MicBlogCreatorTest >> testCreateAllHtmlFile [
 { #category : 'tests' }
 MicBlogCreatorTest >> testCreateFromTo [
 
-	| allFile nbMonthFile |
+	| allFile |
 	MicBlogCreator
 		createFrom: fileSystem / 'source'
 		to: fileSystem / 'html'.
 
 	allFile := (fileSystem / 'html') allFiles.
-	
-	nbMonthFile := (Date today year - 2014) * 12 + Date today month index.
 
-	self assert: allFile size equals: 5 + nbMonthFile
+	self assert: allFile size equals: 7
 ]
 
 { #category : 'tests' }
@@ -220,6 +218,22 @@ MicBlogCreatorTest >> testCreateHtmlSummarize [
 	self assert: (fileSystem / 'html/index.html') exists
 ]
 
+{ #category : 'tests' }
+MicBlogCreatorTest >> testInitializeMonthList [
+
+	| listSingleSummarizer |
+	
+	listSingleSummarizer := Array new: 3.
+	
+listSingleSummarizer at:1 put: (MicSingleSummarizer new summarizeFile: fileSystem / 'source/anExample1.md').
+listSingleSummarizer at:2 put: (MicSingleSummarizer new summarizeFile: fileSystem / 'source/anExample2.md').
+listSingleSummarizer at:3 put: (MicSingleSummarizer new summarizeFile: fileSystem / 'source/test/anExample3.md').
+
+	blog initializeMonthList: listSingleSummarizer.
+	
+self assert: (fileSystem / 'html/_monthBlog') allFiles size equals: 2.
+]
+
 { #category : 'tests' }
 MicBlogCreatorTest >> testRenameMarkdownIntoHtmlFile [
 
diff --git a/src/Microdown-Blog/MicBlogCreator.class.st b/src/Microdown-Blog/MicBlogCreator.class.st
@@ -151,8 +151,9 @@ MicBlogCreator >> initializeMonthList: listOfSingleSummarize [
 	sum targetDirectory: targetDirectory.
 
 	dateList := MicMonthListCreator new generateDateListSince2014.
+	date := dateList copy.
 
-	dateList do: [ :each |
+	date do: [ :each |
 		summar := sum group: listOfSingleSummarize byDate: each.
 		summar isEmpty ifTrue: [ dateList := dateList copyWithout: each ] ].
 	
