projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
buster (deb 10)
[freeside.git]
/
rt
/
t
/
web
/
custom_search.t
diff --git
a/rt/t/web/custom_search.t
b/rt/t/web/custom_search.t
index
05cfdab
..
75f832d
100644
(file)
--- a/
rt/t/web/custom_search.t
+++ b/
rt/t/web/custom_search.t
@@
-1,7
+1,7
@@
-#!/usr/bin/perl -w
use strict;
use strict;
+use warnings;
-use RT::Test tests => 1
1
;
+use RT::Test tests => 1
3
;
my ($baseurl, $m) = RT::Test->started_ok;
my $url = $m->rt_base_url;
my ($baseurl, $m) = RT::Test->started_ok;
my $url = $m->rt_base_url;
@@
-9,9
+9,9
@@
my $url = $m->rt_base_url;
-my $t = RT::Ticket->new(
$RT::
SystemUser);
+my $t = RT::Ticket->new(
RT->
SystemUser);
$t->Create(Subject => 'for custom search'.$$, Queue => 'general',
$t->Create(Subject => 'for custom search'.$$, Queue => 'general',
- Owner => 'root', Requestor => 'customsearch@localhost');
+
Owner => 'root', Requestor => 'customsearch@localhost');
ok(my $id = $t->id, 'created ticket for custom search');
ok $m->login, 'logged in';
ok(my $id = $t->id, 'created ticket for custom search');
ok $m->login, 'logged in';
@@
-24,7
+24,7
@@
$m->get ( $url.'Prefs/MyRT.html' );
my $cus_hp = $m->find_link( text => "My Tickets" );
my $cus_qs = $m->find_link( text => "Quick search" );
$m->get ($cus_hp);
my $cus_hp = $m->find_link( text => "My Tickets" );
my $cus_qs = $m->find_link( text => "Quick search" );
$m->get ($cus_hp);
-$m->content_
like (qr
'highest priority tickets');
+$m->content_
contains(
'highest priority tickets');
# add Requestor to the fields
$m->form_name ('BuildQuery');
# add Requestor to the fields
$m->form_name ('BuildQuery');