4 $ENV{RT_TEST_WEB_HANDLER} = 'plack+rt-server';
10 my ($base, $m) = RT::Test->started_ok;
12 $m->warning_like(qr/If this is a new installation of RT/,
13 "Got startup warning");
16 like $m->uri, qr/Install/, 'at installer';
18 diag "Testing language change";
25 button => 'ChangeLang',
27 'change language to french'
29 $m->content_like(qr/RT\s+pour\s+example\.com/i);
35 button => 'ChangeLang',
37 'change language to english'
39 $m->content_like(qr/RT\s+for\s+example\.com/i);
42 diag "Walking through install screens setting defaults";
47 $m->content_contains('DatabaseType');
48 $m->content_contains($_, "found database $_")
49 for qw(MySQL PostgreSQL Oracle SQLite);
53 $m->content_contains('DatabaseName');
54 if (RT->Config->Get('DatabaseType') eq 'SQLite') {
57 $m->submit_form(with_fields => {
58 DatabaseAdmin => $ENV{RT_DBA_USER},
59 DatabaseAdminPassword => $ENV{RT_DBA_PASSWORD},
60 DatabasePassword => "rt_pass",
63 $m->content_contains('Connection succeeded');
64 $m->submit_form_ok({ button => 'Next' });
69 Password => 'password',
71 }, 'set root password');
76 OwnerEmail => 'admin@example.com',
78 }, 'set admin email');
83 CorrespondAddress => 'rt@example.com',
84 CommentAddress => 'rt-comment@example.com',
89 $m->content_contains('database');
93 $m->content_contains('/RT_SiteConfig.pm');
94 $m->content_contains('Finish');
97 $m->content_contains('Login');
98 ok $m->login(), 'logged in';
101 RT::Test::__drop_database();