Implement selectSingleNode.

dlls/msxml3/node.c

@@ -586,8 +586,19 @@ static HRESULT WINAPI xmlnode_selectSingleNode(
     BSTR queryString,
     IXMLDOMNode** resultNode)
 {
-    FIXME("\n");
-    return E_NOTIMPL;
+    xmlnode *This = impl_from_IXMLDOMNode( iface );
+    IXMLDOMNodeList *list;
+    HRESULT r;
+
+    TRACE("%p %s %p\n", This, debugstr_w(queryString), resultNode );
+
+    r = IXMLDOMNode_selectNodes(iface, queryString, &list);
+    if(SUCCEEDED(r))
+    {
+        r = IXMLDOMNodeList_nextNode(list, resultNode);
+        IXMLDOMNodeList_Release(list);
+    }
+    return r;
 }
 
 static HRESULT WINAPI xmlnode_get_parsed(

dlls/msxml3/tests/domdoc.c

@@ -447,6 +447,13 @@ void test_domnode( void )
     else
         ok( FALSE, "no element\n");
 
+    r = IXMLDOMNode_selectSingleNode( element, (BSTR)szdl, &node );
+    ok( r == S_FALSE, "ret %08lx\n", r );
+    r = IXMLDOMNode_selectSingleNode( element, (BSTR)szbs, &node );
+    ok( r == S_OK, "ret %08lx\n", r );
+    r = IXMLDOMNode_Release( node );
+    ok( r == 0, "ret %08lx\n", r );
+
     if (list)
     {
         r = IXMLDOMNodeList_get_length( list, &count );