diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-07 19:35:16 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-07 19:35:16 (GMT) |
commit | 09e487f0e296d4f8b4d8f52913e0853cd6267ab1 (patch) | |
tree | 0d20544277d73cbc522f7e5bc577b29069bed661 /tkhtml1/tests/html1.test | |
parent | 488dcf87e8e9f24a6d0e7955b7be56d972480ca4 (diff) | |
parent | cea0772af197e912bd0ce13a6ec5b7d936ec077d (diff) | |
download | blt-09e487f0e296d4f8b4d8f52913e0853cd6267ab1.zip blt-09e487f0e296d4f8b4d8f52913e0853cd6267ab1.tar.gz blt-09e487f0e296d4f8b4d8f52913e0853cd6267ab1.tar.bz2 |
Merge commit 'cea0772af197e912bd0ce13a6ec5b7d936ec077d' as 'tkhtml1'
Diffstat (limited to 'tkhtml1/tests/html1.test')
-rw-r--r-- | tkhtml1/tests/html1.test | 181 |
1 files changed, 181 insertions, 0 deletions
diff --git a/tkhtml1/tests/html1.test b/tkhtml1/tests/html1.test new file mode 100644 index 0000000..043113a --- /dev/null +++ b/tkhtml1/tests/html1.test @@ -0,0 +1,181 @@ +# +# Test script for the Tk HTML widget +# +wm withdraw . +if {[lsearch [namespace children] ::tcltest] == -1} { + source [file dirname $argv0]/engine.tcl + namespace import ::tcltest::* +} + +::tcltest::test html-1.0 { + Verify that all of the entites are displayed correctly. +} { + set h [tkhtml_test_widget] + $h clear + $h parse { +<html> +<h1>Entity and special character test</h1> +<p>The following list shows each entity of HTML 3.2 in four +formats: (1) the name, (2) as &entity;, (3) as &#123;, and +(4) as a raw UTF-8 or Ascii character.</p> +<ul> +<li> quot " " " </li> +<li> amp & & & </li> +<li> lt < < < </li> +<li> gt > > > </li> +<li> nbsp   </li> +<li> iexcl ¡ ¡ ¡ </li> +<li> cent ¢ ¢ ¢ </li> +<li> pound £ £ £ </li> +<li> curren ¤ ¤ ¤ </li> +<li> yen ¥ ¥ ¥ </li> +<li> brvbar ¦ ¦ ¦ </li> +<li> sect § § § </li> +<li> uml ¨ ¨ ¨ </li> +<li> copy © © © </li> +<li> ordf ª ª ª </li> +<li> laquo « « « </li> +<li> not ¬ ¬ ¬ </li> +<li> shy ­ ­ </li> +<li> reg ® ® ® </li> +<li> macr ¯ ¯ ¯ </li> +<li> deg ° ° ° </li> +<li> plusmn ± ± ± </li> +<li> sup2 ² ² ² </li> +<li> sup3 ³ ³ ³ </li> +<li> acute ´ ´ ´ </li> +<li> micro µ µ µ </li> +<li> para ¶ ¶ ¶ </li> +<li> middot · · · </li> +<li> cedil ¸ ¸ ¸ </li> +<li> sup1 ¹ ¹ ¹ </li> +<li> ordm º º º </li> +<li> raquo » » » </li> +<li> frac14 ¼ ¼ ¼ </li> +<li> frac12 ½ ½ ½ </li> +<li> frac34 ¾ ¾ ¾ </li> +<li> iquest ¿ ¿ ¿ </li> +<li> Agrave À À À </li> +<li> Aacute Á Á Á </li> +<li> Acirc    </li> +<li> Atilde à à à </li> +<li> Auml Ä Ä Ä </li> +<li> Aring Å Å Å </li> +<li> AElig Æ Æ Æ </li> +<li> Ccedil Ç Ç Ç </li> +<li> Egrave È È È </li> +<li> Eacute É É É </li> +<li> Ecirc Ê Ê Ê </li> +<li> Euml Ë Ë Ë </li> +<li> Igrave Ì Ì Ì </li> +<li> Iacute Í Í Í </li> +<li> Icirc Î Î Î </li> +<li> Iuml Ï Ï Ï </li> +<li> ETH Ð Ð Ð </li> +<li> Ntilde Ñ Ñ Ñ </li> +<li> Ograve Ò Ò Ò </li> +<li> Oacute Ó Ó Ó </li> +<li> Ocirc Ô Ô Ô </li> +<li> Otilde Õ Õ Õ </li> +<li> Ouml Ö Ö Ö </li> +<li> times × × × </li> +<li> Oslash Ø Ø Ø </li> +<li> Ugrave Ù Ù Ù </li> +<li> Uacute Ú Ú Ú </li> +<li> Ucirc Û Û Û </li> +<li> Uuml Ü Ü Ü </li> +<li> Yacute Ý Ý Ý </li> +<li> THORN Þ Þ Þ </li> +<li> szlig ß ß ß </li> +<li> agrave à à à </li> +<li> aacute á á á </li> +<li> acirc â â â </li> +<li> atilde ã ã ã </li> +<li> auml ä ä ä </li> +<li> aring å å å </li> +<li> aelig æ æ æ </li> +<li> ccedil ç ç ç </li> +<li> egrave è è è </li> +<li> eacute é é é </li> +<li> ecirc ê ê ê </li> +<li> euml ë ë ë </li> +<li> igrave ì ì ì </li> +<li> iacute í í í </li> +<li> icirc î î î </li> +<li> iuml ï ï ï </li> +<li> eth ð ð ð </li> +<li> ntilde ñ ñ ñ </li> +<li> ograve ò ò ò </li> +<li> oacute ó ó ó </li> +<li> ocirc ô ô ô </li> +<li> otilde õ õ õ </li> +<li> ouml ö ö ö </li> +<li> divide ÷ ÷ ÷ </li> +<li> oslash ø ø ø </li> +<li> ugrave ù ù ù </li> +<li> uacute ú ú ú </li> +<li> ucirc û û û </li> +<li> uuml ü ü ü </li> +<li> yacute ý ý ý </li> +<li> thorn þ þ þ </li> +<li> yuml ÿ ÿ ÿ </li> +</ul> +</html> +} + ::tcltest::user-result +} {0 pass} + +::tcltest::test html-1.1 { + Verify that all subscripting and superscripting works. +} { + set h [tkhtml_test_widget] + $h clear + $h parse { +<html> +<body> +<h1>A test of subscripting and superscripting</h1> + +<p>Here is sub<sub>script</sub>. And now super<sup>script</sup>.</p> +<p>Here is sub<sub>sub<sub>script</sub></sub>. + And now super<sup>super<sup>script</sup></sup>.</p> + +<p>Here is sub<sub>super<sup>script</sup></sub></p> + +</body> +</html> +} + ::tcltest::user-result +} {0 pass} + +::tcltest::test html-1.2 { + Verify stylistic markup. +} { + set h [tkhtml_test_widget] + $h clear + $h parse { +<html> +<body> +<h1>A test of font changing markup</h1> + +<p>This is normal text</p> +<p><b>: <b>bold text</b></p> +<p><big>: <big>big text</big></p> +<p><cite>: <cite>cite text</cite></p> +<p><code>: <code>code text</code></p> +<p><em>: <em>emphasized text</em></p> +<p><i>: <i>italic text</i></p> +<p><kbd>: <kbd>keyboard text</kbd></p> +<p><s>: <s>strike-thru text</s></p> +<p><samp>: <samp>sample text</samp></p> +<p><small>: <small>small text</small></p> +<p><strike>: <strike>strike-thru text</strike></p> +<p><strong>: <strong>strong text</strong></p> +<p><tt>: <tt>teletype text</tt></p> +<p><u>: <u>underlined text</u></p> +<p><var>: <var>variable text</var></p> +<p>This is normal text</p> +</body> +</html> +} + ::tcltest::user-result +} {0 pass} |