Philipp Balzarek
13 years ago
1 changed files with 128 additions and 0 deletions
@ -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' 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 |
||||||
Loading…
Reference in new issue