diff --git a/repository/Brea-Tests/BreaPageTest.class.st b/repository/Brea-Tests/BreaPageTest.class.st index 1d1d175..a6a5485 100644 --- a/repository/Brea-Tests/BreaPageTest.class.st +++ b/repository/Brea-Tests/BreaPageTest.class.st @@ -28,7 +28,7 @@ BreaPageTest >> createHTMLTemplateFile [

{{#unhide}} You should not see me. {{/unhide}}

- {{ contents }} + {{{ contents }}} '. @@ -86,12 +86,14 @@ BreaPageTest >> htmlOutput [

This is a test

- You should see me. + You should see me.

-

', - self htmlBodyContents, -' + +

+ ', self htmlBodyContents, +' + ' ] @@ -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 [ diff --git a/repository/Brea/BreaPage.class.st b/repository/Brea/BreaPage.class.st index 0485c27..ea3845d 100644 --- 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.