Репозитории ALT
Группа :: Разработка/Perl
Пакет: perl-Net-XMPP
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: perl-Net-XMPP-1.0-alt-test-roster.patch
Скачать
Скачать
--- Net-XMPP-1.0/t/roster.t~ 2004-08-12 13:47:48 +0000
+++ Net-XMPP-1.0/t/roster.t 2004-12-15 02:19:05 +0000
@@ -77,7 +77,7 @@
is($jids[0]->GetJID(), $jid1, "nogroup - jid1 matched");
my %query = $Roster->query($jid1);
-is_deeply( \%query, { }, "jid1 - query");
+is_deeply( \%query, { groups => [] }, "jid1 - query");
%query = $Roster->query($jid2);
is_deeply( \%query, { ask=>"no",groups=>[$group1,$group2],name=>"Test",subscription=>"both"}, "jid2 - query");