r6742 - in /branches/upstream/libparams-classify-perl/current: Changes META.yml lib/Params/Classify.pm t/purity.t

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Aug 17 07:21:00 2007
New Revision: 6742

URL: http://svn.debian.org/wsvn/?sc=1&rev=6742
Log:
[svn-upgrade] Integrating new upstream version, libparams-classify-perl (0.004)

Modified:
    branches/upstream/libparams-classify-perl/current/Changes
    branches/upstream/libparams-classify-perl/current/META.yml
    branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm
    branches/upstream/libparams-classify-perl/current/t/purity.t

Modified: branches/upstream/libparams-classify-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-classify-perl/current/Changes?rev=6742&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/Changes (original)
+++ branches/upstream/libparams-classify-perl/current/Changes Fri Aug 17 07:21:00 2007
@@ -1,3 +1,14 @@
+version 0.004; 2007-08-16
+
+  * in t/purity.t, fix a skip count for the case where floating point
+    zero is unsigned
+
+version 0.003; 2007-08-15
+
+  * in t/purity.t, modify purity test on dualvar(+0.0, "0") to operate
+    appropriately on older Perls where "0" numifies to a floating
+    point zero, and add a test for dualvar(0, "0")
+
 version 0.002; 2007-01-25
 
   * add is_pure_string() and is_pure_number() functions that determine

Modified: branches/upstream/libparams-classify-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-classify-perl/current/META.yml?rev=6742&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/META.yml (original)
+++ branches/upstream/libparams-classify-perl/current/META.yml Fri Aug 17 07:21:00 2007
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Params-Classify
-version:      0.002
+version:      0.004
 version_from: lib/Params/Classify.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm?rev=6742&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm (original)
+++ branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm Fri Aug 17 07:21:00 2007
@@ -56,7 +56,7 @@
 use Exporter;
 use Scalar::Util 1.01 qw(blessed reftype);
 
-our $VERSION = "0.002";
+our $VERSION = "0.004";
 
 our @ISA = qw(Exporter);
 

Modified: branches/upstream/libparams-classify-perl/current/t/purity.t
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-classify-perl/current/t/purity.t?rev=6742&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/t/purity.t (original)
+++ branches/upstream/libparams-classify-perl/current/t/purity.t Fri Aug 17 07:21:00 2007
@@ -1,4 +1,4 @@
-use Test::More tests => 44;
+use Test::More tests => 45;
 
 BEGIN { use_ok "Params::Classify", qw(is_pure_string is_pure_number); }
 
@@ -34,7 +34,7 @@
 }
 
 SKIP: {
-	skip "floating point zero is unsigned", 5
+	skip "floating point zero is unsigned", 6
 		unless sprintf("%+.f", -0.0) eq "-0";
 	ok is_pure_number(0);
 	ok is_pure_number(+0.0);
@@ -42,7 +42,10 @@
 	SKIP: {
 		eval { require Scalar::Util };
 		skip "dualvar() not available", 2 if $@ ne "";
-		ok !is_pure_string(Scalar::Util::dualvar(+0.0, "0"));
+		is !!(sprintf("%+.f", -"0") eq "-0"),
+			!is_pure_string(Scalar::Util::dualvar(0, "0"));
+		is !!(sprintf("%+.f", -"0") eq "-0"),
+			!!is_pure_string(Scalar::Util::dualvar(+0.0, "0"));
 		ok !is_pure_string(Scalar::Util::dualvar(-0.0, "0"));
 	}
 }