fix quotations, RT#21103
[freeside.git] / 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;