test_xmppstream.lua

Wed, 05 Jan 2011 03:03:40 +0000

author
Matthew Wild <mwild1@gmail.com>
date
Wed, 05 Jan 2011 03:03:40 +0000
changeset 3997
ed70d20fc133
parent 3993
cbfa0ea6668b
permissions
-rw-r--r--

mod_saslauth: Use get_text() instead of directly accessing stanza child text nodes

3993
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
1 local xmppstream = require "util.xmppstream";
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
2
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
3 local session = { notopen = true };
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
4
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
5 local callbacks = {
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
6 stream_tag = "stream"; stream_ns = "";
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
7 streamopened = function (session, attr)
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
8 print("Stream opened!");
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
9 session.notopen = nil;
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
10 end;
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
11 handlestanza = function (session, stanza)
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
12 print("Received stanza:", stanza);
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
13 end;
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
14 streamclosed = function (session)
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
15 print("Stream closed!");
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
16 end;
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
17 };
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
18
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
19 local stream = xmppstream.new(session, callbacks);
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
20
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
21 stream:feed[[
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
22 <stream>
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
23 <message foo="bar">
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
24 ]]
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
25 stream:feed[[
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
26 <body>Hi there!</body>
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
27 </message>
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
28 </stream>
cbfa0ea6668b Adding test for xmppstream
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
29 ]]

mercurial