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},
62 $m->content_contains('Connection succeeded');
63 $m->submit_form_ok({ button => 'Next' });
68 Password => 'password',
70 }, 'set root password');
75 OwnerEmail => 'admin@example.com',
77 }, 'set admin email');
82 CorrespondAddress => 'rt@example.com',
83 CommentAddress => 'rt-comment@example.com',
88 $m->content_contains('database');
92 $m->content_contains('/RT_SiteConfig.pm');
93 $m->content_contains('Finish');
96 $m->content_contains('Login');
97 ok $m->login(), 'logged in';
100 RT::Test::__drop_database();