Move I18N::LangTags from ext/ to dist/
[perl.git] / dist / I18N-LangTags / t / 07_listy.t
1
2 require 5;
3  # Time-stamp: "2003-10-10 17:37:34 ADT"
4 use strict;
5 use Test;
6 BEGIN { plan tests => 17 };
7 BEGIN { ok 1 }
8 use I18N::LangTags::List;
9
10 print "# Perl v$], I18N::LangTags::List v$I18N::LangTags::List::VERSION\n";
11
12 ok  I18N::LangTags::List::name('fr'), 'French';
13 ok  I18N::LangTags::List::name('fr-fr');
14 ok !I18N::LangTags::List::name('El Zorcho');
15 ok !I18N::LangTags::List::name();
16
17
18 ok !I18N::LangTags::List::is_decent();
19 ok  I18N::LangTags::List::is_decent('fr');
20 ok  I18N::LangTags::List::is_decent('fr-blorch');
21 ok !I18N::LangTags::List::is_decent('El Zorcho');
22 ok !I18N::LangTags::List::is_decent('sgn');
23 ok  I18N::LangTags::List::is_decent('sgn-us');
24 ok !I18N::LangTags::List::is_decent('i');
25 ok  I18N::LangTags::List::is_decent('i-mingo');
26 ok  I18N::LangTags::List::is_decent('i-mingo-tom');
27 ok !I18N::LangTags::List::is_decent('cel');
28 ok  I18N::LangTags::List::is_decent('cel-gaulish');
29
30 ok 1; # one for the road