Updated test. Need to improve on Internet line endings.

2020-11-21 14:15:38 -05:00 · 2020-11-21 14:15:38 -05:00 · 72098ee5b9
commit 72098ee5b9
parent ffeeff423b
2 changed files with 20 additions and 6 deletions
--- a/repository/Brea-Tests/BreaPageTest.class.st
+++ b/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>'.

@ -86,12 +86,14 @@ BreaPageTest >> htmlOutput [
 <body>
    <h1>This is a test</h1>
    <p>
-        You should see me. 
+         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 [
 			
--- a/repository/Brea/BreaPage.class.st
+++ b/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.