r3739 - in /packages/libformvalidator-simple-perl/trunk: Changes META.yml debian/changelog lib/FormValidator/Simple.pm lib/FormValidator/Simple/Validator.pm t/20_numeric_cmp.t

[eloy at users.alioth.debian.org]

Author: eloy
Date: Thu Sep 14 13:17:42 2006
New Revision: 3739

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3739
Log:
new upstream version

Modified:
    packages/libformvalidator-simple-perl/trunk/Changes
    packages/libformvalidator-simple-perl/trunk/META.yml
    packages/libformvalidator-simple-perl/trunk/debian/changelog
    packages/libformvalidator-simple-perl/trunk/lib/FormValidator/Simple.pm
    packages/libformvalidator-simple-perl/trunk/lib/FormValidator/Simple/Validator.pm
    packages/libformvalidator-simple-perl/trunk/t/20_numeric_cmp.t

Modified: packages/libformvalidator-simple-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/trunk/Changes?rev=3739&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/trunk/Changes (original)
+++ packages/libformvalidator-simple-perl/trunk/Changes Thu Sep 14 13:17:42 2006
@@ -1,4 +1,9 @@
 Revision history for Perl extension FormValidator::Simple.
+
+0.18  Tue Sep 12 18:20:00 2006
+    - bugfix:
+        numeric comperison, GREATER_THAN, LESS_THAN, and EQUAL_TO doesn't work
+        as expected when 0 is passed as arguments. Thanks to Ryo Okamoto.
 
 0.17  Tue Sep 05 15:22:00 2006
     - took CLACO's patch that resolves RT issues: 21224, 20658, 19667.

Modified: packages/libformvalidator-simple-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/trunk/META.yml?rev=3739&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/trunk/META.yml (original)
+++ packages/libformvalidator-simple-perl/trunk/META.yml Thu Sep 14 13:17:42 2006
@@ -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:         FormValidator-Simple
-version:      0.17
+version:      0.18
 version_from: lib/FormValidator/Simple.pm
 installdirs:  site
 requires:

Modified: packages/libformvalidator-simple-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/trunk/debian/changelog?rev=3739&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/trunk/debian/changelog (original)
+++ packages/libformvalidator-simple-perl/trunk/debian/changelog Thu Sep 14 13:17:42 2006
@@ -1,3 +1,9 @@
+libformvalidator-simple-perl (0.18-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org>  Thu, 14 Sep 2006 15:16:37 +0200
+
 libformvalidator-simple-perl (0.17-1) unstable; urgency=low
 
   * New upstream release.
@@ -46,4 +52,3 @@
   * Initial Release.
 
  -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org>  Wed, 23 Nov 2005 10:08:58 +0100
-

Modified: packages/libformvalidator-simple-perl/trunk/lib/FormValidator/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/trunk/lib/FormValidator/Simple.pm?rev=3739&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/trunk/lib/FormValidator/Simple.pm (original)
+++ packages/libformvalidator-simple-perl/trunk/lib/FormValidator/Simple.pm Thu Sep 14 13:17:42 2006
@@ -12,7 +12,7 @@
 use FormValidator::Simple::Constants;
 use FormValidator::Simple::Messages;
 
-our $VERSION = '0.17';
+our $VERSION = '0.18';
 
 __PACKAGE__->mk_classaccessors(qw/data prof results/);
 __PACKAGE__->mk_classaccessor( messages => FormValidator::Simple::Messages->new );

Modified: packages/libformvalidator-simple-perl/trunk/lib/FormValidator/Simple/Validator.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/trunk/lib/FormValidator/Simple/Validator.pm?rev=3739&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/trunk/lib/FormValidator/Simple/Validator.pm (original)
+++ packages/libformvalidator-simple-perl/trunk/lib/FormValidator/Simple/Validator.pm Thu Sep 14 13:17:42 2006
@@ -230,7 +230,7 @@
     my ($self, $params, $args) = @_;
     my $data = $params->[0];
     my $target = $args->[0];
-    unless ( $target && $target =~ /^\d+$/ ) {
+    unless ( defined $target && $target =~ /^\d+$/ ) {
         FormValidator::Simple::Exception->throw(
         qq/Validation GREATER_THAN needs a numeric argument./
         );
@@ -243,7 +243,7 @@
     my ($self, $params, $args) = @_;
     my $data = $params->[0];
     my $target = $args->[0];
-    unless ( $target && $target =~ /^\d+$/ ) {
+    unless ( defined $target && $target =~ /^\d+$/ ) {
         FormValidator::Simple::Exception->throw(
         qq/Validation LESS_THAN needs a numeric argument./
         );
@@ -256,7 +256,7 @@
     my ($self, $params, $args) = @_;
     my $data = $params->[0];
     my $target = $args->[0];
-    unless ( $target && $target =~ /^\d+$/ ) {
+    unless ( defined $target && $target =~ /^\d+$/ ) {
         FormValidator::Simple::Exception->throw(
         qq/Validation EQUAL_TO needs a numeric argument./
         );

Modified: packages/libformvalidator-simple-perl/trunk/t/20_numeric_cmp.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/trunk/t/20_numeric_cmp.t?rev=3739&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/trunk/t/20_numeric_cmp.t (original)
+++ packages/libformvalidator-simple-perl/trunk/t/20_numeric_cmp.t Thu Sep 14 13:17:42 2006
@@ -1,5 +1,5 @@
 use strict;
-use Test::More tests => 9;
+use Test::More tests => 12;
 use CGI;
 
 BEGIN{ use_ok("FormValidator::Simple") }
@@ -35,3 +35,13 @@
 ok($r2->invalid('age3'));
 ok($r2->invalid('age4'));
 
+my $r3 = FormValidator::Simple->check( $q => [
+  age1 => [ 'INT', [qw/GREATER_THAN 0/] ],
+  age2 => [ 'INT', [qw/LESS_THAN 0/]    ],
+  age3 => [ 'INT', [qw/EQUAL_TO 0/]     ],
+] );
+
+ok(!$r3->invalid('age1'));
+ok($r3->invalid('age2'));
+ok($r3->invalid('age3'));
+