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 }]);
