xml: Add some tests for SAXpohoNit.

Signed-off-by: Jean-Christophe Beaupré <jcbrinfo@users.noreply.github.com>

diff --git a/lib/saxophonit/test_saxophonit.nit b/lib/saxophonit/test_saxophonit.nit
new file mode 100644 (file)
index 0000000..b1b1efc
--- /dev/null
+++ b/lib/saxophonit/test_saxophonit.nit
@@ -0,0 +1,196 @@
+# This file is part of NIT ( http://www.nitlanguage.org ).
+#
+# This file is free software, which comes along with NIT. This software is
+# distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
+# without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE. You can modify it is you want, provided this header
+# is kept unaltered, and a notification of the changes is added.
+# You are allowed to redistribute it and sell it, alone or is a part of
+# another product.
+
+# Tests for SAXophoNit
+module test_saxophonit is test_suite
+
+import sax::helpers::sax_locator_impl
+import sax::helpers::attributes_impl
+import saxophonit
+import saxophonit::testing
+
+class TestSaxophonit
+       super SAXTestSuite
+
+       redef fun create_reader do return new XophonReader
+
+       fun test_empty do
+               before_test
+               parse_string("<foo />")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               expected.start_element("", "foo", "foo", new AttributesImpl)
+               expected.end_element("", "foo", "foo")
+               expected.end_document
+               assert_equals
+       end
+
+       fun test_simple_element do
+               before_test
+               parse_string("<foo>bar</foo>")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               expected.start_element("", "foo", "foo", new AttributesImpl)
+               expected.characters("bar")
+               expected.end_element("", "foo", "foo")
+               expected.end_document
+               assert_equals
+       end
+
+       fun test_type_mismatch do
+               before_test
+               parse_string("<a></b>")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               expected.start_element("", "a", "a", new AttributesImpl)
+               expected.fatal_error(new SAXParseException.with(
+                               "The type in the closing tag (`b`) does not match the type " +
+                               "in the opening tag (`a`).", null, null, 1, 8))
+               expected.end_document
+               assert_equals
+       end
+
+       fun test_attributes do
+               var atts = new AttributesImpl
+
+               before_test
+               parse_string("<foo bar=\"baz\" answer='&amp;42' />")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               atts.add("", "bar", "bar", "CDATA", "baz")
+               atts.add("", "answer", "answer", "CDATA", "&42")
+               expected.start_element("", "foo", "foo", atts)
+               expected.end_element("", "foo", "foo")
+               expected.end_document
+               assert_equals
+       end
+
+       fun test_nested do
+               var atts = new AttributesImpl
+
+               before_test
+               parse_string("<foo><bar /><a>b</a></foo>")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               expected.start_element("", "foo", "foo", atts)
+               expected.start_element("", "bar", "bar", atts)
+               expected.end_element("", "bar", "bar")
+               expected.start_element("", "a", "a", atts)
+               expected.characters("b")
+               expected.end_element("", "a", "a")
+               expected.end_element("", "foo", "foo")
+               expected.end_document
+               assert_equals
+       end
+
+       fun test_xmldecl do
+               before_test
+               parse_string("<?xml version='1.0'?><foo />")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               expected.start_element("", "foo", "foo", new AttributesImpl)
+               expected.end_element("", "foo", "foo")
+               expected.end_document
+               assert_equals
+       end
+
+       fun test_xmldecl_encoding do
+               before_test
+               parse_string("<?xml version=\"1.0\" encoding='utf-8'?><foo />")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               expected.start_element("", "foo", "foo", new AttributesImpl)
+               expected.end_element("", "foo", "foo")
+               expected.end_document
+               assert_equals
+       end
+
+       fun test_xmldecl_standalone do
+               before_test
+               parse_string("<?xml version='1.0' standalone=\"yes\"?><foo />")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               expected.start_element("", "foo", "foo", new AttributesImpl)
+               expected.end_element("", "foo", "foo")
+               expected.end_document
+               assert_equals
+       end
+
+       fun test_xmldecl_both do
+               before_test
+               parse_string("<?xml version='1.0' encoding='utf-8' standalone=\"yes\"?><foo />")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               expected.start_element("", "foo", "foo", new AttributesImpl)
+               expected.end_element("", "foo", "foo")
+               expected.end_document
+               assert_equals
+       end
+
+       fun test_reference_builtin do
+               before_test
+               parse_string("<foo>&amp;&quot;&apos;&lt;&gt;&#48;&#x30;&#x03A;</foo>")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               expected.start_element("", "foo", "foo", new AttributesImpl)
+               expected.characters("&")
+               expected.characters("\"")
+               expected.characters("'")
+               expected.characters("<")
+               expected.characters(">")
+               expected.characters("0")
+               expected.characters("0")
+               expected.characters(":")
+               expected.end_element("", "foo", "foo")
+               expected.end_document
+               assert_equals
+       end
+
+       fun test_comments do
+               # TODO For the moment, comments are simply ignored.
+               before_test
+               parse_string("<!-- I--><foo>bar<!--l-i-k-e--></foo><!--comments    -->")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               expected.start_element("", "foo", "foo", new AttributesImpl)
+               expected.characters("bar")
+               expected.end_element("", "foo", "foo")
+               expected.end_document
+               assert_equals
+       end
+
+       fun test_ns_simple do
+               before_test
+               parse_string("<foo:bar xmlns:foo='https://s.exemple.org' />")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               expected.start_prefix_mapping("foo", "https://s.exemple.org")
+               expected.start_element("https://s.exemple.org", "bar", "foo:bar", new AttributesImpl)
+               expected.end_element("https://s.exemple.org", "bar", "foo:bar")
+               expected.end_document
+               assert_equals
+       end
+
+       fun test_ns_prefix do
+               var atts = new AttributesImpl
+
+               before_test
+               actual.feature("http://xml.org/sax/features/namespace-prefixes") = true
+               parse_string("<foo:bar xmlns:foo='https://s.exemple.org' />")
+               expected.document_locator = new SAXLocatorImpl
+               expected.start_document
+               expected.start_prefix_mapping("foo", "https://s.exemple.org")
+               atts.add("http://www.w3.org/xmlns/2000/", "foo", "xmlns:foo", "CDATA", "https://s.exemple.org")
+               expected.start_element("https://s.exemple.org", "bar", "foo:bar", atts)
+               expected.end_element("https://s.exemple.org", "bar", "foo:bar")
+               expected.end_document
+               assert_equals
+       end
+end