Artifact 015c514bd8919467c1074dc3068a527abb3988b5:

  • File tests/doctype.test — part of check-in [0c74c1fded] at 2002-07-28 23:20:37 on branch trunk — Added the inclusion of loadtdom.tcl and adjusted baseURI / load of external files where necessary. (user: rolf size: 1224)

# Features covered:  Document Type Declaration
#
# This file tests the parser's performance on Document Type Declarations.
# Sourcing this file into Tcl runs the tests and generates output
# for errors.  No output means no errors were found.
#
# Copyright (c) 1998-2000 Zveno Pty Ltd.
#
# $Id$

source [file join [file dir [info script]] loadtdom.tcl]

catch {unset result}
proc doctype {name pub system dtd} {
    lappend ::result $name $pub $system $dtd
}

test doctype-1.1 {Document Type Declaration: no internal DTD subset} {
    set ::result {}

    catch {rename xml::doctype-1.1 {}}
    set parser [xml::parser doctype-1.1 \
	-startdoctypedeclcommand doctype]
    $parser parse {<?xml version="1.0"?>
<!DOCTYPE Test>
<Test></Test>
}
    set ::result
} {Test NULL NULL 0}

test doctype-2.1 {Document Type Declaration: internal DTD subset} {
    set ::result {}

    catch {rename xml::doctype-2.1 {}}
    set parser [xml::parser doctype-2.1 \
	-startdoctypedeclcommand doctype]
    $parser parse {<?xml version="1.0"?>
<!DOCTYPE Test [<!ELEMENT Test EMPTY>]>
<Test></Test>
}
    set ::result
} {Test NULL NULL 1}

foreach parser [info commands doctype-*] {
    $parser free
}

# cleanup
::tcltest::cleanupTests
return