diff options
author | Nicholas Clark <nick@ccl4.org> | 2003-10-23 19:21:00 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2003-10-23 19:21:00 +0000 |
commit | 9525433abd83b2861dca062785046887d9005acf (patch) | |
tree | 75a01c511895dbcad97d547bdcd2d2b377663d90 | |
parent | ff893b5b74923e0a02bed52330ab95ba0d9749f4 (diff) | |
download | perl-9525433abd83b2861dca062785046887d9005acf.tar.gz |
When it says "add", then, like, you have to p4 add it. D'oh!
(missed the new file in "Update I18N::LangTags from 0.28 to 0.29")
p4raw-id: //depot/perl@21528
-rw-r--r-- | lib/I18N/LangTags/t/02decency.t | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/lib/I18N/LangTags/t/02decency.t b/lib/I18N/LangTags/t/02decency.t new file mode 100644 index 0000000000..a56a798a33 --- /dev/null +++ b/lib/I18N/LangTags/t/02decency.t @@ -0,0 +1,30 @@ + +require 5; + # Time-stamp: "2003-10-10 17:37:34 ADT" +use strict; +use Test; +BEGIN { plan tests => 17 }; +BEGIN { ok 1 } +use I18N::LangTags::List; + +print "# Perl v$], I18N::LangTags::List v$I18N::LangTags::List::VERSION\n"; + +ok I18N::LangTags::List::name('fr'), 'French'; +ok I18N::LangTags::List::name('fr-fr'); +ok !I18N::LangTags::List::name('El Zorcho'); +ok !I18N::LangTags::List::name(); + + +ok !I18N::LangTags::List::is_decent(); +ok I18N::LangTags::List::is_decent('fr'); +ok I18N::LangTags::List::is_decent('fr-blorch'); +ok !I18N::LangTags::List::is_decent('El Zorcho'); +ok !I18N::LangTags::List::is_decent('sgn'); +ok I18N::LangTags::List::is_decent('sgn-us'); +ok !I18N::LangTags::List::is_decent('i'); +ok I18N::LangTags::List::is_decent('i-mingo'); +ok I18N::LangTags::List::is_decent('i-mingo-tom'); +ok !I18N::LangTags::List::is_decent('cel'); +ok I18N::LangTags::List::is_decent('cel-gaulish'); + +ok 1; # one for the road |