use strict;
use warnings;

use Test::More;
use Test::Fatal;

use ObjectDB::With;

use lib 't/lib';

use Book;
use BookDescription;

subtest 'convert with to joins' => sub {
    my $with =
      ObjectDB::With->new(meta => Book->meta, with => ['parent_author']);

    is_deeply $with->to_joins,
      [
        {
            source  => 'author',
            as      => 'parent_author',
            op      => 'left',
            columns => [qw/id name/],
            on      => ['book.author_id' => {-col => 'parent_author.id'}],
            join    => [],
        }
      ];
};

subtest 'convert with to joins deeply' => sub {
    my $with = ObjectDB::With->new(
        meta => BookDescription->meta,
        with => ['parent_book', 'parent_book.parent_author']
    );

    is_deeply $with->to_joins,
      [
        {
            source  => 'book',
            as      => 'parent_book',
            op      => 'left',
            columns => [qw/id author_id title/],
            on   => ['book_description.book_id' => {-col => 'parent_book.id'}],
            join => [
                {
                    source  => 'author',
                    as      => 'parent_author',
                    op      => 'left',
                    columns => [qw/id name/],
                    on =>
                      ['parent_book.author_id' => {-col => 'parent_author.id'}],
                    join => []
                }
            ]
        },
      ];
};

subtest 'autoload intermediate joins' => sub {
    my $with = ObjectDB::With->new(
        meta => BookDescription->meta,
        with => ['parent_book.parent_author']
    );

    is_deeply $with->to_joins,
      [
        {
            source  => 'book',
            as      => 'parent_book',
            op      => 'left',
            columns => [qw/id author_id title/],
            on   => ['book_description.book_id' => {-col => 'parent_book.id'}],
            join => [
                {
                    source  => 'author',
                    as      => 'parent_author',
                    op      => 'left',
                    columns => [qw/id name/],
                    on =>
                      ['parent_book.author_id' => {-col => 'parent_author.id'}],
                    join => []
                }
            ]
        },
      ];
};

subtest 'throw when unknown relationship' => sub {
    like
      exception { ObjectDB::With->new(meta => Book->meta, with => ['unknown']) }
    , qr/Unknown relationship 'unknown'/;
};

done_testing;