#! perl
use strict;
use warnings;
use Config;
use Test::More 0.89;
use ExtUtils::Builder::Action::Code;
use lib 't/lib';
use Test::LivesOK 'lives_ok';
{
        my $action;
        our $callback = sub {};
        my %args = (
                code    => '$::callback->()',
                message => 'callback',
        );
        lives_ok { $action = ExtUtils::Builder::Action::Code->new(%args) } 'Can create new object';
        {
                my @actions;
                local $callback = sub { push @actions, 1 };
                lives_ok { $action->execute(quiet => 1) } 'Can execute command';
                is_deeply(\@actions, [1], 'Command is executed quietly');
        }
        {
                my (@actions, @messages);
                local $callback = sub { push @actions, 2 };
                open my $stdout, '>', \my $output;
                select $stdout;
                lives_ok { $action->execute } 'Can execute command';
                select STDOUT;
                close $stdout;
                is_deeply(\@actions, [2], 'Command is executed with logging');
                is_deeply($output, "callback\n", 'Got the message');
        }
        my @serialized = $action->to_command;
        is(scalar(@serialized), 1, 'Got one command');
        my ($command, @arguments) = @{ shift @serialized };
        ok(-x $command, 'Command is executable');
        is_deeply(\@arguments, [ '-e', $args{code} ], 'to_command gives correct arguments');
        is($action->to_code, $args{code}, 'to_code is "$input"');
        is($action->preference, 'execute', 'Prefered means is "execute"');
        is($action->preference(qw/code command/), 'code', 'Prefered means between "code" and "command" is "code"');
}
done_testing;