view release on metacpan or  search on metacpan

t/rfc9555.t  view on Meta::CPAN

  my @os = values %{$_[0]->{onlineServices}};
  is($os[0]{uri}, 'xmpp:alice@example.com', 'impp uri');
  is($os[0]{pref}, 1, 'pref=1');
});

# RFC 9555 Figure 18: LANG
test_vcard('LANG',
  "LANG;TYPE=work;PREF=1:en\nLANG;TYPE=work;PREF=2:fr\nLANG;TYPE=home:fr\n", sub {
  ok($_[0]->{preferredLanguages}, 'has preferredLanguages');
  my @langs = sort { ($a->{pref}//99) <=> ($b->{pref}//99) } values %{$_[0]->{preferredLanguages}};
  is(scalar @langs, 3, 'three language prefs');
  is($langs[0]{language}, 'en', 'first lang');
  is($langs[0]{pref}, 1, 'pref=1');
  ok($langs[0]{contexts}{work}, 'work context');
});

# RFC 9555 Figure 19: LANGUAGE
test_vcard('LANGUAGE', "LANGUAGE:de-AT\n", sub {
  is($_[0]->{language}, 'de-AT', 'language');
});