From 0c5f2be35544743a2e776fa331ae51b1ab36421a Mon Sep 17 00:00:00 2001
From: Keith Lazuka <klazuka@gmail.com>
Date: Tue, 13 Oct 2009 08:54:37 -0400
Subject: [PATCH] html.streams: fixed broken unit-test

---
 basis/html/streams/streams-tests.factor | 4 ++--
 basis/html/streams/streams.factor       | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/html/streams/streams-tests.factor b/basis/html/streams/streams-tests.factor
index eeac9210c1..10d99f31a2 100644
--- 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 c6a2b08c00..6b98874703 100644
--- 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