use Test::More;

package main;

use utf8;
use Validation::Class::Simple;

my $r = Validation::Class::Simple->new(fields => {visa_number => {creditcard => 1}});

sub should_fail {
    my ($name, @numbers) = @_;
    for (@numbers) {
        $r->params->{$name} = $_;
        ok !$r->validate(), "$_ is an invalid $name param";
    }
}

sub should_pass {
    my ($name, @numbers) = @_;
    for (@numbers) {
        $r->params->{$name} = $_;
        ok $r->validate(), "$_ is a valid $name param";
    }
}

# failures

diag 'validating bad visa numbers';
should_fail visa_number => qw(
    1111111111111111
    0000000000000000
    1234567887654321
);

diag 'now validating visa numbers against mastercard validator';
$r->fields->get('visa_number')->creditcard('mastercard');
should_fail visa_number => qw(
    1111111111111111
    0000000000000000
    1234567887654321
);

# successes

diag 'now validating bad visa numbers which are properly formatted';
$r->fields->get('visa_number')->creditcard(1);
should_pass visa_number => qw(
    4222222222222
    4111111111111111
    4012888888881881
);

diag 'now passing the "visa" argument to the creditcard directive';
$r->fields->get('visa_number')->creditcard('visa');
should_pass visa_number => qw(
    4222222222222
    4111111111111111
    4012888888881881
);

diag 'now using mc numbers and passing the "mastercard" argument to the creditcard directive';
$r->fields->get('visa_number')->creditcard('mastercard');
should_pass visa_number => qw(
    5105105105105100
    5555555555554444
);

diag 'now using mc and visa numbers and passing the ["visa", "mastercard"] argument to the creditcard directive';
$r->fields->get('visa_number')->creditcard(['visa', 'mastercard']);
should_pass visa_number => qw(
    4222222222222
    4111111111111111
    4012888888881881
    5105105105105100
    5555555555554444
);

done_testing;