bin/usps-webtools-test-script

   1 #!/usr/bin/perl
   2
   3 use FS::Misc::Geo 'standardize';
   4 use Data::Dumper; $Data::Dumper::Terse = 1;
   5 my @tests = (
   6   {
   7     address1  => '6406 Ivy Lane',
   8     address2  => '',
   9     city      => 'Greenbelt',
  10     state     => 'MD',
  11     zip       => '',
  12   },
  13   {
  14     address1  => '8 Wildwood Drive',
  15     address2  => '',
  16     city      => 'Old Lyme',
  17     state     => 'CT',
  18     zip       => '06371',
  19   },
  20 );
  21
  22 my ($userid, $password) = @ARGV;
  23
  24 my %opt = (
  25   userid  => $userid,
  26   password=> $password,
  27   test    => 1,
  28 );
  29 my $i = 1;
  30 foreach (@tests) {
  31   print "Test $i\n";
  32   my $result = eval { standardize($_, %opt) };
  33   print "ERROR: $@\n\n" if $@;
  34   print Dumper($result);
  35   $i++;
  36 }
  37
  38 1;