#t!/usr/bin/env perl
use strict;
use warnings;

use Test::More tests => 1;
use DBI;

my $dsn = "dbi:SQLite:api.db";
my $dbh = DBI->connect($dsn);

my $sth = $dbh->prepare(
'SELECT me.ddi, me.area_code, me.local_number, me.number_quality, me.is_used FROM complete_number_e164 me
WHERE ( ( me.ddi = ? AND me.is_used = ? ) )'
);
$sth->bind_param(1, 441224900999);
$sth->bind_param(2, 0);
$sth->execute();

my $ddi_available;
while ( my @row = $sth->fetchrow_array ) {
    $ddi_available = $row[0];
}

note 'DDI found: ' . $ddi_available;
ok( $ddi_available eq '441224900999', 'Found available DDI.' );
$dbh->disconnect;