factor/contrib/httpd/test/html.factor

IN: temporary
USING: html http io kernel namespaces styles test xml ;

[
    "/responder/foo?z=%20"
] [
    "/responder/foo" H{ { "z" " " } } build-url
] unit-test

[
    "&lt;html&gt;&amp;&apos;sgml&apos;"
] [ "<html>&'sgml'" chars>entities ] unit-test

[ "/foo/bar" ]
[
    [
        "/home/slava/doc/" "doc-root" set
        "/home/slava/doc/foo/bar" file-link-href
    ] with-scope
] unit-test

[ "" ]
[
    [
        H{ } [ drop ] span-tag
    ] string-out
] unit-test

: html-format ( string style -- string )
    [ format ] with-html-stream ;

[ "hello world" ]
[
    [ "hello world" H{ } html-format ] string-out
] unit-test

[ "<span style='font-family: monospace; '>car</span>" ]
[
    [
        "car"
        H{ { font "monospace" } }
        html-format
    ] string-out
] unit-test

[ "<span style='color: #ff00ff; '>car</span>" ]
[
    [
        "car"
        H{ { foreground { 1 0 1 1 } } }
        html-format
    ] string-out
] unit-test
messing around with ffi, various other fixes 2005-03-28 23:45:13 -05:00			`IN: temporary`
inspect responder 2006-01-23 18:01:46 -05:00			`USING: html http io kernel namespaces styles test xml ;`

			`[`
AMD64 FFI fixes; httpd load fix; minor opengl optimization 2006-01-30 02:03:34 -05:00			`"/responder/foo?z=%20"`
inspect responder 2006-01-23 18:01:46 -05:00			`] [`
			`"/responder/foo" H{ { "z" " " } } build-url`
cell fix; experimental preferred size cache; floor/ceiling/truncate/mod for floats; fix mod for ratios; fix float equality test 2006-01-26 23:01:14 -05:00			`] unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[`
			`"<html>&'sgml'"`
working on the test suite 2004-08-04 03:12:55 -04:00			`] [ "<html>&'sgml'" chars>entities ] unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
some compiler work, compiled? primitive 2004-10-04 23:58:53 -04:00			`[ "/foo/bar" ]`
file responder directory listing 2004-08-30 20:24:19 -04:00			`[`
			`[`
			`"/home/slava/doc/" "doc-root" set`
			`"/home/slava/doc/foo/bar" file-link-href`
			`] with-scope`
			`] unit-test`
html-tags imported, file responder shows icons 2004-09-02 19:38:05 -04:00
			`[ "" ]`
			`[`
			`[`
httpd fixes 2005-11-29 23:49:59 -05:00			`H{ } [ drop ] span-tag`
with-string is now string-out, string-in combinator, documentation updates 2005-06-19 18:53:58 -04:00			`] string-out`
html-tags imported, file responder shows icons 2004-09-02 19:38:05 -04:00			`] unit-test`

handbook updates, HTML-format changelog 2005-07-21 21:43:37 -04:00			`: html-format ( string style -- string )`
			`[ format ] with-html-stream ;`
fix literal dataflow, other fixes 2004-11-28 21:56:58 -05:00
html-tags imported, file responder shows icons 2004-09-02 19:38:05 -04:00			`[ "hello world" ]`
			`[`
httpd fixes 2005-11-29 23:49:59 -05:00			`[ "hello world" H{ } html-format ] string-out`
			`] unit-test`

fix test failure 2006-01-20 04:58:12 -05:00			`[ "<span style='font-family: monospace; '>car</span>" ]`
httpd fixes 2005-11-29 23:49:59 -05:00			`[`
			`[`
			`"car"`
HTTPD cleanups, working on help responder 2006-01-20 01:26:50 -05:00			`H{ { font "monospace" } }`
httpd fixes 2005-11-29 23:49:59 -05:00			`html-format`
			`] string-out`
html-tags imported, file responder shows icons 2004-09-02 19:38:05 -04:00			`] unit-test`

httpd fixes 2005-11-29 23:49:59 -05:00			`[ "<span style='color: #ff00ff; '>car</span>" ]`
html-tags imported, file responder shows icons 2004-09-02 19:38:05 -04:00			`[`
			`[`
			`"car"`
httpd fixes 2005-11-29 23:49:59 -05:00			`H{ { foreground { 1 0 1 1 } } }`
handbook updates, HTML-format changelog 2005-07-21 21:43:37 -04:00			`html-format`
with-string is now string-out, string-in combinator, documentation updates 2005-06-19 18:53:58 -04:00			`] string-out`
html-tags imported, file responder shows icons 2004-09-02 19:38:05 -04:00			`] unit-test`