From 72098ee5b9758a931155803cb9fb276b7b551188 Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Sat, 21 Nov 2020 14:15:38 -0500 Subject: [PATCH] Updated test. Need to improve on Internet line endings. --- repository/Brea-Tests/BreaPageTest.class.st | 25 ++++++++++++++++----- repository/Brea/BreaPage.class.st | 1 - 2 files changed, 20 insertions(+), 6 deletions(-) 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.