From d191bcd337960af1b3f5f386ce65664de49a73e0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phaneDucasse?= <stephane.ducasse@inria.fr>
Date: Mon, 30 Sep 2024 22:12:59 +0200
Subject: [PATCH] more comment in tests

---
 src/Microdown-Tests/MicRawParagraphBlockTest.class.st | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/Microdown-Tests/MicRawParagraphBlockTest.class.st b/src/Microdown-Tests/MicRawParagraphBlockTest.class.st
index 042d7ef7..07aa330b 100644
--- a/src/Microdown-Tests/MicRawParagraphBlockTest.class.st
+++ b/src/Microdown-Tests/MicRawParagraphBlockTest.class.st
@@ -22,7 +22,8 @@ No idea what it is :)
 ]
 
 { #category : 'tests' }
-MicRawParagraphBlockTest >> testNotASimpleRawParagraph [
+MicRawParagraphBlockTest >> testNotASimpleRawParagraphBecauseNotDeclaredTag [
+
 	| mic |
 	mic := (parser parse: '<toto> 
 No idea what it is :)
@@ -33,6 +34,7 @@ No idea what it is :)
 
 { #category : 'tests' }
 MicRawParagraphBlockTest >> testNotASimpleRawParagraphNoSpaceInFrontToClose [
+
 	| children |
 	children := (parser parse: '<title> 
 No idea what it is :)
@@ -60,11 +62,13 @@ hkhkjhkj
 	self assert: children size equals: 1. 
 	self assert: children first class equals: MicRawParagraphBlock. 
 	self assert: children first label equals: 'title'.
-
+	self assertEmpty: children first children
 ]
 
 { #category : 'tests' }
 MicRawParagraphBlockTest >> testThereIsNoValidationIfThetagStartWithAKnowHtml [
+	"for the moment we only check the first couple of characters to start with.
+	So it may happens that we match the beginning of a tag."
 	| mic |
 	mic := (parser parse: '<titleunkniw> 
 No idea what it is :)