view release on metacpan or  search on metacpan

t/Validate.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 113;
use Data::Dumper;

BEGIN {
	use_ok('Apache::Voodoo::Validate');
};
require_ok('Apache::Voodoo::Validate');

my %u_int_old = (
	'type' => 'unsigned_int',
	'max' => 4294967295
);

my %u_int_new = (
	'type'  => 'unsigned_int',
	'bytes' => 4
);

my %s_int_old = (
	'type' => 'signed_int',
	'min'  => -4294967296,
	'max'  => 4294967295
);

my %s_int_new = (
	'type'  => 'signed_int',
	'bytes' => 4,
);

my %date = (
	'type' => 'date'
);

my %time = (
	'type' => 'time'
);

my %datetime = (
	'type' => 'datetime'
);

my %vchar = ( type => 'varchar', 'length' => 64  );
my %text  = ( type => 'text' );

my %email  = ( type => 'varchar', 'length' => 64, 'valid'  => 'email'   );
my %url    = ( type => 'varchar', 'length' => 64, 'valid'  => 'url'     );
my %regexp = ( type => 'varchar', 'length' => 64, 'regexp' => '^aab+a$' );

my $full_monty = {
	'u_int_old_r' => { %u_int_old, required => 1 },
	'u_int_new_r' => { %u_int_new, required => 1 },
	'u_int_old_o' => { %u_int_old, required => 0 },
	'u_int_new_o' => { %u_int_new, required => 0 },

	'varchar_req' => { %vchar, required => 1 },
	'varchar_opt' => { %vchar, required => 0 },

	'text' => { %text },

	'email_req' => { %email, required => 1 },
	'email_opt' => { %email, required => 0 },