The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

use strict;
use warnings;

use lib "./t/lib";

use Test::More tests => 2;

use Test::Run::CmdLine::Iface;
use Test::Run::CmdLine::Drivers::CmdLineTest;
use Test::Run::Drivers::CmdLineTest;

{
    local %ENV=%ENV;
    delete $ENV{HARNESS_DRIVER};

    {

        my $iface = Test::Run::CmdLine::Iface->new(
            {
                'driver_class' => "Test::Run::CmdLine::Drivers::CollectPluginsZedBar",
                'driver_plugins' => [qw(ZedField BarFieldWithAccum)],
                'test_files' => [qw(one.t TWO tHREE)],
            }
        );

        my $driver = $iface->_calc_driver();

        # TEST
        is_deeply(
            $driver->backend_plugins(),
            [qw(ZedField BarField)],
            "Testing the plugins' collection - Zed + Bar",
        );
    }

    {
        my $iface = Test::Run::CmdLine::Iface->new(
            {
                'driver_class' => "Test::Run::CmdLine::Drivers::CollectPluginsBarZed",
                'driver_plugins' => [qw(BarFieldWithAccum ZedField)],
                'test_files' => [qw(one.t TWO tHREE)],
            }
        );

        my $driver = $iface->_calc_driver();

        # TEST
        is_deeply(
            $driver->backend_plugins(),
            [qw(BarField ZedField)],
            "Testing the plugins' collection - Bar + Zed",
        );
    }
}

1;