rt/lib/t/00smoke.t

   1 #!/usr/bin/perl
   2
   3 use Test::More qw(no_plan);
   4
   5 use RT;
   6 ok(RT::LoadConfig);
   7 ok(RT::Init, "Basic initialization and DB connectivity");
   8
   9 use File::Find;
  10 File::Find::find({wanted => \&wanted}, 'lib/');
  11 sub wanted { /^*\.pm\z/s && ok(require $_, "Requiring '$_'"); }
  12
  13