addons/SGML/tests/SGMLTest.io

   1 SGML
   2
   3 SGMLTest := UnitTest clone do(
   4         testFull := method(
   5                 s := """<html>
   6                                 <p attribute="o'brian">
   7                                 <body bgcolor="black''''">
   8                                                 <!-- This is a test comment -->
   9                                                 <!--This is a test comment2-->
  10                                                 <!--This is a test comment3 -->
  11                                                 <form name="bobby" method="post">
  12                                                                 <input type='hidden' name='action' value='go'>
  13                                                                 <input type="testing" name="startat" value="">
  14                                                                 <input type='hidden' name='action' value='go'>
  15                                                                 <p>
  16                                                                                 What's up
  17                                                                 </p>
  18                                                                 <input type="submit" value="submit" name="submit"/>
  19                                                 </form>
  20                                 </body>
  21                 </html>"""
  22
  23                 s1 := s asHTML asString
  24                 s2 := s1 asHTML asString
  25
  26                 assertEquals(s1, s2)
  27                 assertEquals(s1 asHTML subitems first subitems at(1) name, "p")
  28                 //assertEquals(s1 size, 467)
  29         )
  30 )