-#!/usr/bin/perl
use strict;
use warnings;
# Database details
$m->content_contains('DatabaseName');
- $m->submit();
+ if (RT->Config->Get('DatabaseType') eq 'SQLite') {
+ $m->submit;
+ } else {
+ $m->submit_form(with_fields => {
+ DatabaseAdmin => $ENV{RT_DBA_USER},
+ DatabaseAdminPassword => $ENV{RT_DBA_PASSWORD},
+ DatabasePassword => "rt_pass",
+ });
+ }
$m->content_contains('Connection succeeded');
$m->submit_form_ok({ button => 'Next' });
}, 'set root password');
# Mail options
+ my $sendmail = File::Spec->rel2abs( File::Spec->catfile(
+ 't', 'security', 'fake-sendmail' ) );
$m->submit_form_ok({
with_fields => {
- OwnerEmail => 'admin@example.com',
+ OwnerEmail => 'admin@example.com',
+ SendmailPath => $sendmail,
},
}, 'set admin email');
ok $m->login(), 'logged in';
}
+RT::Test::__drop_database();
undef $m;
done_testing;