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

use Data::Dumper;
use Test::More tests => 2;

use_ok 'API::Schema';

my $dsn           = "dbi:SQLite:api.db";
my $apidb         = API::Schema->connect($dsn);
my $ddi_available = $apidb->resultset('CompleteNumberE164View')->find(
    {
        ddi     => 441224900999,
        is_used => 0
    }
);
note 'DDI found: ' . $ddi_available->ddi;
ok( $ddi_available->ddi eq '441224900999', 'Found available DDI.' );