require 'test/unit'
require 'rexml/parsers/sax2parser'
require 'socket'

class ErrorTest < Test::Unit::TestCase

    def setup
	$port = 12345
	
	Thread.new{
	    server = TCPServer.new('127.0.0.1', $port)
	    while (session = server.accept)
		session << '<foo>'
		Theread.stop
	    end
	}
	@socket = TCPSocket.new('127.0.0.1',$port)
    end
    
    def test_error
	ok = false	

	test = Thread.new{
 	    parser = REXML::Parsers::SAX2Parser.new @socket
 	    parser.listen( :start_element ) {
 		ok = true 
 	    }
 	    parser.parse
	    Thread.stop
 	}
 	sleep 1 #to be sure that server is running
	assert(ok)
    end
end