<?xml version="1.0" encoding="UTF-8"?>
<!--
Copyright (c) 2001 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_documentcreatecomment">
<metadata>
<title>hc_documentCreateComment</title>
<creator>Curt Arnold</creator>
<description>
    The "createComment(data)" method creates a new Comment
   node given the specified string. 
   Retrieve the entire DOM document and invoke its 
   "createComment(data)" method.  It should create a new
   Comment node whose "data" is the specified string.
   The content, name and type are retrieved and output.
</description>

<date qualifier="created">2002-06-09</date>
<subject resource="http://www.w3.org/TR/1998/REC-DOM-Level-1-19981001/level-one-core#ID-1334481328"/>
</metadata>
<var name="doc" type="Document"/>
<var name="newCommentNode" type="Comment"/>
<var name="newCommentValue" type="DOMString"/>
<var name="newCommentName" type="DOMString"/>
<var name="newCommentType" type="int"/>
<load var="doc" href="hc_staff" willBeModified="true"/>
<createComment obj="doc" var="newCommentNode" data='"This is a new Comment node"'/>
<nodeValue obj="newCommentNode" var="newCommentValue"/>
<assertEquals actual="newCommentValue" expected='"This is a new Comment node"' ignoreCase="false" id="value"/>
<nodeName obj="newCommentNode" var="newCommentName"/>
<assertEquals actual="newCommentName" expected='"#comment"' ignoreCase="false" id="strong"/>
<nodeType obj="newCommentNode" var="newCommentType"/>
<assertEquals actual="newCommentType" expected="8" ignoreCase="false" id="type"/>
</test>
