t/00load_and_sane.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin qw/$Bin/;
   5 use lib "$Bin/../lib";
   6
   7 use List::MoreUtils qw/any/;
   8 use Module::Find;
   9 setmoduledirs("$Bin/../lib");
  10
  11 use Test::More tests => 4;
  12 use Test::Exception;
  13
  14 my @modules;
  15 lives_ok {
  16     @modules = (useall('CtaalystX'), useall('DynamicAppDemo'));
  17 } 'Use all';
  18 ok @modules;
  19
  20 ok ! any(sub { ! $_->isa('Moose::Object') }, @modules),
  21     'Moose in da hoose';
  22
  23 ok ! any(sub { $_->can('has') }, @modules),
  24     'However, no lolcat to be found';
  25