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

html.streams.tests: Update tests for color objects

db4
Eduardo Cavazos 2008-08-04 11:02:17 -05:00
parent 9d1f741893
commit 5cd794f903
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/html/streams/streams-tests.factor
View File

@ -1,6 +1,8 @@
USING: html.streams html.streams.private USING: html.streams html.streams.private
io io.streams.string io.styles kernel io io.streams.string io.styles kernel
namespaces tools.test xml.writer sbufs sequences inspector ; namespaces tools.test xml.writer sbufs sequences inspector colors ;
IN: html.streams.tests IN: html.streams.tests
: make-html-string : make-html-string
@ -52,7 +54,7 @@ M: funky browser-link-href
[ [
[ [
"car" "car"
H{ { foreground { 1 0 1 1 } } } H{ { foreground T{ rgba f 1 0 1 1 } } }
format format
] make-html-string ] make-html-string
] unit-test ] unit-test
@ -60,7 +62,7 @@ M: funky browser-link-href
[ "<div style='background-color: #ff00ff; white-space: pre; font-family: monospace; '>cdr</div>" ] [ "<div style='background-color: #ff00ff; white-space: pre; font-family: monospace; '>cdr</div>" ]
[ [
[ [
H{ { page-color { 1 0 1 1 } } } H{ { page-color T{ rgba f 1 0 1 1 } } }
[ "cdr" write ] with-nesting [ "cdr" write ] with-nesting
] make-html-string ] make-html-string
] unit-test ] unit-test