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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
#!perl
use strict;
no warnings;
use Test::More;
use AnyEvent::XMPP;
use AnyEvent::XMPP::TestClient;
use AnyEvent::XMPP::IM::Message;
use AnyEvent::XMPP::Util qw/bare_jid/;
my $cl =
AnyEvent::XMPP::TestClient->new_or_exit (tests => 4, two_accounts => 1, finish_count => 2);
my $C = $cl->client;
my $vers = $cl->instance_ext ('AnyEvent::XMPP::Ext::Version');
$vers->set_os ('GNU/Virtual 0.23 x86_128');
my $recv_error;
my $recv_error_2;
my $recv_vers_error = '';
my $recv_vers;
my $dest;
$C->reg_cb (
two_accounts_ready => sub {
my ($C) = @_;
my $con = $cl->{acc}->connection;
$dest = $cl->{jid2};
$vers->request_version ($con, $cl->{jid2}, sub {
my ($version, $error) = @_;
if ($error) {
$recv_error = $error;
} else {
$recv_vers =
sprintf "(%s) %s/%s/%s",
$version->{jid}, $version->{name}, $version->{version}, $version->{os};
}
$cl->finish;
});
$con->send_iq ('get', {
defns => 'broken:iq:request',
node => { ns => 'broken:iq:request', name => 'query' }
}, sub {
my ($n, $e) = @_;
$recv_error_2 = $e;
$cl->finish;
}, to => $cl->{jid2});
}
);
$cl->wait;
ok ((not defined $recv_error), 'no service unavailable error on first request');
is ($recv_error_2->condition (), 'service-unavailable', 'service unavailable error for second request');
is ($recv_vers_error , '' , 'no software version error');
is ($recv_vers,
"($dest) AnyEvent::XMPP/$AnyEvent::XMPP::VERSION/GNU/Virtual 0.23 x86_128",
'software version reply');
|
