t/load_core.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
   6 use Module::Runtime 'use_module';
   7 use Test::Fatal;
   8
   9 _use_ok('Devel::REPL');
  10 _use_ok('Devel::REPL::Script');
  11 _use_ok('Devel::REPL::Plugin::Colors');
  12 _use_ok('Devel::REPL::Plugin::Commands');
  13
  14 SKIP: {
  15     eval 'use PPI; 1' or skip 'PPI not installed: skipping completion plugins', 6;
  16
  17     _use_ok('Devel::REPL::Plugin::Completion');
  18     _use_ok('Devel::REPL::Plugin::CompletionDriver::Globals');
  19     _use_ok('Devel::REPL::Plugin::CompletionDriver::Methods');
  20     _use_ok('Devel::REPL::Plugin::CompletionDriver::Turtles');
  21
  22     test_plugin('File::Next', 'CompletionDriver::INC');
  23     test_plugin('B::Keywords', 'CompletionDriver::Keywords');
  24     test_plugin('Lexical::Persistence', 'CompletionDriver::LexEnv');
  25 };
  26
  27 test_plugin('Lexical::Persistence', 'LexEnv');
  28
  29 test_plugin('Data::Dumper::Concise', 'DDC');
  30
  31 test_plugin('Data::Dump::Streamer', 'DDS');
  32
  33 _use_ok('Devel::REPL::Plugin::DumpHistory');
  34 _use_ok('Devel::REPL::Plugin::FancyPrompt');
  35 _use_ok('Devel::REPL::Plugin::FindVariable');
  36 _use_ok('Devel::REPL::Plugin::History');
  37
  38 test_plugin('Sys::SigAction', 'Interrupt');
  39
  40 # _use_ok('Devel::REPL::Plugin::Interrupt') unless $^O eq 'MSWin32';
  41
  42 test_plugin('PPI', 'MultiLine::PPI');
  43
  44 test_plugin('App::Nopaste', 'Nopaste');
  45
  46 _use_ok('Devel::REPL::Plugin::OutputCache');
  47 _use_ok('Devel::REPL::Plugin::Packages');
  48 _use_ok('Devel::REPL::Plugin::Peek');
  49
  50 test_plugin('PPI' ,'PPI');
  51
  52 _use_ok('Devel::REPL::Plugin::ReadLineHistory');
  53
  54 test_plugin('Module::Refresh', 'Refresh');
  55
  56 _use_ok('Devel::REPL::Plugin::ShowClass');
  57 _use_ok('Devel::REPL::Plugin::Timing');
  58 _use_ok('Devel::REPL::Plugin::Turtles');
  59
  60 sub _use_ok {
  61     my $module = shift;
  62     is(exception { use_module $module }, undef, $module . ' ok');
  63 }
  64
  65 sub test_plugin
  66 {
  67     my ($prereq, $plugin) = @_;
  68
  69     SKIP: {
  70         eval "use $prereq; 1"
  71             or skip "$prereq not installed: skipping $plugin", 1;
  72
  73         _use_ok("Devel::REPL::Plugin::$plugin");
  74     }
  75 }
  76
  77 done_testing;