steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

html.streams: fixed broken unit-test

db4
Keith Lazuka 2009-10-13 08:54:37 -04:00
parent c00963950d
commit 0c5f2be355
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/html/streams/streams-tests.factor
View File

@ -49,7 +49,7 @@ M: funky url-of "http://www.funky-town.com/" swap town>> append ;
] make-html-string ] make-html-string
] unit-test ] unit-test
[ "<div style=\"background-color: #ff00ff; white-space: pre; font-family: monospace;\">cdr</div>" ] [ "<div style=\"background-color: #ff00ff; white-space: pre; font-family: monospace; display: inline-block;\">cdr</div>" ]
[ [
[ [
H{ { page-color T{ rgba f 1 0 1 1 } } } H{ { page-color T{ rgba f 1 0 1 1 } } }
@ -57,7 +57,7 @@ M: funky url-of "http://www.funky-town.com/" swap town>> append ;
] make-html-string ] make-html-string
] unit-test ] unit-test
[ "<div style=\"white-space: pre; font-family: monospace;\"></div>" ] [ [ "<div style=\"white-space: pre; font-family: monospace; display: inline-block;\"></div><br/>" ] [
[ H{ } [ ] with-nesting nl ] make-html-string [ H{ } [ ] with-nesting nl ] make-html-string
] unit-test ] unit-test

2
basis/html/streams/streams.factor
View File

@ -113,7 +113,7 @@ CONSTANT: pre-css "white-space: pre; font-family: monospace;"
{ inset padding-css, } { inset padding-css, }
} make-css } make-css
] [ wrap-margin swap at [ pre-css append ] unless ] bi ] [ wrap-margin swap at [ pre-css append ] unless ] bi
"display: inline-block;" append ; " display: inline-block;" append ;
: div-tag ( xml style -- xml' ) : div-tag ( xml style -- xml' )
div-css-style div-css-style