rt/lib/t/00smoke.t

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