4 use RT::Test tests => 19;
5 my ($baseurl, $m) = RT::Test->started_ok;
7 my $url = $m->rt_base_url;
9 my $user_obj = RT::User->new(RT->SystemUser);
10 my ($ret, $msg) = $user_obj->LoadOrCreateByEmail('customer@example.com');
11 ok($ret, 'ACL test user creation');
12 $user_obj->SetName('customer');
13 $user_obj->SetPrivileged(1);
14 ($ret, $msg) = $user_obj->SetPassword('customer');
15 $user_obj->PrincipalObj->GrantRight(Right => 'LoadSavedSearch');
16 $user_obj->PrincipalObj->GrantRight(Right => 'EditSavedSearches');
17 $user_obj->PrincipalObj->GrantRight(Right => 'CreateSavedSearch');
18 $user_obj->PrincipalObj->GrantRight(Right => 'ModifySelf');
20 ok $m->login( customer => 'customer' ), "logged in";
22 $m->get ( $url."Search/Build.html");
24 #create a saved search
25 $m->form_name ('BuildQuery');
27 $m->field ( "ValueOfAttachment" => 'stupid');
28 $m->field ( "SavedSearchDescription" => 'stupid tickets');
29 $m->click_button (name => 'SavedSearchSave');
31 $m->get ( $url.'Prefs/MyRT.html' );
32 $m->content_contains('stupid tickets', 'saved search listed in rt at a glance items');
34 ok $m->login('root', 'password', logout => 1), 'we did log in as root';
36 $m->get ( $url.'Prefs/MyRT.html' );
37 $m->form_name ('SelectionBox-body');
38 # can't use submit form for mutli-valued select as it uses set_fields
39 $m->field ('body-Selected' => ['component-QuickCreate', 'system-Unowned Tickets', 'system-My Tickets']);
40 $m->click_button (name => 'remove');
41 $m->form_name ('SelectionBox-body');
42 #$m->click_button (name => 'body-Save');
44 $m->content_lacks ('highest priority tickets', 'remove everything from body pane');
46 $m->get ( $url.'Prefs/MyRT.html' );
47 $m->form_name ('SelectionBox-body');
48 $m->field ('body-Available' => ['component-QuickCreate', 'system-Unowned Tickets', 'system-My Tickets']);
49 $m->click_button (name => 'add');
51 $m->form_name ('SelectionBox-body');
52 $m->field ('body-Selected' => ['component-QuickCreate']);
53 $m->click_button (name => 'movedown');
55 $m->form_name ('SelectionBox-body');
56 $m->click_button (name => 'movedown');
58 $m->form_name ('SelectionBox-body');
59 #$m->click_button (name => 'body-Save');
61 $m->content_contains('highest priority tickets', 'adds them back');
64 #create a saved search with special chars
65 $m->get( $url . "Search/Build.html" );
66 $m->form_name('BuildQuery');
67 $m->field( "ValueOfAttachment" => 'stupid' );
68 $m->field( "SavedSearchDescription" => 'special chars [test] [_1] ~[_1~]' );
69 $m->click_button( name => 'SavedSearchSave' );
70 my ($name) = $m->content =~ /value="(RT::User-\d+-SavedSearch-\d+)"/;
71 ok( $name, 'saved search name' );
72 $m->get( $url . 'Prefs/MyRT.html' );
73 $m->content_contains( 'special chars [test] [_1] ~[_1~]',
74 'saved search listed in rt at a glance items' );
76 $m->get( $url . 'Prefs/MyRT.html' );
77 $m->form_name('SelectionBox-body');
80 'component-QuickCreate',
81 'system-Unowned Tickets',
86 $m->click_button( name => 'add' );
89 $m->content_like( qr/special chars \[test\] \d+ \[_1\]/,
90 'special chars in titlebox' );
93 # Edit a system saved search to contain "[more]"
95 my $search = RT::Attribute->new( RT->SystemUser );
96 $search->LoadByNameAndObject( Name => 'Search - My Tickets', Object => RT->System );
97 my ($id, $desc) = ($search->id, RT->SystemUser->loc($search->Description, '"N"'));
98 ok $id, 'loaded search attribute';
101 $m->follow_link_ok({ url_regex => qr"Prefs/Search\.html\?name=.+?Attribute-$id" }, 'Edit link');
102 $m->content_contains($desc, "found description: $desc");
104 ok +($search->SetDescription( $search->Description . " [more]" ));
106 $m->get_ok($m->uri); # "reload_ok"
107 $m->content_contains($desc . " [more]", "found description: $desc");