diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | test/rexml/parser/test_sax2.rb | 57 |
2 files changed, 61 insertions, 0 deletions
@@ -1,3 +1,7 @@ +Sun Aug 11 17:41:41 2013 Kouhei Sutou <kou@cozmixng.org> + + * test/rexml/parser/test_sax2.rb: Add SAX2 API test. + Sun Aug 11 15:10:40 2013 Nobuyoshi Nakada <nobu@ruby-lang.org> * parse.y (rb_enc_symname_type): allow ID_ATTRSET for ID_INSTANCE, diff --git a/test/rexml/parser/test_sax2.rb b/test/rexml/parser/test_sax2.rb new file mode 100644 index 0000000000..d808899dd2 --- /dev/null +++ b/test/rexml/parser/test_sax2.rb @@ -0,0 +1,57 @@ +require "test/unit" +require "rexml/parsers/sax2parser" +require "rexml/sax2listener" + +class TestSAX2Parser < Test::Unit::TestCase + class TestDocumentTypeDeclaration < self + private + def xml(internal_subset) + <<-XML +<!DOCTYPE r SYSTEM "urn:x-henrikmartensson:test" [ +#{internal_subset} +]> +<r/> + XML + end + + class TestEntityDecl < self + class Listener + include REXML::SAX2Listener + attr_reader :entity_declarations + def initialize + @entity_declarations = [] + end + + def entitydecl(*args) + super + @entity_declarations << args + 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)) +<!ENTITY name "value"> + INTERNAL_SUBSET + end + + def test_single_quote + assert_equal([["name", "value"]], parse(<<-INTERNAL_SUBSET)) +<!ENTITY name 'value'> + INTERNAL_SUBSET + end + end + end + end + end +end |