t/00load_and_sane.t

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