[nongnu] elpa/xml-rpc 6019352966 39/64: Add the beginning of rudimentary tests.

[Stefan Kangas]

branch: elpa/xml-rpc
commit 6019352966f5445e377e8ae610c16a521d857350
Author: Michael Alan Dorman <mdorman@ironicdesign.com>
Commit: Michael Alan Dorman <mdorman@ironicdesign.com>

    Add the beginning of rudimentary tests.
---
 xml-rpc-test.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/xml-rpc-test.el b/xml-rpc-test.el
new file mode 100644
index 0000000000..c84c47a728
--- /dev/null
+++ b/xml-rpc-test.el
@@ -0,0 +1,10 @@
+(require 'ert)
+
+(load-file "xml-rpc.el")
+
+(ert-deftest test-xml-rpc-value-structp ()
+  "Test whether xml-rpc-value-structp operates correctly"
+  (should (eq (xml-rpc-value-structp ()) t))
+  (should (eq (xml-rpc-value-structp '(("foo"))) t))
+  (should (eq (xml-rpc-value-structp '(("foo" . "bar"))) t))
+  (should (eq (xml-rpc-value-structp '(("foo" :datetime (12345 12345)))) t)))