The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More tests => 4;                      # last test to print
use_ok("Geo::IATA");
my $iata;
eval {
  $iata=Geo::IATA->new("lib/Geo/IATA/iata_sqlite.db");
};
is ($@,'', "new doesn't die");
ok (defined $iata, "\$iata is defined");

ok (defined $iata->iata("SXF"), "SXF iata code returns record");