Offray/Brea
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Updated test. Need to improve on Internet line endings.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2020-11-21 14:15:38 -05:00
parent ffeeff423b
commit 72098ee5b9
2 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
repository/Brea-Tests/BreaPageTest.class.st
View File

@ -28,7 +28,7 @@ BreaPageTest >> createHTMLTemplateFile [
<p> <p>
{{#unhide}} You should not see me. {{/unhide}} {{#unhide}} You should not see me. {{/unhide}}
</p> </p>
{{ contents }} {{{ contents }}}
</body> </body>
</html>'. </html>'.
@ -86,12 +86,14 @@ BreaPageTest >> htmlOutput [
<body> <body>
<h1>This is a test</h1> <h1>This is a test</h1>
<p> <p>
You should see me. You should see me.
</p> </p>
<p> <p>
</p>',
self htmlBodyContents, </p>
'</body> ', self htmlBodyContents,
'
</body>
</html>' </html>'
] ]
@ -149,6 +151,19 @@ BreaPageTest >> testMarkdownContentExtraction [
self assert: page contents equals: self markdownTestFile contents. 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 } { #category : #tests }
BreaPageTest >> testMarkdownMetadataExtraction [ BreaPageTest >> testMarkdownMetadataExtraction [

1
repository/Brea/BreaPage.class.st
View File

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