html.streams: fixed broken unit-test

diff --git a/basis/html/streams/streams-tests.factor b/basis/html/streams/streams-tests.factor
index eeac9210c1307bd7aaee3f9302d8e044ce44a19c..10d99f31a264fec2e1efcc8fcaa3442cc891797e 100644 (file)
--- a/basis/html/streams/streams-tests.factor
+++ b/basis/html/streams/streams-tests.factor
@@ -49,7 +49,7 @@ M: funky url-of "http://www.funky-town.com/" swap town>> append ;
     ] make-html-string
 ] 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 } } }
@@ -57,7 +57,7 @@ M: funky url-of "http://www.funky-town.com/" swap town>> append ;
     ] make-html-string
 ] 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
 ] unit-test
 

diff --git a/basis/html/streams/streams.factor b/basis/html/streams/streams.factor
index c6a2b08c00bb19a2cf09000db70012f8dbc32627..6b98874703989a8aa8b0a2bd5eaec42690ac61a6 100644 (file)
--- a/basis/html/streams/streams.factor
+++ b/basis/html/streams/streams.factor
@@ -113,7 +113,7 @@ CONSTANT: pre-css "white-space: pre; font-family: monospace;"
             { inset padding-css, }
         } make-css
     ] [ wrap-margin swap at [ pre-css append ] unless ] bi
-    "display: inline-block;" append ;
+    " display: inline-block;" append ;
 
 : div-tag ( xml style -- xml' )
     div-css-style