1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
#!perl
use strict;
no warnings;
use Test::More;
use AnyEvent::XMPP::TestClient;
use AnyEvent::XMPP::IM::Message;
use AnyEvent::XMPP::Util qw/bare_jid prep_bare_jid split_jid cmp_jid/;
use AnyEvent::XMPP::Ext::MUC;
my $MUC = $ENV{NET_XMPP2_TEST_MUC};
unless ($MUC) {
plan skip_all => "environment var NET_XMPP2_TEST_MUC not set! Set it to a conference!";
exit;
}
my $ROOM = "test_netxmpp2@".$MUC;
my $cl =
AnyEvent::XMPP::TestClient->new_or_exit (
tests => 1, finish_count => 1
);
my $C = $cl->client;
my $disco = $cl->instance_ext ('AnyEvent::XMPP::Ext::Disco');
my $muc = $cl->instance_ext ('AnyEvent::XMPP::Ext::MUC', disco => $disco);
my $muc_is_conference = 0;
$C->reg_cb (
session_ready => sub {
my ($C, $acc) = @_;
$muc->is_conference ($cl->{acc}->connection, $MUC, sub {
my ($conf, $err) = @_;
if ($conf) { $muc_is_conference = 1 }
$cl->finish
});
}
);
$cl->wait;
ok ($muc_is_conference , "detected a conference");
|
