# -*- perl -*-

# t/12_plugin_depends.t - Test Depends

use Test::Most tests => 1+1;
use Test::NoWarnings;

use lib 't/testlib';
use Test08;

subtest 'Depends' => sub {
    plan tests => 8;

    {
        my $test01 = Test08->new_with_options( WriteToFile => 1 );
        isa_ok( $test01, 'MooseX::App::Message::Envelope' );

        my @errors = grep { $_->type eq 'error' } @{ $test01->blocks };
        is( scalar @errors, 1, 'only returned a single error' );
        is( $errors[0]->header,
            'Option \'WriteToFile\' requires \'FileFormat\' to be defined',
            'generated an error when an option dependency was not present'
        );
    }

    {
        my $test02 = Test08->new_with_options( ReadFromFile => 1 );
        isa_ok( $test02, 'MooseX::App::Message::Envelope' );

        my @errors = grep { $_->type eq 'error' } @{ $test02->blocks };
        is( scalar @errors, 1, 'only returned a single error' );
        is( $errors[0]->header,
            'Option \'ReadFromFile\' requires \'FileFormat\' to be defined',
            'generated an error when an option dependency was not present'
        );
    }

    {
        my $test03 = Test08->new_with_options( WriteToFile => 1, FileFormat => 'tsv' );
        ok( ! $test03->can('blocks'),
            'generated no errors when both an option and its dependencies are defined'
        );
    }

    {
        my $test04 = Test08->new_with_options( ReadFromFile => 1, FileFormat => 'tsv' );
        ok( ! $test04->can('blocks'),
            'generated no errors when both an option and its dependencies are defined'
        );
    }
};