view release on metacpan or  search on metacpan

t/general/__fields_are_something.t  view on Meta::CPAN

	[ bad_row => true_fields => {
		fields  => [ qw(ex_number blank_field in_number) ],
		}
	],

	);

my %input = (
	in_number    => 11,
	ex_number    =>  0,
	not_a_number => 'NaN',
	blank_field  => '',
	undef_field  => undef,
	);

my( $lint ) = $brick->profile_class->lint( \@profile );
is( keys %$lint, 0, "Profile is formatted correctly\n" );
use Data::Dumper;
print STDERR Data::Dumper->Dump( [$lint], [qw(lint)] ) if $ENV{DEBUG};

t/general/required_fields.t  view on Meta::CPAN

	[ bad_row => true_fields => {
		fields  => [ qw(ex_number blank_field in_number) ],
		}
	],

	);

my %input = (
	in_number    => 11,
	ex_number    =>  0,
	not_a_number => 'NaN',
	blank_field  => '',
	undef_field  => undef,
	);

my( $lint ) = $brick->profile_class->lint( \@profile );
is( keys %$lint, 0, "Profile is formatted correctly\n" );
use Data::Dumper;
#print STDERR "\n", Data::Dumper->Dump( [$lint], [qw(lint)] );

if( $ENV{DEBUG} )

t/messages/number_range_error.t  view on Meta::CPAN

		inclusive => 0
		}
	],

	);


my %input = (
	in_number => 11,
	ex_number =>  0,
	not_a_number => 'NaN',
	);

my( $lint ) = $brick->profile_class->lint( \@profile );
is( keys %$lint, 0, "Profile is formatted correctly\n" );

my $profile = $brick->profile_class->new( $brick, \@profile );
isa_ok( $profile, $brick->profile_class );

my $result = $brick->apply( $profile, \%input );