[telepathy-gabble/master] test-caps-hash.c: test complex example from XEP-0115

[Guillaume Desmottes]

---
 tests/test-caps-hash.c |   57 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 57 insertions(+), 0 deletions(-)

diff --git a/tests/test-caps-hash.c b/tests/test-caps-hash.c
index 28b6dd1..c6db40f 100644
--- a/tests/test-caps-hash.c
+++ b/tests/test-caps-hash.c
@@ -36,11 +36,68 @@ test_simple (void)
   return check_hash (stanza, "QgayPKawpkPSDYmwT/WM94uAlu0=");
 }
 
+static gboolean
+test_complex (void)
+{
+  /* Complex example from XEP-0115 */
+  LmMessage *stanza = lm_message_build ("badger", LM_MESSAGE_TYPE_IQ,
+    '(', "identity", "",
+      '@', "category", "client",
+      '@', "name", "Psi 0.11",
+      '@', "type", "pc",
+      '@', "xml:lang", "en",
+    ')',
+    '(', "identity", "",
+      '@', "category", "client",
+      '@', "name", "Ψ 0.11",
+      '@', "type", "pc",
+      '@', "xml:lang", "el",
+    ')',
+    '(', "feature", "", '@', "var", "http://jabber.org/protocol/disco#info", ')',
+    '(', "feature", "", '@', "var", "http://jabber.org/protocol/disco#items", ')',
+    '(', "feature", "", '@', "var", "http://jabber.org/protocol/muc", ')',
+    '(', "feature", "", '@', "var", "http://jabber.org/protocol/caps", ')',
+    '(', "x", "",
+      '@', "xmlns", "jabber:x:data",
+      '@', "type", "result",
+      '(', "field", "",
+        '@', "var", "FORM_TYPE",
+        '@', "type", "hidden",
+        '(', "value", "urn:xmpp:dataforms:softwareinfo", ')',
+      ')',
+      '(', "field", "",
+        '@', "var", "ip_version",
+        '(', "value", "ipv4", ')',
+        '(', "value", "ipv6", ')',
+      ')',
+      '(', "field", "",
+        '@', "var", "os",
+        '(', "value", "Mac", ')',
+      ')',
+      '(', "field", "",
+        '@', "var", "os_version",
+        '(', "value", "10.5.1", ')',
+      ')',
+      '(', "field", "",
+        '@', "var", "software",
+        '(', "value", "Psi", ')',
+      ')',
+      '(', "field", "",
+        '@', "var", "software_version",
+        '(', "value", "0.11", ')',
+      ')',
+    ')',
+    NULL);
+
+  return check_hash (stanza, "q07IKJEyjvHSyhy//CH0CxmKi8w=");
+}
+
 int
 main (void)
 {
   g_type_init ();
   g_assert (test_simple ());
+  g_assert (test_complex ());
 
   return 0;
 }
-- 
1.5.6.5