require "test/unit" require "rexml/parsers/sax2parser" require "rexml/sax2listener" module REXMLTests class TestSAX2Parser < Test::Unit::TestCase class TestDocumentTypeDeclaration < self private def xml(internal_subset) <<-XML XML end class TestEntityDeclaration < self class Listener include REXML::SAX2Listener attr_reader :entity_declarations def initialize @entity_declarations = [] end def entitydecl(declaration) super @entity_declarations << declaration end end private def parse(internal_subset) listener = Listener.new parser = REXML::Parsers::SAX2Parser.new(xml(internal_subset)) parser.listen(listener) parser.parse listener.entity_declarations end class TestGeneralEntity < self class TestValue < self def test_double_quote assert_equal([["name", "value"]], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end def test_single_quote assert_equal([["name", "value"]], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end end class TestExternlID < self class TestSystem < self def test_with_ndata declaration = [ "name", "SYSTEM", "system-literal", "NDATA", "ndata-name", ] assert_equal([declaration], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end def test_without_ndata declaration = [ "name", "SYSTEM", "system-literal", ] assert_equal([declaration], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end end class TestPublic < self def test_with_ndata declaration = [ "name", "PUBLIC", "public-literal", "system-literal", "NDATA", "ndata-name", ] assert_equal([declaration], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end def test_without_ndata declaration = [ "name", "PUBLIC", "public-literal", "system-literal", ] assert_equal([declaration], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end end end end class TestParameterEntity < self class TestValue < self def test_double_quote assert_equal([["%", "name", "value"]], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end def test_single_quote assert_equal([["%", "name", "value"]], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end end class TestExternlID < self def test_system declaration = [ "%", "name", "SYSTEM", "system-literal", ] assert_equal([declaration], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end def test_public declaration = [ "%", "name", "PUBLIC", "public-literal", "system-literal", ] assert_equal([declaration], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end end end end class TestNotationDeclaration < self class Listener include REXML::SAX2Listener attr_reader :notation_declarations def initialize @notation_declarations = [] end def notationdecl(*declaration) super @notation_declarations << declaration end end private def parse(internal_subset) listener = Listener.new parser = REXML::Parsers::SAX2Parser.new(xml(internal_subset)) parser.listen(listener) parser.parse listener.notation_declarations end class TestExternlID < self def test_system declaration = ["name", "SYSTEM", nil, "system-literal"] assert_equal([declaration], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end def test_public declaration = ["name", "PUBLIC", "public-literal", "system-literal"] assert_equal([declaration], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end end class TestPublicID < self def test_literal declaration = ["name", "PUBLIC", "public-literal", nil] assert_equal([declaration], parse(<<-INTERNAL_SUBSET)) INTERNAL_SUBSET end end end end end end