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