Fwd: CPAN Upload: J/JP/JPEACOCK/version-0.68.tar.gz
John Peacock [Sun, 29 Oct 2006 14:47:51 +0000 (09:47 -0500)]
Message-ID: <45450567.7040609@rowman.com>

p4raw-id: //depot/perl@29149

lib/version.pm
lib/version.t

index 9de39e6..084b948 100644 (file)
@@ -6,7 +6,7 @@ use strict;
 
 use vars qw(@ISA $VERSION $CLASS *qv);
 
-$VERSION = 0.6701;
+$VERSION = 0.68;
 
 $CLASS = 'version';
 
index 06afb26..bb5a8f8 100644 (file)
@@ -458,8 +458,10 @@ EOF
        like ($@, qr/^www version 1.000 \(v1.0.0\) required/,
            "Comparing vs. version with decimal only"); 
 
-       skip 'Cannot "use" extended versions with Perl < 5.6.2', 1
-           if $] < 5.006_002;
+       if ( $] < 5.006_002 ) {
+           unlink 'www.pm';
+           skip 'Cannot "use" extended versions with Perl < 5.6.2', 3; 
+       }
        eval "use lib '.'; use www 0.0.8;";
        like ($@, qr/^www version 0.000008 \(v0.0.8\) required/,
            "Make sure very small versions don't freak"); 
@@ -486,6 +488,198 @@ EOF
     ok(defined(&{"main\::qv"}), "make sure we exported qv() properly");
     isa_ok( qv(1.2), "vvv");
     unlink 'vvv.pm';
+
+SKIP: {
+       # test locale handling
+       my $ver = 1.23;  # has to be floating point number
+       my $loc;
+       while (<DATA>) {
+           chomp;
+           $loc = POSIX::setlocale( &POSIX::LC_ALL, $_);
+           last if POSIX::localeconv()->{decimal_point} eq ',';
+       }
+       skip 'Cannot test locale handling without a comma locale', 4
+           unless ( $loc and ($ver eq '1,23') );
+
+       diag ("Testing locale handling with $loc") if $Verbose;
+
+       my $v = $CLASS->new($ver);
+       unlike($warning,qr/Version string '1,23' contains invalid data/,
+           "Process locale-dependent floating point");
+       is ($v, "1.230", "Locale doesn't apply to version objects");
+       ok ($v == $ver, "Comparison to locale floating point");
+    }
 }
 
 1;
+
+__DATA__
+af_ZA
+af_ZA.utf8
+an_ES
+an_ES.utf8
+az_AZ.utf8
+be_BY
+be_BY.utf8
+bg_BG
+bg_BG.utf8
+br_FR
+br_FR@euro
+br_FR.utf8
+bs_BA
+bs_BA.utf8
+ca_ES
+ca_ES@euro
+ca_ES.utf8
+cs_CZ
+cs_CZ.utf8
+da_DK
+da_DK.utf8
+de_AT
+de_AT@euro
+de_AT.utf8
+de_BE
+de_BE@euro
+de_BE.utf8
+de_DE
+de_DE@euro
+de_DE.utf8
+de_LU
+de_LU@euro
+de_LU.utf8
+el_GR
+el_GR.utf8
+en_DK
+en_DK.utf8
+es_AR
+es_AR.utf8
+es_BO
+es_BO.utf8
+es_CL
+es_CL.utf8
+es_CO
+es_CO.utf8
+es_EC
+es_EC.utf8
+es_ES
+es_ES@euro
+es_ES.utf8
+es_PY
+es_PY.utf8
+es_UY
+es_UY.utf8
+es_VE
+es_VE.utf8
+et_EE
+et_EE.iso885915
+et_EE.utf8
+eu_ES
+eu_ES@euro
+eu_ES.utf8
+fi_FI
+fi_FI@euro
+fi_FI.utf8
+fo_FO
+fo_FO.utf8
+fr_BE
+fr_BE@euro
+fr_BE.utf8
+fr_CA
+fr_CA.utf8
+fr_CH
+fr_CH.utf8
+fr_FR
+fr_FR@euro
+fr_FR.utf8
+fr_LU
+fr_LU@euro
+fr_LU.utf8
+gl_ES
+gl_ES@euro
+gl_ES.utf8
+hr_HR
+hr_HR.utf8
+hu_HU
+hu_HU.utf8
+id_ID
+id_ID.utf8
+is_IS
+is_IS.utf8
+it_CH
+it_CH.utf8
+it_IT
+it_IT@euro
+it_IT.utf8
+ka_GE
+ka_GE.utf8
+kk_KZ
+kk_KZ.utf8
+kl_GL
+kl_GL.utf8
+lt_LT
+lt_LT.utf8
+lv_LV
+lv_LV.utf8
+mk_MK
+mk_MK.utf8
+mn_MN
+mn_MN.utf8
+nb_NO
+nb_NO.utf8
+nl_BE
+nl_BE@euro
+nl_BE.utf8
+nl_NL
+nl_NL@euro
+nl_NL.utf8
+nn_NO
+nn_NO.utf8
+no_NO
+no_NO.utf8
+oc_FR
+oc_FR.utf8
+pl_PL
+pl_PL.utf8
+pt_BR
+pt_BR.utf8
+pt_PT
+pt_PT@euro
+pt_PT.utf8
+ro_RO
+ro_RO.utf8
+ru_RU
+ru_RU.koi8r
+ru_RU.utf8
+ru_UA
+ru_UA.utf8
+se_NO
+se_NO.utf8
+sh_YU
+sh_YU.utf8
+sk_SK
+sk_SK.utf8
+sl_SI
+sl_SI.utf8
+sq_AL
+sq_AL.utf8
+sr_CS
+sr_CS.utf8
+sv_FI
+sv_FI@euro
+sv_FI.utf8
+sv_SE
+sv_SE.iso885915
+sv_SE.utf8
+tg_TJ
+tg_TJ.utf8
+tr_TR
+tr_TR.utf8
+tt_RU.utf8
+uk_UA
+uk_UA.utf8
+vi_VN
+vi_VN.tcvn
+wa_BE
+wa_BE@euro
+wa_BE.utf8
+