use strict; use warnings; use lib 't/lib'; use Data::Dumper; use Test::More tests => 2; use_ok 'FindPlugin'; my $fp = FindPlugin->new; $fp->find_plugins; my @plugins = sort $fp->plugins; my @expected = sort map { "FindPlugin::Plugin::$_" } qw(One Two Three); is_deeply \@plugins, \@expected, "Found all the expected plugins"; 1;