add data forms test cases

13 years ago · 91fa188484
1 changed files with 128 additions and 0 deletions
--- a/tests/DataForms.hs
+++ b/tests/DataForms.hs
@ -0,0 +1,128 @@
				@@ -0,0 +1,128 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Tests.DataForms where
+
+import Network.Xmpp.Xep.DataForms
+
+import qualified Data.Text.Lazy as TL
+import qualified Text.XML.Stream.Elements as Elements
+import qualified Data.XML.Types as XML
+import Data.XML.Pickle
+
+test1 = TL.concat $
+          ["<x xmlns='jabber:x:data' type='form'>"
+          ,"<title>Bot Configuration</title>"
+          ,"<instructions>Fill out this form to configure your new bot!</instructions>"
+          ,"<field type='hidden'"
+          ,"var='FORM_TYPE'>"
+          ,"<value>jabber:bot</value>"
+          ,"</field>"
+          ,"<field type='fixed'><value>Section 1: Bot Info</value></field>"
+          ,"<field type='text-single'"
+          ,"label='The name of your bot'"
+          ,"var='botname'/>"
+          ,"<field type='text-multi'"
+          ,"label='Helpful description of your bot'"
+          ,"var='description'/>"
+          ,"<field type='boolean'"
+          ,"label='Public bot?'"
+          ,"var='public'>"
+          ,"<required/>"
+          ,"</field>"
+          ,"<field type='text-private'"
+          ,"label='Password for special access'"
+          ,"var='password'/>"
+          ,"<field type='fixed'><value>Section 2: Features</value></field>"
+          ,"<field type='list-multi'"
+          ,"label='What features will the bot support?'"
+          ,"var='features'>"
+          ,"<option label='Contests'><value>contests</value></option>"
+          ,"<option label='News'><value>news</value></option>"
+          ,"<option label='Polls'><value>polls</value></option>"
+          ,"<option label='Reminders'><value>reminders</value></option>"
+          ,"<option label='Search'><value>search</value></option>"
+          ,"<value>news</value>"
+          ,"<value>search</value>"
+          ,"</field>"
+          ,"<field type='fixed'><value>Section 3: Subscriber List</value></field>"
+          ,"<field type='list-single'"
+          ,"label='Maximum number of subscribers'"
+          ,"var='maxsubs'>"
+          ,"<value>20</value>"
+          ,"<option label='10'><value>10</value></option>"
+          ,"<option label='20'><value>20</value></option>"
+          ,"<option label='30'><value>30</value></option>"
+          ,"<option label='50'><value>50</value></option>"
+          ,"<option label='100'><value>100</value></option>"
+          ,"<option label='None'><value>none</value></option>"
+          ,"</field>"
+          ,"<field type='fixed'><value>Section 4: Invitations</value></field>"
+          ,"<field type='jid-multi'"
+          ,"label='People to invite'"
+          ,"var='invitelist'>"
+          ,"<desc>Tell all your friends about your new bot!</desc>"
+          ,"</field>"
+          ,"</x>"]
+
+test2 = TL.concat [
+       "   <x xmlns='jabber:x:data' type='submit'>"
+      ,"      <field type='hidden' var='FORM_TYPE'>"
+      ,"        <value>jabber:bot</value>"
+      ,"      </field>"
+      ,"      <field type='text-single' var='botname'>"
+      ,"        <value>The Jabber Google Bot</value>"
+      ,"      </field>"
+      ,"      <field type='text-multi' var='description'>"
+      ,"        <value>This bot enables you to send requests to</value>"
+      ,"        <value>Google and receive the search results right</value>"
+      ,"        <value>in your Jabber client. It&apos; really cool!</value>"
+      ,"        <value>It even supports Google News!</value>"
+      ,"      </field>"
+      ,"      <field type='boolean' var='public'>"
+      ,"        <value>0</value>"
+      ,"      </field>"
+      ,"      <field type='text-private' var='password'>"
+      ,"        <value>v3r0na</value>"
+      ,"      </field>"
+      ,"      <field type='list-multi' var='features'>"
+      ,"        <value>news</value>"
+      ,"        <value>search</value>"
+      ,"      </field>"
+      ,"      <field type='list-single' var='maxsubs'>"
+      ,"        <value>50</value>"
+      ,"      </field>"
+      ,"      <field type='jid-multi' var='invitelist'>"
+      ,"        <value>juliet@capulet.com</value>"
+      ,"        <value>benvolio@montague.net</value>"
+      ,"      </field>"
+      ,"    </x>"]
+
+
+test3 = TL.concat [
+      " <x xmlns='jabber:x:data' type='result'>"
+    , "      <field type='hidden' var='FORM_TYPE'>"
+    , "        <value>jabber:bot</value>"
+    , "      </field>"
+    , "      <field type='text-single' var='botname'>"
+    , "        <value>The Jabber Google Bot</value>"
+    , "      </field>"
+    , "      <field type='boolean' var='public'>"
+    , "        <value>0</value>"
+    , "      </field>"
+    , "      <field type='text-private' var='password'>"
+    , "        <value>v3r0na</value>"
+    , "      </field>"
+    , "      <field type='list-multi' var='features'>"
+    , "        <value>news</value>"
+    , "        <value>search</value>"
+    , "      </field>"
+    , "      <field type='list-single' var='maxsubs'>"
+    , "        <value>50</value>"
+    , "      </field>"
+    , "      <field type='jid-multi' var='invitelist'>"
+    , "        <value>juliet@capulet.com</value>"
+    , "        <value>benvolio@montague.net</value>"
+    , "      </field>"
+    , "    </x>"]
+
+parseForm = unpickleTree (xpRoot xpForm) . XML.NodeElement . Elements.parseElement