1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#!/usr/bin/env perl
use strict;
use warnings;
use RT::Test tests => 19;
my ( $url, $m ) = RT::Test->started_ok;
use RT::Attribute;
my $search = RT::Attribute->new($RT::SystemUser);
my $ticket = RT::Ticket->new($RT::SystemUser);
my ( $ret, $msg ) = $ticket->Create(
Subject => 'base ticket' . $$,
Queue => 'general',
Owner => 'root',
Requestor => 'root@localhost',
MIMEObj => MIME::Entity->build(
From => 'root@localhost',
To => 'rt@localhost',
Subject => 'base ticket' . $$,
Data => "",
),
);
ok( $ret, "ticket created: $msg" );
ok( $m->login, 'logged in' );
$m->get_ok( $url . "/Search/Chart.html?Query=" . 'id=1' );
my ($owner) = $m->content =~ /value="(RT::User-\d+)"/;
$m->submit_form(
form_name => 'SaveSearch',
fields => {
SavedSearchDescription => 'first chart',
SavedSearchOwner => $owner,
},
button => 'SavedSearchSave',
);
$m->content_like( qr/Chart first chart saved/, 'saved first chart' );
my ( $search_uri, $id ) = $m->content =~ /value="(RT::User-\d+-SavedSearch-(\d+))"/;
$m->submit_form(
form_name => 'SaveSearch',
fields => { SavedSearchLoad => $search_uri },
);
$m->content_like( qr/name="SavedSearchDelete"\s+value="Delete"/,
'found Delete button' );
$m->content_like(
qr/name="SavedSearchDescription"\s+value="first chart"/,
'found Description input with the value filled'
);
$m->content_like( qr/name="SavedSearchSave"\s+value="Update"/,
'found Update button' );
$m->content_unlike( qr/name="SavedSearchSave"\s+value="Save"/,
'no Save button' );
$m->submit_form(
form_name => 'SaveSearch',
fields => {
Query => 'id=2',
PrimaryGroupBy => 'Status',
ChartStyle => 'pie',
},
button => 'SavedSearchSave',
);
$m->content_like( qr/Chart first chart updated/, 'found updated message' );
$m->content_like( qr/id=2/, 'Query is updated' );
$m->content_like( qr/value="Status"\s+selected="selected"/,
'PrimaryGroupBy is updated' );
$m->content_like( qr/value="pie"\s+selected="selected"/,
'ChartType is updated' );
ok( $search->Load($id) );
is( $search->SubValue('Query'), 'id=2', 'Query is indeed updated' );
is( $search->SubValue('PrimaryGroupBy'),
'Status', 'PrimaryGroupBy is indeed updated' );
is( $search->SubValue('ChartStyle'), 'pie', 'ChartStyle is indeed updated' );
# finally, let's test delete
$m->submit_form(
form_name => 'SaveSearch',
button => 'SavedSearchDelete',
);
$m->content_like( qr/Chart first chart deleted/, 'found deleted message' );
$m->content_unlike( qr/value="RT::User-\d+-SavedSearch-\d+"/,
'no saved search' );
|