test_xmppstream.lua

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

author
daurnimator <quae@daurnimator.com>
date
Wed, 05 Jan 2011 03:05:13 +0000
changeset 3998
13a5a8df7c34
parent 3993
cbfa0ea6668b
permissions
-rw-r--r--

stanza_router: Replace xmlns == nil checks with 'not xmlns'

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