rt/t/web/query_log.t

   1 use strict;
   2 use warnings;
   3
   4 use RT::Test tests => 9;
   5
   6 RT->Config->Set(StatementLog => 1);
   7
   8 my ($baseurl, $m) = RT::Test->started_ok;
   9 ok $m->login, 'logged in';
  10
  11 my $root = RT::User->new($RT::SystemUser);
  12 $root->LoadByEmail('root@localhost');
  13
  14 $m->get_ok("/Admin/Tools/Queries.html");
  15 $m->text_contains("/index.html", "we include info about a page we hit while logging in");
  16 $m->text_contains("Stack:", "stack traces");
  17 $m->text_like(qr{/autohandler:\d+}, "stack trace includes mason components");
  18 $m->text_contains("SELECT * FROM Principals WHERE id = '".$root->id."'", "we interpolate bind params");