--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/trunk/resources/tests/dom3/Core/typeinfoisderivedfrom39.xml	Tue Apr 08 19:47:42 2008 +0000
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?><?xml-stylesheet href="test-to-html.xsl" type="text/xml"?>
+
+<!--
+
+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.
+
+-->
+
+
+<test xmlns="http://www.w3.org/2001/DOM-Test-Suite/Level-3" name="typeinfoisderivedfrom39">
+<metadata>
+<title>typeinfoisderivedfrom39</title>
+<creator>Curt Arnold</creator>
+<description>
+Check if anonymous type of p element derives from itself.
+</description>
+<date qualifier="created">2004-01-15</date>
+<subject resource="http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-isDerivedFrom"/>
+</metadata>
+<implementationAttribute name="schemaValidating" value="true"/>
+<var name="doc" type="Document"/>
+<var name="elemList" type="NodeList"/>
+<var name="elem" type="Element"/>
+<var name="typeInfo" type="TypeInfo"/>
+<var name="isDerived" type="boolean"/>
+<var name="typeName" type="DOMString"/>
+<var name="typeNS" type="DOMString"/>
+<load var="doc" href="hc_staff" willBeModified="false"/>
+<getElementsByTagName var="elemList" obj="doc" tagname='"p"' interface="Document"/>
+<item var="elem" obj="elemList" index="0" interface="NodeList"/>
+<schemaTypeInfo var="typeInfo" obj="elem" interface="Element"/>
+<!--  type should be anonymous type defined within p element  -->
+<assertNotNull actual="typeInfo" id="typeInfoNotNull"/>
+<typeName var="typeName" obj="typeInfo"/>
+<typeNamespace var="typeNS" obj="typeInfo"/>
+<isDerivedFrom var="isDerived" obj="typeInfo" typeNamespaceArg='typeNS'
+	typeNameArg='typeName' derivationMethod="15"/>
+<assertFalse actual="isDerived" id="notDerivedFromSelf"/>
+</test>