|
809
|
1 use strict;
|
|
|
2 use warnings;
|
|
|
3 use lib 't';
|
|
|
4
|
|
|
5 use AnyEvent::XMPP::Util qw(split_jid);
|
|
|
6 use TestConnection;
|
|
|
7 use Test::More;
|
|
|
8
|
|
|
9 sub test_roster {
|
|
|
10 my ( $username, $expected_contacts ) = @_;
|
|
|
11
|
|
|
12 local $Test::Builder::Level = $Test::Builder::Level + 1;
|
|
|
13 my @contacts;
|
|
|
14
|
|
|
15 my $conn = TestConnection->new($username);
|
|
|
16
|
|
|
17 $conn->reg_cb(roster_update => sub {
|
|
|
18 my ( undef, $roster ) = @_;
|
|
|
19
|
|
|
20 @contacts = sort { $a->{'username'} cmp $b->{'username'} } map {
|
|
|
21 +{
|
|
|
22 username => (split_jid($_->jid))[0],
|
|
|
23 name => $_->name,
|
|
|
24 groups => [ sort $_->groups ],
|
|
|
25 subscription => $_->subscription,
|
|
|
26 }
|
|
|
27 } $roster->get_contacts;
|
|
|
28 $conn->cond->send;
|
|
|
29 });
|
|
|
30
|
|
|
31 my $error = $conn->cond->recv;
|
|
|
32
|
|
|
33 if($error) {
|
|
|
34 fail($error);
|
|
|
35 return;
|
|
|
36 }
|
|
|
37 @$expected_contacts = sort { $a->{'username'} cmp $b->{'username'} }
|
|
|
38 @$expected_contacts;
|
|
|
39 foreach my $contact (@$expected_contacts) {
|
|
|
40 $contact->{'subscription'} = 'both';
|
|
|
41 @{ $contact->{'groups'} } = sort @{ $contact->{'groups'} };
|
|
|
42 }
|
|
|
43 is_deeply(\@contacts, $expected_contacts);
|
|
|
44 }
|
|
|
45
|
|
|
46 plan tests => 5;
|
|
|
47
|
|
|
48 test_roster(one => [{
|
|
|
49 username => 'two',
|
|
|
50 name => 'Jane Testerson',
|
|
|
51 groups => ['everyone', 'admin'],
|
|
|
52 }, {
|
|
|
53 username => 'three',
|
|
|
54 name => 'Jerry Testerson',
|
|
|
55 groups => ['everyone'],
|
|
|
56 }, {
|
|
|
57 username => 'four',
|
|
|
58 name => 'Jack Testerson',
|
|
|
59 groups => ['everyone'],
|
|
|
60 }, {
|
|
|
61 username => 'five',
|
|
|
62 name => 'Jimmy Testerson',
|
|
|
63 groups => ['everyone'],
|
|
|
64 }]);
|
|
|
65
|
|
|
66 test_roster(two => [{
|
|
|
67 username => 'one',
|
|
|
68 name => 'John Testerson',
|
|
|
69 groups => ['everyone', 'admin'],
|
|
|
70 }, {
|
|
|
71 username => 'three',
|
|
|
72 name => 'Jerry Testerson',
|
|
|
73 groups => ['everyone'],
|
|
|
74 }, {
|
|
|
75 username => 'four',
|
|
|
76 name => 'Jack Testerson',
|
|
|
77 groups => ['everyone'],
|
|
|
78 }, {
|
|
|
79 username => 'five',
|
|
|
80 name => 'Jimmy Testerson',
|
|
|
81 groups => ['everyone'],
|
|
|
82 }]);
|
|
|
83
|
|
|
84 test_roster(three => [{
|
|
|
85 username => 'one',
|
|
|
86 name => 'John Testerson',
|
|
|
87 groups => ['everyone'],
|
|
|
88 }, {
|
|
|
89 username => 'two',
|
|
|
90 name => 'Jane Testerson',
|
|
|
91 groups => ['everyone'],
|
|
|
92 }, {
|
|
|
93 username => 'four',
|
|
|
94 name => 'Jack Testerson',
|
|
|
95 groups => ['everyone'],
|
|
|
96 }, {
|
|
|
97 username => 'five',
|
|
|
98 name => 'Jimmy Testerson',
|
|
|
99 groups => ['everyone'],
|
|
|
100 }]);
|
|
|
101
|
|
|
102 test_roster(four => [{
|
|
|
103 username => 'one',
|
|
|
104 name => 'John Testerson',
|
|
|
105 groups => ['everyone'],
|
|
|
106 }, {
|
|
|
107 username => 'two',
|
|
|
108 name => 'Jane Testerson',
|
|
|
109 groups => ['everyone'],
|
|
|
110 }, {
|
|
|
111 username => 'three',
|
|
|
112 name => 'Jerry Testerson',
|
|
|
113 groups => ['everyone'],
|
|
|
114 }, {
|
|
|
115 username => 'five',
|
|
|
116 name => 'Jimmy Testerson',
|
|
|
117 groups => ['everyone'],
|
|
|
118 }]);
|
|
|
119
|
|
|
120 test_roster(five => [{
|
|
|
121 username => 'one',
|
|
|
122 name => 'John Testerson',
|
|
|
123 groups => ['everyone'],
|
|
|
124 }, {
|
|
|
125 username => 'two',
|
|
|
126 name => 'Jane Testerson',
|
|
|
127 groups => ['everyone'],
|
|
|
128 }, {
|
|
|
129 username => 'three',
|
|
|
130 name => 'Jerry Testerson',
|
|
|
131 groups => ['everyone'],
|
|
|
132 }, {
|
|
|
133 username => 'four',
|
|
|
134 name => 'Jack Testerson',
|
|
|
135 groups => ['everyone'],
|
|
|
136 }]);
|
