basic.t

#!perl

use strict;
use warnings;

use Test::More tests => 7;

my $class = 'App::Addex::AddressBook::Abook';

use_ok($class);

my $abook = $class->new({
  filename     => 't/data/addressbook',
  folder_field => 'custom1',
  sig_field    => 'custom3',
});

isa_ok($abook, $class);

my @entries = $abook->entries;

is(@entries, 2, "there are two entries: 3 minus 1 with no emails");

is_deeply(
  [ $entries[0]->emails ],
  [ qw(jsmith@example.com joeysmith@example.com) ],
  "correct email addresses for first entry",
);

is($entries[0]->nick, 'joey', "correct nick for joe");

is($entries[0]->field('folder'), 'joe', "correct folder for joe");

is($entries[1]->field('folder'), 'family/wife', "correct folder for wifey");