From fa577032663b755081ff24f6a5657a7428c0bf1c Mon Sep 17 00:00:00 2001
From: Jacek Caban <jacek@codeweavers.com>
Date: Thu, 16 Oct 2008 15:28:08 -0500
Subject: [PATCH] mshtml: Added IHTMLInputElement::put_checked implementation.

---
 dlls/mshtml/htmlinput.c | 13 +++++++++++--
 dlls/mshtml/tests/dom.c | 26 ++++++++++++++++++++++++++
 2 files changed, 37 insertions(+), 2 deletions(-)

diff --git a/dlls/mshtml/htmlinput.c b/dlls/mshtml/htmlinput.c
index c14c4a827ee..abb6e2e800a 100644
--- a/dlls/mshtml/htmlinput.c
+++ b/dlls/mshtml/htmlinput.c
@@ -415,8 +415,17 @@ static HRESULT WINAPI HTMLInputElement_get_defaultChecked(IHTMLInputElement *ifa
 static HRESULT WINAPI HTMLInputElement_put_checked(IHTMLInputElement *iface, VARIANT_BOOL v)
 {
     HTMLInputElement *This = HTMLINPUT_THIS(iface);
-    FIXME("(%p)->(%x)\n", This, v);
-    return E_NOTIMPL;
+    nsresult nsres;
+
+    TRACE("(%p)->(%x)\n", This, v);
+
+    nsres = nsIDOMHTMLInputElement_SetChecked(This->nsinput, v != VARIANT_FALSE);
+    if(NS_FAILED(nsres)) {
+        ERR("SetChecked failed: %08x\n", nsres);
+        return E_FAIL;
+    }
+
+    return S_OK;
 }
 
 static HRESULT WINAPI HTMLInputElement_get_checked(IHTMLInputElement *iface, VARIANT_BOOL *p)
diff --git a/dlls/mshtml/tests/dom.c b/dlls/mshtml/tests/dom.c
index 9f477aa5338..7a14c295a99 100644
--- a/dlls/mshtml/tests/dom.c
+++ b/dlls/mshtml/tests/dom.c
@@ -1427,6 +1427,28 @@ static void _test_input_set_defaultchecked(unsigned line, IHTMLInputElement *inp
     _test_input_get_defaultchecked(line, input, b);
 }
 
+#define test_input_get_checked(i,b) _test_input_get_checked(__LINE__,i,b)
+static void _test_input_get_checked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL exb)
+{
+    VARIANT_BOOL checked = 100;
+    HRESULT hres;
+
+    hres = IHTMLInputElement_get_checked(input, &checked);
+    ok_(__FILE__,line) (hres == S_OK, "get_checked failed: %08x\n", hres);
+    ok_(__FILE__,line) (checked == exb, "checked=%x, expected %x\n", checked, exb);
+}
+
+#define test_input_set_checked(i,b) _test_input_set_checked(__LINE__,i,b)
+static void _test_input_set_checked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL b)
+{
+    HRESULT hres;
+
+    hres = IHTMLInputElement_put_checked(input, b);
+    ok_(__FILE__,line) (hres == S_OK, "get_checked failed: %08x\n", hres);
+
+    _test_input_get_checked(line, input, b);
+}
+
 #define test_input_value(o,t) _test_input_value(__LINE__,o,t)
 static void _test_input_value(unsigned line, IUnknown *unk, const char *exval)
 {
@@ -3164,6 +3186,10 @@ static void test_elems(IHTMLDocument2 *doc)
         test_input_set_defaultchecked(input, VARIANT_TRUE);
         test_input_set_defaultchecked(input, VARIANT_FALSE);
 
+        test_input_get_checked(input, VARIANT_FALSE);
+        test_input_set_checked(input, VARIANT_TRUE);
+        test_input_set_checked(input, VARIANT_FALSE);
+
         IHTMLInputElement_Release(input);
         IHTMLElement_Release(elem);
     }