use Test::Spec;
use Test::Fatal;

use lib 't/lib';

use TestDBH;
use TestEnv;
use Author;
use Book;

describe 'create' => sub {

    it 'accepts related values as hash ref' => sub {
        my $author = Author->new(books => {title => 'foo'});

        my @books = $author->related('books');
        is(@books,                         1);
        is($books[0]->get_column('title'), 'foo');
    };

    it 'accepts related values as objects' => sub {
        my $author = Author->new(books => Book->new);

        my @books = $author->related('books');
        is(@books, 1);
    };

    it 'accepts related values as array of objects' => sub {
        my $author =
          Author->new(books => [Book->new(title => 'foo'), {title => 'bar'}]);

        my @books = $author->related('books');
        is(@books,                         2);
        is($books[0]->get_column('title'), 'foo');
        is($books[1]->get_column('title'), 'bar');
    };

    it 'not set related when value is undef' => sub {
        my $author = Author->new(books => undef);

        my @books = $author->related('books');
        is(@books, 0);
    };

    it 'not set related when array of empty values' => sub {
        my $author = Author->new(books => [{}, undef]);

        my @books = $author->related('books');
        is(@books, 0);
    };

};

runtests unless caller;