diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-07 20:00:52 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-07 20:00:52 (GMT) |
| commit | 1ea9e06c2ff3a6f4059d1be92dcca32157fe7c03 (patch) | |
| tree | fb96917e1f49ca7bcef7efc1107c1306f604a471 /tkhtml1/tests/html1.test | |
| parent | f946ccfb35b2c144c4bb456d5fe9b48c1b8ae524 (diff) | |
| download | blt-1ea9e06c2ff3a6f4059d1be92dcca32157fe7c03.zip blt-1ea9e06c2ff3a6f4059d1be92dcca32157fe7c03.tar.gz blt-1ea9e06c2ff3a6f4059d1be92dcca32157fe7c03.tar.bz2 | |
update TEA 3.13
Diffstat (limited to 'tkhtml1/tests/html1.test')
| -rw-r--r-- | tkhtml1/tests/html1.test | 181 |
1 files changed, 0 insertions, 181 deletions
diff --git a/tkhtml1/tests/html1.test b/tkhtml1/tests/html1.test deleted file mode 100644 index 043113a..0000000 --- a/tkhtml1/tests/html1.test +++ /dev/null @@ -1,181 +0,0 @@ -# -# 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} |