From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 23 Oct 2003 19:21:00 +0000 (+0000)
Subject: When it says "add", then, like, you have to p4 add it. D'oh!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f6eec1c3b82b0d24fc717c353cff15e25347389f;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/I18N/LangTags/t/02decency.t b/lib/I18N/LangTags/t/02decency.t
new file mode 100644
index 0000000..a56a798
--- /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