t/load_core.t

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