require 'xml/libxml'
require 'test/unit'

class TC_XML_Document_Write < Test::Unit::TestCase
  def test_registerErrorHandler
    messages = ''
    XML::Parser.registerErrorHandler {|error| messages << error}
    p = XML::Parser.new
    p.string = "<div>at&t"
    
   assert_raise(XML::Parser::ParseError) { p.parse }
   assert_match /EntityRef: expecting ';'/, messages
   assert_match /Premature end of data in tag div/, messages
  end
end