systemd: start apache after postgresql
[freeside.git] / rt / t / web / mobile.t
1 use strict;
2 use warnings;
3 use RT::Test tests => 170;
4
5 my ( $url, $m ) = RT::Test->started_ok;
6 my $root = RT::Test->load_or_create_user( Name => 'root' );
7
8 diag "create another queue";
9 my $test_queue = RT::Queue->new( $RT::SystemUser );
10 ok( $test_queue->Create( Name => 'foo' ) );
11
12 diag "create cf cfbar";
13 my $cfbar = RT::CustomField->new( $RT::SystemUser );
14 ok(
15     $cfbar->Create(
16         Name       => 'cfbar',
17         Type       => 'Freeform',
18         LookupType => 'RT::Queue-RT::Ticket'
19     )
20 );
21
22 $cfbar->AddToObject( $test_queue );
23
24 diag "create some tickets to link";
25 # yep, create 3 tickets for DependsOn
26 my @tickets = map { { Subject => "link of $_" } }
27   qw/DependsOn DependsOn DependsOn DependedOnBy HasMember HasMember
28   MemberOf RefersTo RefersTo ReferredToBy/;
29 RT::Test->create_tickets( { Status => 'resolved' },  @tickets );
30
31 diag "test different mobile agents";
32 my @agents = (
33     'hiptop',       'Blazer',     'Novarra',  'Vagabond',
34     'SonyEricsson', 'Symbian',    'NetFront', 'UP.Browser',
35     'UP.Link',      'Windows CE', 'MIDP',     'J2ME',
36     'DoCoMo',       'J-PHONE',    'PalmOS',   'PalmSource',
37     'iPhone',       'iPod',       'AvantGo',  'Nokia',
38     'Android',      'WebOS',      'S60'
39 );
40
41 for my $agent (@agents) {
42     $m->agent($agent);
43     $m->get_ok($url);
44     $m->content_contains( 'Not using a mobile browser',
45         "mobile login page for agent $agent" );
46 }
47
48 $m->submit_form( fields => { user => 'root', pass => 'password' } );
49 is( $m->uri, $url . '/m/', 'logged in via mobile ui' );
50 ok( $m->find_link( text => 'Home' ), 'has homepage link, so really logged in' );
51
52 diag "create some tickets";
53 $m->follow_link_ok( { text => 'New ticket' } );
54 like( $m->uri, qr'/m/ticket/select_create_queue', 'queue select page' );
55 $m->follow_link_ok( { text => 'General' } );
56 like( $m->uri, qr'/m/ticket/create', 'ticket create page' );
57 $m->submit_form(
58     fields => {
59         Subject                   => 'ticket1',
60         Content                   => 'content 1',
61         Status                    => 'open',
62         Cc                        => 'cc@example.com',
63         AdminCc                   => 'admincc@example.com',
64         InitialPriority           => 13,
65         FinalPriority             => 93,
66         TimeEstimated             => 2,
67         'TimeEstimated-TimeUnits' => 'hours',
68         TimeWorked                => 30,
69         TimeLeft                  => 60,
70         Starts                    => '2011-01-11 11:11:11',
71         Due                       => '2011-02-12 12:12:12',
72         'new-DependsOn'           => '1 2 3',
73         'DependsOn-new'           => '4',
74         'new-MemberOf'            => '5 6',
75         'MemberOf-new'            => '7',
76         'new-RefersTo'            => '8 9',
77         'RefersTo-new'            => '10',
78     }
79 );
80 like( $m->uri, qr'/m/ticket/show', 'ticket show page' );
81 $m->content_contains( 'ticket1', 'subject' );
82 $m->content_contains( 'open', 'status' );
83 $m->content_contains( 'cc@example.com', 'cc' );
84 $m->content_contains( 'admincc@example.com', 'admincc' );
85 $m->content_contains( '13/93', 'priority' );
86 $m->content_contains( '2 hour', 'time estimates' );
87 $m->content_contains( '30 min', 'time worked' );
88 $m->content_contains( '60 min', 'time left' );
89 $m->content_contains( 'Tue Jan 11 11:11:11', 'starts' );
90 $m->content_contains( 'Sat Feb 12 12:12:12', 'due' );
91 $m->content_like( qr/(link of DependsOn).*\1.*\1/s, 'depends on' );
92 $m->content_contains( 'link of DependedOnBy', 'depended on by' );
93 $m->content_like( qr/(link of HasMember).*\1/s, 'has member' );
94 $m->content_contains( 'link of MemberOf', 'member of' );
95 $m->content_like( qr/(link of RefersTo).*\1/s, 'refers to' );
96 $m->content_contains( 'link of ReferredToBy', 'referred to by' );
97
98 diag "test ticket reply";
99 $m->follow_link_ok( { text => 'Reply' } );
100 like( $m->uri, qr'/m/ticket/reply', 'ticket reply page' );
101 $m->submit_form(
102     fields => {
103         UpdateContent    => 'reply 1',
104         UpdateTimeWorked => '30',
105         UpdateStatus     => 'resolved',
106         UpdateType       => 'response',
107     },
108     button => 'SubmitTicket',
109 );
110 like( $m->uri, qr'/m/ticket/show', 'back to ticket show page' );
111 $m->content_contains( '1 hour', 'time worked' );
112 $m->content_contains( 'resolved', 'status' );
113 $m->follow_link_ok( { text => 'Reply' } );
114 like( $m->uri, qr'/m/ticket/reply', 'ticket reply page' );
115 $m->submit_form(
116     fields => {
117         UpdateContent    => 'reply 2',
118         UpdateSubject    => 'ticket1',
119         UpdateStatus     => 'open',
120         UpdateType       => 'private',
121     },
122     button => 'SubmitTicket',
123 );
124 $m->no_warnings_ok;
125 $m->content_contains( 'ticket1', 'subject' );
126 $m->content_contains( 'open', 'status' );
127
128 like( $m->uri, qr'/m/ticket/show', 'back to ticket show page' );
129
130 diag "test ticket history";
131 $m->follow_link_ok( { text => 'History' } );
132 like( $m->uri, qr'/m/ticket/history', 'ticket history page' );
133 $m->content_contains( 'content 1', 'has main content' );
134 $m->content_contains( 'reply 1', 'has replied content' );
135 $m->content_contains( 'reply 2', 'has replied content' );
136
137 diag "create another ticket in queue foo";
138 $m->follow_link_ok( { text => 'Home' } );
139 is( $m->uri, "$url/m/", 'main mobile page' );
140 $m->follow_link_ok( { text => 'New ticket' } );
141 like( $m->uri, qr'/m/ticket/select_create_queue', 'queue select page' );
142 $m->follow_link_ok( { text => 'foo' } );
143 like( $m->uri, qr'/m/ticket/create', 'ticket create page' );
144 $m->content_contains( 'cfbar', 'has cf name' );
145 $m->content_contains( 'Object-RT::Ticket--CustomField-' . $cfbar->id .  '-Value', 'has cf input name' );
146 $m->submit_form(
147     fields => {
148         Subject => 'ticket2',
149         Content => 'content 2',
150         Owner   => $root->id,
151         'Object-RT::Ticket--CustomField-' . $cfbar->id . '-Value' => 'cfvalue',
152     }
153 );
154 $m->no_warnings_ok;
155 like( $m->uri, qr'/m/ticket/show', 'ticket show page' );
156 $m->content_contains( 'cfbar', 'has cf name' );
157 $m->content_contains( 'cfvalue', 'has cf value' );
158
159 $m->follow_link_ok( { text => 'Home' } );
160 is( $m->uri, "$url/m/", 'main mobile page' );
161
162 diag "test unowned tickets link";
163 $m->follow_link_ok( { text => 'Unowned tickets' } );
164 $m->content_contains( 'Found 1 ticket', 'found 1 ticket' );
165 $m->content_contains( 'ticket1', 'has ticket1' );
166 $m->content_lacks( 'ticket2', 'no ticket2' );
167 $m->back;
168
169 diag "test tickets I own link";
170 $m->follow_link_ok( { text => 'Tickets I own' } );
171 $m->content_contains( 'Found 1 ticket', 'found 1 ticket' );
172 $m->content_lacks( 'ticket1', 'no ticket1' );
173 ok( $m->find_link( text_regex => qr/ticket2/ ), 'has ticket2 link' );
174 $m->back;
175
176 diag "test all tickets link";
177 $m->follow_link_ok( { text => 'All tickets' } );
178 $m->content_contains( 'Found 12 tickets', 'found 12 tickets' );
179 ok( $m->find_link( text_regex => qr/ticket1/ ), 'has ticket1 link' );
180 ok( $m->find_link( text_regex => qr/ticket2/ ), 'has ticket2 link' );
181 $m->back;
182
183 diag "test bookmarked tickets link";
184 my $ticket = RT::Ticket->new(RT::CurrentUser->new('root'));
185 $ticket->Load(11);
186 $root->ToggleBookmark($ticket);
187
188 $m->follow_link_ok( { text => 'Bookmarked tickets' } );
189 $m->content_contains( 'Found 1 ticket', 'found 1 ticket' );
190 ok( $m->find_link( text_regex => qr/ticket1/ ), 'has ticket1 link' );
191 $m->content_lacks( 'ticket2', 'no ticket2' );
192 $m->back;
193
194 diag "test tickets search";
195 $m->submit_form( fields => { q => 'ticket2' } );
196 $m->content_contains( 'Found 1 ticket', 'found 1 ticket' );
197 $m->content_lacks( 'ticket1', 'no ticket1' );
198 ok( $m->find_link( text_regex => qr/ticket2/ ), 'has ticket2 link' );
199 $m->back;
200
201 diag "test logout link";
202 $m->follow_link_ok( { text => 'Logout' } );
203 is( $m->uri, "$url/m/", 'still in mobile' );
204 $m->submit_form( fields => { user => 'root', pass => 'password' } );
205
206 diag "test notmobile link";
207 $m->follow_link_ok( { text => 'Home' } );
208 $m->follow_link_ok( { text => 'Not using a mobile browser?' } );
209 is( $m->uri, $url . '/', 'got full ui' );
210