1#mostly just a quick test of validate_card() as the new name for validate()
2# and the :NEW import tag to bring it in
3
4my @test_table=(
5        '4111 1111 1111 1111',
6        '5454 5454 5454 5454',
7);
8
9my @bad_table=(
10        '4111 1111 1111 1112',
11        '5454 5454 5454 5455',
12);
13
14use Test::More tests => 4; #haha no scalar(@test_table) + scalar(@bad_table);
15use Business::CreditCard qw( :NEW );
16
17foreach my $card (@test_table) {
18  ok( validate_card($card), "validate_card($card)" );
19}
20
21foreach my $card (@bad_table) {
22  ok( ! validate_card($card), "! validate_card($card)" );
23}
24
251;
26