test plugin loading

[p5sagit/Devel-REPL.git] / t / load_plugins.t

#!/usr/bin/env perl

use FindBin qw($Bin);
use lib "$Bin/../t/lib";

use Test::More 'no_plan';

use_ok('Devel::REPL');

my @plugins = qw/
B::Concise
Colors
Commands
Completion
CompletionDriver::Globals
CompletionDriver::INC
CompletionDriver::Keywords
CompletionDriver::LexEnv
CompletionDriver::Methods
CompletionDriver::Turtles
DDC
DDS
DumpHistory
FancyPrompt
FindVariable
History
Interrupt
LexEnv
MultiLine::PPI
Nopaste
OutputCache
PPI
Packages
Peek
ReadLineHistory
Refresh
ShowClass
Timing
Turtles
/;

for my $plugin_name (@plugins) {
    test_load_plugin($plugin_name);
}

sub test_load_plugin {
    my ($plugin_name) = @_;
    my $repl = Devel::REPL->new;
    my $test_name = "plugin $plugin_name loaded";
    eval "use Devel::REPL::Plugin::$plugin_name";
    unless($@) {
        eval { $repl->load_plugin($plugin_name) };
        ok(!$@, $test_name);
    } else {
        SKIP: {
                skip "could not eval plugin $plugin_name", 1;
        }
    }
}

1;