Index: tests/level1/core/alltests.xml
===================================================================
retrieving revision 1.17
diff -u -r1.17 alltests.xml
--- tests/level1/core/alltests.xml	14 Jan 2004 01:27:27 -0000	1.17
+++ tests/level1/core/alltests.xml	28 Jan 2004 23:37:06 -0000
@@ -352,6 +352,7 @@
 <suite.member href="hc_documentcreateelement.xml"/>
 <suite.member href="hc_documentcreateelementcasesensitive.xml"/>
 <suite.member href="hc_documentcreatetextnode.xml"/>
+<suite.member href="hc_documentgetdoctype.xml"/>
 <suite.member href="hc_documentgetelementsbytagnamelength.xml"/>
 <suite.member href="hc_documentgetelementsbytagnametotallength.xml"/>
 <suite.member href="hc_documentgetelementsbytagnamevalue.xml"/>
Index: tests/level3/core/documentgetdoctype01.xml
===================================================================
retrieving revision 1.3
diff -u -r1.3 documentgetdoctype01.xml
--- tests/level3/core/documentgetdoctype01.xml	5 Jan 2004 08:27:14 -0000	1.3
+++ tests/level3/core/documentgetdoctype01.xml	28 Jan 2004 23:37:11 -0000
@@ -38,11 +38,17 @@
 <var name="docTypeName" type="DOMString"/>
 <var name="nullPubID" type="DOMString" isNull="true"/>
 <var name="nullSysID" type="DOMString" isNull="true"/>
+<var name="rootNS" type="DOMString"/>
+<var name="rootName" type="DOMString"/>
+<var name="docElem" type="DocumentElement"/>
 <var name="replaced" type="Node"/>
 <load var="doc" href="hc_staff" willBeModified="true"/>
+<documentElement var="docElem" obj="doc"/>
+<tagName var="rootName" obj="docElem"/>
+<namespaceURI var="rootNS" obj="docElem" interface="Node"/>
 <doctype var="docType" obj="doc"/>
 <implementation obj="doc" var="domImpl"/>
-<createDocumentType obj="domImpl" var="newDocType" qualifiedName='"dom:level3"' publicId="nullPubID" systemId="nullSysID"/>
+<createDocumentType obj="domImpl" var="newDocType" qualifiedName='rootName' publicId="nullPubID" systemId="nullSysID"/>
 <try>
 	<replaceChild obj="doc" var="replaced" newChild="newDocType" oldChild="docType"/>
 	<catch>
@@ -53,6 +59,6 @@
 </try>
 <doctype var="replacedDocType" obj="doc"/>
 <name var="docTypeName" obj="replacedDocType" interface="DocumentType"/>
-<assertEquals actual="docTypeName" expected='"dom:level3"' 
+<assertEquals actual="docTypeName" expected='rootName' 
 	id="documentgetdoctype01" ignoreCase="false"/>
 </test>
Index: tests/level1/core/hc_documentgetdoctype.xml
===================================================================
RCS file: tests/level1/core/hc_documentgetdoctype.xml
diff -N tests/level1/core/hc_documentgetdoctype.xml
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ tests/level1/core/hc_documentgetdoctype.xml	1 Jan 1970 00:00:00 -0000
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+Copyright (c) 2001-2004 World Wide Web Consortium,
+(Massachusetts Institute of Technology, Institut National de
+Recherche en Informatique et en Automatique, Keio University). All
+Rights Reserved. This program is distributed under the W3C's Software
+Intellectual Property License. This program is distributed in the
+hope that it will be useful, but WITHOUT ANY WARRANTY; without even
+the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+PURPOSE.
+See W3C License http://www.w3.org/Consortium/Legal/ for more details.
+--><!DOCTYPE test SYSTEM "dom1.dtd">
+
+<test xmlns="http://www.w3.org/2001/DOM-Test-Suite/Level-1" name="hc_documentgetdoctype">
+<metadata>
+<title>hc_documentgetdoctype</title>
+<creator>Curt Arnold</creator>
+<description>
+Access Document.doctype for hc_staff, if not text/html should return DocumentType node.
+HTML implementations may return null.
+</description>
+<date qualifier="created">2004-01-27</date>
+<subject resource="http://www.w3.org/TR/1998/REC-DOM-Level-1-19981001/level-one-core#ID-B63ED1A31"/>
+<!--  TODO:   link to errata   -->
+</metadata>
+<var name="doc" type="Document"/>
+<var name="docType" type="DocumentType"/>
+<var name="docTypeName" type="DOMString"/>
+<var name="nodeValue" type="DOMString"/>
+<var name="attributes" type="NamedNodeMap"/>
+<load var="doc" href="hc_staff" willBeModified="false"/>
+<doctype obj="doc" var="docType"/>
+<if><not><contentType type="text/html"/></not>
+	<assertNotNull actual="docType" id="docTypeNotNull"/>
+</if>
+<if><notNull obj="docType"/>
+		<name interface="DocumentType" obj="docType" var="docTypeName"/>
+		<assertEquals actual="docTypeName" expected='"html"' id="nodeName" ignoreCase="false"/>
+		<nodeValue obj="docType" var="nodeValue"/>
+		<assertNull actual="nodeValue" id="nodeValue"/>
+		<attributes var="attributes" obj="docType"/>
+		<assertNull actual="attributes" id="attributes"/>
+</if>
+</test>