:: tests for html
/+ *test
=, de-xml:html
=, en-xml:html
|%
:: de-xml takes a cord but en-xml returns a tape?
::
++ test-de-xml
;: weld
:: Basic use
::
%+ expect-eq
!> ^- manx +:(de-xml:html (crip "My first webpage
Welcome!
Hello, world! We are on the web.\0a"))
!> ^- manx
;html
;head
;title: My first webpage
==
;body
;h1: Welcome!
; Hello, world! We are on the web.
;div;
;script(src "http://unsafely.tracking.you/cookiemonster.js");
==
==
:: CDATA sections
::
%+ expect-eq
!> ^- manx
+:(de-xml:html (crip ""))
!> ^- manx
;elem: text
:: comments
%+ expect-eq
!> ^- manx
;elem: text
!> +:(de-xml:html (crip "text"))
%+ expect-eq
!> ^- manx
;elem;
!> +:(de-xml:html (crip ""))
:: entities
::
%+ expect-eq
!> ^- manx
+:(de-xml:html (crip ">"))
!> ^- manx
;elem: >
:: self-closing tag
::
%+ expect-eq
!> ^- manx
+:(de-xml:html (crip ""))
!> ^- manx
;img;
==
::
++ test-en-xml
;: weld
:: Entities
::
%+ expect-eq
!> ">"
!> %- en-xml:html
;elem: >
:: Basic use
::
%+ expect-eq
!> %- en-xml:html
;html
;head
;title: My first webpage
==
;body
;h1: Welcome!
; Hello, world!
; We are on the web.
;div;
;script@"http://unsafely.tracking.you/cookiemonster.js";
==
==
!> "My first webpage
Welcome!
Hello, world!\0aWe are on the web.\0a"
:: Attributes
::
%+ expect-eq
!> "Submit"
!> %- en-xml:html
;input(type "submit"): Submit
==
--