Branch: Tag:

2006-07-21

2006-07-21 10:31:46 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed some tests.
Added checks for xml and doctype headers.

Rev: lib/modules/Parser.pmod/XML.pmod/testsuite.in:1.10

1:   START_MARKER - // $Id: testsuite.in,v 1.9 2006/01/10 17:24:28 grubba Exp $ + // $Id: testsuite.in,v 1.10 2006/07/21 10:31:46 grubba Exp $      // DOM   
8:   define(test_tree_eq,[[    test_eq(Parser.XML.Tree.parse_input $1 ,$2)    test_eq(Parser.XML.Tree.simple_parse_input $1 ,$2) -  test_eq(Parser.XML.Tree.Node $1 ,$2) -  test_eq(Parser.XML.Tree.SimpleNode $1 ,$2) +  test_eq(Parser.XML.Tree.RootNode $1 ,$2) +  test_eq(Parser.XML.Tree.SimpleRootNode $1 ,$2)   ]])      test_eval_error([[ Parser.XML.Tree.parse_input("<foo>", 0, 0, 0, 1); ]])
28:   test_tree_eq([[ ("<?xml version=\"1.0\"?><!DOCTYPE greeting SYSTEM \"hello.dtd\"><!-- comment -- --><x/>")->render_xml() ]],   [[ "<?xml version='1.0' encoding='utf-8'?><!DOCTYPE greeting SYSTEM \"hello.dtd\"><!-- comment -- --><x/>" ]])    + // Check that any xml and/or doctype header survives the parsing. + // Check also that the headers are rendered properly. + test_tree_eq([[ Parser.XML.Tree.parse_input("<?xml version='1.0' encoding='iso-8859-1'?><!DOCTYPE foo [ <!ELEMENT foo (foo)*> ]><foo><foo/><foo/></foo>")->render_xml() ]], +  [[ "<?xml version='1.0' encoding='iso-8859-1'?><!DOCTYPE foo [ <!ELEMENT foo (foo)* > ]><foo><foo/><foo/></foo>" ]]) + test_tree_eq([[ Parser.XML.Tree.parse_input("<?xml version='1.0' encoding='utf-8'?><!DOCTYPE foo PUBLIC \"-//EN\" \"foo.dtd\" ><foo><foo/><foo/></foo>")->render_xml() ]], +  [[ "<?xml version='1.0' encoding='utf-8'?><!DOCTYPE foo PUBLIC \"-//EN\" \"foo.dtd\"><foo><foo/><foo/></foo>" ]]) +    test_any([[      class A { -  inherit Parser.XML.Tree.Node; +  inherit Parser.XML.Tree.RootNode;    public array(this_program) mChildren = ({});   };