|
809
|
1 use strict;
|
|
|
2 use warnings;
|
|
|
3 use lib 't';
|
|
|
4
|
|
|
5 use TestConnection;
|
|
|
6 use AnyEvent::XMPP::Ext::VCard;
|
|
|
7 use Test::More;
|
|
|
8
|
|
|
9 sub test_vcard {
|
|
|
10 my ( $username, $expected_fields ) = @_;
|
|
|
11
|
|
|
12 $expected_fields->{'JABBERID'} = $username . '@' . $TestConnection::HOST;
|
|
|
13 $expected_fields->{'VERSION'} = '2.0';
|
|
|
14
|
|
|
15 my $conn = TestConnection->new($username);
|
|
|
16 my $vcard = AnyEvent::XMPP::Ext::VCard->new;
|
|
|
17
|
|
|
18 local $Test::Builder::Level = $Test::Builder::Level + 1;
|
|
|
19
|
|
|
20 $conn->reg_cb(stream_ready => sub {
|
|
|
21 $vcard->hook_on($conn);
|
|
|
22 });
|
|
|
23
|
|
|
24 $conn->reg_cb(session_ready => sub {
|
|
|
25 $vcard->retrieve($conn, undef, sub {
|
|
|
26 my ( $jid, $vcard, $error ) = @_;
|
|
|
27
|
|
|
28 if(eval { $vcard->isa('AnyEvent::XMPP::Error') }) {
|
|
|
29 $error = $vcard;
|
|
|
30 }
|
|
|
31
|
|
|
32 if($error) {
|
|
|
33 $conn->cond->send($error->string);
|
|
|
34 return;
|
|
|
35 }
|
|
|
36
|
|
|
37 foreach my $key (keys %$vcard) {
|
|
|
38 my $value = $vcard->{$key};
|
|
|
39
|
|
|
40 $value = $value->[0];
|
|
|
41
|
|
|
42 if($value eq '') {
|
|
|
43 delete $vcard->{$key};
|
|
|
44 } else {
|
|
|
45 $vcard->{$key} = $value;
|
|
|
46 }
|
|
|
47 }
|
|
|
48
|
|
|
49 is_deeply $expected_fields, $vcard or diag(explain($vcard));
|
|
|
50 $conn->cond->send;
|
|
|
51 });
|
|
|
52 });
|
|
|
53
|
|
|
54 my $error = $conn->cond->recv;
|
|
|
55
|
|
|
56 if($error) {
|
|
|
57 fail($error);
|
|
|
58 return;
|
|
|
59 }
|
|
|
60 }
|
|
|
61
|
|
|
62 plan tests => 5;
|
|
|
63
|
|
|
64 test_vcard(one => {
|
|
|
65 FN => 'John Testerson',
|
|
|
66 NICKNAME => 'one',
|
|
|
67 });
|
|
|
68
|
|
|
69 test_vcard(two => {
|
|
|
70 FN => 'Jane Testerson',
|
|
|
71 NICKNAME => 'two',
|
|
|
72 });
|
|
|
73
|
|
|
74 test_vcard(three => {
|
|
|
75 FN => 'Jerry Testerson',
|
|
|
76 NICKNAME => 'three',
|
|
|
77 });
|
|
|
78
|
|
|
79 test_vcard(four => {
|
|
|
80 FN => 'Jack Testerson',
|
|
|
81 NICKNAME => 'four',
|
|
|
82 });
|
|
|
83
|
|
|
84 test_vcard(five => {
|
|
|
85 FN => 'Jimmy Testerson',
|
|
|
86 NICKNAME => 'five',
|
|
|
87 });
|
