diff options
| author | Abigail <abigail@abigail.be> | 2012-03-13 19:57:38 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2012-03-13 19:57:38 +0100 |
| commit | cba8842c354197460eeef36ed34e9e904fc9836b (patch) | |
| tree | 00bde22333e04e8f756dcda6ce76985b5f1b88d3 /cpan/Unicode-Collate/t/loc_es.t | |
| parent | 6f865444a9d214a69e0a53f941d29037e5aca6b2 (diff) | |
| download | perl-cba8842c354197460eeef36ed34e9e904fc9836b.tar.gz | |
Upgrade Unicode-Collate to 0.89
Diffstat (limited to 'cpan/Unicode-Collate/t/loc_es.t')
| -rw-r--r-- | cpan/Unicode-Collate/t/loc_es.t | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/cpan/Unicode-Collate/t/loc_es.t b/cpan/Unicode-Collate/t/loc_es.t index 50fb554c28..78bd39d905 100644 --- a/cpan/Unicode-Collate/t/loc_es.t +++ b/cpan/Unicode-Collate/t/loc_es.t @@ -11,11 +11,19 @@ BEGIN { } } -use Test; -BEGIN { plan tests => 29 }; - use strict; use warnings; +BEGIN { $| = 1; print "1..29\n"; } +my $count = 0; +sub ok ($;$) { + my $p = my $r = shift; + if (@_) { + my $x = shift; + $p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x; + } + print $p ? "ok" : "not ok", ' ', ++$count, "\n"; +} + use Unicode::Collate::Locale; ok(1); @@ -26,7 +34,7 @@ my $objEs = Unicode::Collate::Locale-> new(locale => 'ES', normalization => undef); ok($objEs->getlocale, 'es'); -ok($objEs->locale_version, 0.87); +ok($objEs->locale_version, 0.88); $objEs->change(level => 1); |