t/validate_card.t

   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
   4 my @test_table=(
   5         '4111 1111 1111 1111',
   6         '5454 5454 5454 5454',
   7 );
   8
   9 my @bad_table=(
  10         '4111 1111 1111 1112',
  11         '5454 5454 5454 5455',
  12 );
  13
  14 use Test::More tests => 4; #haha no scalar(@test_table) + scalar(@bad_table);
  15 use Business::CreditCard qw( 0.36 :NEW );
  16
  17 foreach my $card (@test_table) {
  18   ok( validate_card($card), "validate_card($card)" );
  19 }
  20
  21 foreach my $card (@bad_table) {
  22   ok( ! validate_card($card), "! validate_card($card)" );
  23 }
  24
  25 1;