diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-04-24 11:35:56 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-04-24 11:35:56 -0700 |
| commit | 6587f6ba7d047ddc1686c080090afe7d53365bd4 (patch) | |
| tree | ec77342668e8865aca669c9b4736e84e3077b523 /rt/t/web/query_log.t | |
| parent | 47153aae5c2fc00316654e7277fccd45f72ff611 (diff) | |
first pass RT4 merge, RT#13852
Diffstat (limited to 'rt/t/web/query_log.t')
| -rw-r--r-- | rt/t/web/query_log.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/rt/t/web/query_log.t b/rt/t/web/query_log.t new file mode 100644 index 000000000..e19f44dc6 --- /dev/null +++ b/rt/t/web/query_log.t @@ -0,0 +1,20 @@ +#!/usr/bin/perl +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"); + |