english
version "1.0"
identify "xyz"

# Copyright (c) 1998 by Wayne C. Gramlich.
# All rights reserved.
#
# Permission to use, copy, modify, distribute, and sell this software
# for any purpose is hereby granted without fee provided that the above
# copyright notice and this permission are retained.  The author makes
# no representations about the suitability of this software for any purpose.
# It is provided "as is" without express or implied warranty.

module xml_test

#: This module monitors the traffic between a client and a server
#, communicating via a TCP stream.


#: This module will test out the XML library.

procedure main
    takes
	system system
    returns unsigned

    #: This procedure will test out the XML library.


procedure xml_test
    takes
	resources xml_resources
	name string
	xml_text string
	error_count unsigned
    returns logical

    #: This procedure will verify that {xml_text} parses up reasonably.
    #, This procedure will verify that exactly {error_count} parse errors
    #, occured.  If any errors occur, {true}@{logical} is returned;
    #, otherwise, {false} is returned.