Add possible rawParagraph rendering and an Environment test

Author: matijakljajic

src/Microdown-HTMLExporter/MicHTMLVisitor.class.st

@@ -474,6 +474,19 @@ MicHTMLVisitor >> visitQuote: aQuote [
 		with: [ super visitQuote: aQuote ]
 ]
 
+{ #category : 'visiting - html extensions' }
+MicHTMLVisitor >> visitRawParagraph: aParagraph [
+
+	canvas
+		newLine;
+		raw: '<' , aParagraph label , '>';
+		raw: (aParagraph body
+				 ifNil: [ '' ]
+				 ifNotNil: [ canvas newLine. ^ aParagraph body ]);
+		newLine;
+		raw: aParagraph lineStopMarkup
+]
+
 { #category : 'visiting - inline elements' }
 MicHTMLVisitor >> visitStrike: aStrike [
 

src/Microdown-Tests/MicEnvironmentBlockTest.class.st

@@ -294,6 +294,29 @@ environment, else we force writer to enter a new line to declare the end of
 the paragraph.'.
 ]
 
+{ #category : 'tests' }
+MicEnvironmentBlockTest >> testEnvironmentWithSameNestedElementAsParent [
+	"'<?slide
+<?slide 
+?>
+?>
+'"
+
+	| source root env environmentName |
+	environmentName := 'slide'.
+	source := EnvironmentOpeningBlockMarkup , environmentName , String cr
+	          , EnvironmentOpeningBlockMarkup , environmentName
+	          , String cr , EnvironmentClosingBlockMarkup , String cr
+	          , EnvironmentClosingBlockMarkup , String cr.
+	root := parser parse: source.
+
+	self assert: root children size equals: 1.
+	env := root children first.
+	self assert: (env isKindOf: MicSlideBlock).
+
+	self assert: env children first class equals: MicSlideBlock
+]
+
 { #category : 'tests - extensions' }
 MicEnvironmentBlockTest >> testExtensionClassWithSpaceAndArgIsCreated [