rt/t/security/CVE-2011-5092-installmode.t

   1 use strict;
   2 use warnings;
   3
   4 BEGIN {
   5     $ENV{RT_TEST_WEB_HANDLER} = 'inline';
   6 }
   7
   8 use RT::Test tests => undef;
   9 use Test::Warn;
  10
  11 my ($base, $m) = RT::Test->started_ok;
  12
  13 $m->login;
  14 $m->content_like(qr/RT at a glance/i, 'homepage');
  15
  16 warning_like {
  17     ok !RT->InstallMode(1), 'install mode failed to turn on';
  18 } qr/tried to turn on InstallMode/;
  19
  20 $m->reload;
  21 $m->content_like(qr/RT at a glance/i, 'still homepage');
  22
  23 undef $m;
  24 done_testing;