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

html.streams: fix tests.

db4
John Benediktsson 2015-09-14 20:32:45 -07:00
parent ba3f342bf1
commit d6b545a10b
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; display: inline-block;\">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; display: inline-block;\"></div><br/>" } [ { "<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

@ -111,7 +111,7 @@ M: html-span-stream dispose
: padding-css, ( padding -- ) : padding-css, ( padding -- )
first2 (padding-css,) ; first2 (padding-css,) ;
CONSTANT: pre-css "white-space: pre; font-family: monospace;" CONSTANT: pre-css "white-space: pre; font-family: monospace; "
: div-css-style ( style -- str ) : div-css-style ( style -- str )
[ [