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
46
47
48
49
50
|
#!perl
use strict;
no warnings;
use Test::More;
use AnyEvent::XMPP::TestClient;
use AnyEvent::XMPP::IM::Message;
use AnyEvent::XMPP::Util qw/bare_jid/;
my $ANAL = $ENV{NET_XMPP2_TEST_ANAL};
my $cl =
AnyEvent::XMPP::TestClient->new_or_exit (
tests => 1,
connection_args => {
disable_sasl => 1,
stream_version_override => '0.9',
resource => "AnyEvent::XMPP::TestClient",
($ANAL ? (anal_iq_auth => 1) : ())
}
);
my $C = $cl->client;
my $skip = 0;
my $got_session = 0;
$C->reg_cb (
stream_pre_authentication => sub {
my ($C, $acc) = @_;
my $feat = $acc->connection->features;
if ($ANAL) {
if (!$feat->find_all ([qw/iqauth auth/])) {
$skip = 1;
$cl->finish;
}
}
()
},
session_ready => sub {
$got_session = 1;
$cl->finish
}
);
$cl->wait;
SKIP: {
skip "no IQ auth method found", $cl->tests if $skip;
ok ($got_session, "iq authentication");
}
|
