You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
128 lines
5.1 KiB
128 lines
5.1 KiB
13 years ago
|
{-# 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
|