Updated test. Need to improve on Internet line endings.

repository/Brea-Tests/BreaPageTest.class.st

@@ -28,7 +28,7 @@ BreaPageTest >> createHTMLTemplateFile [
     <p>
         {{#unhide}} You should not see me. {{/unhide}}
     </p>
-	 {{ contents }}
+	 {{{ contents }}}
 </body>
 </html>'.
 
@@ -89,9 +89,11 @@ BreaPageTest >> htmlOutput [
          You should see me. 
     </p>
     <p>
-    </p>',
-	self htmlBodyContents, 
-'</body>
+        
+    </p>
+	 ', self htmlBodyContents,
+'
+</body>
 </html>'
 ]
 
@@ -149,6 +151,19 @@ BreaPageTest >> testMarkdownContentExtraction [
 	self assert: page contents equals: self markdownTestFile contents.
 ]
 
+{ #category : #tests }
+BreaPageTest >> testMarkdownHTMLExport [
+			
+	| page |
+	page := BreaPage new.
+	page
+		shortName: 'test';
+		folder: FileLocator	temp;
+		template: 'template.mus.html';
+		bodyTag: 'contents'.	
+	self assert: (page exportAsHTML contents) equals: self htmlOutput.
+]
+
 { #category : #tests }
 BreaPageTest >> testMarkdownMetadataExtraction [
 			

repository/Brea/BreaPage.class.st

@@ -82,7 +82,6 @@ BreaPage >> exportAsHTML [
 		actionsArray := actionsArray copyWith: [ self populateBodyAs: self bodyTag ] future ].
 	allActions := TKTFuture all: actionsArray.
 	semaphore := Semaphore new.
-	"self halt."
 	allActions onSuccessDo: [ :values | 
 		result := values last.
 		semaphore signal.