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
10 '4111 1111 1111 1112',
11 '5454 5454 5454 5455',
14 use Test::More tests => 4; #haha no scalar(@test_table) + scalar(@bad_table);
15 use Business::CreditCard qw( 0.36 :NEW );
17 foreach my $card (@test_table) {
18 ok( validate_card($card), "validate_card($card)" );
21 foreach my $card (@bad_table) {
22 ok( ! validate_card($card), "! validate_card($card)" );