factor/contrib/httpd/test/html.factor

IN: temporary
USING: html io kernel namespaces styles 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

[ "" ]
[
    [
        [ ] [ drop ] span-tag
    ] string-out
] unit-test

[ "<span style='color: #ff00ff; font-family: Monospaced; '>car</span>" ]
[
    [
        [ [ foreground 1 0 1 ] [[ font "Monospaced" ]] ]
        [ drop "car" write ]
        span-tag
    ] string-out
] unit-test

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

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

[ "<span style='color: #ff00ff; font-family: Monospaced; '>car</span>" ]
[
    [
        "car"
        [ [ foreground 1 0 1 ] [[ font "Monospaced" ]] ]
        html-format
    ] string-out
] unit-test

[
    "<html><head><title>Foo</title></head><body><h1>Foo</h1></body></html>"
] [
    [
        "Foo" [ ] html-document
    ] string-out
] unit-test

[
    "<html><head><title>Foo</title></head><body><h1>Foo</h1><pre>Hi</pre></body></html>"
] [
    [
        "Foo" [ "Hi" write ] simple-html-document
    ] string-out
] unit-test
messing around with ffi, various other fixes 2005-03-28 23:45:13 -05:00			`IN: temporary`
fix unit test failures 2005-07-13 15:34:38 -04:00			`USING: html io kernel namespaces styles 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
			`[ "" ]`
			`[`
			`[`
			`[ ] [ 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`

			`[ "<span style='color: #ff00ff; font-family: Monospaced; '>car</span>" ]`
			`[`
			`[`
fix httpd loading, update examples to work, fix status bar bug 2005-10-30 17:59:51 -05:00			`[ [ foreground 1 0 1 ] [[ font "Monospaced" ]] ]`
html-tags imported, file responder shows icons 2004-09-02 19:38:05 -04:00			`[ drop "car" write ]`
			`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" ]`
			`[`
handbook updates, HTML-format changelog 2005-07-21 21:43:37 -04:00			`[ "hello world" [ ] html-format ] string-out`
html-tags imported, file responder shows icons 2004-09-02 19:38:05 -04:00			`] unit-test`

			`[ "<span style='color: #ff00ff; font-family: Monospaced; '>car</span>" ]`
			`[`
			`[`
			`"car"`
fix httpd loading, update examples to work, fix status bar bug 2005-10-30 17:59:51 -05:00			`[ [ foreground 1 0 1 ] [[ font "Monospaced" ]] ]`
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`

			`[`
			`"<html><head><title>Foo</title></head><body><h1>Foo</h1></body></html>"`
			`] [`
			`[`
			`"Foo" [ ] html-document`
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`

			`[`
			`"<html><head><title>Foo</title></head><body><h1>Foo</h1><pre>Hi</pre></body></html>"`
			`] [`
			`[`
			`"Foo" [ "Hi" write ] simple-html-document`
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`