rt 4.2.14 (#13852)

[freeside.git] / rt / t / web / installer.t

diff --git a/rt/t/web/installer.t b/rt/t/web/installer.t
index 4dc82df..a690e1a 100644 (file)
--- a/rt/t/web/installer.t
+++ b/rt/t/web/installer.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 use strict;
 use warnings;
 
@@ -52,7 +51,15 @@ diag "Walking through install screens setting defaults";
 
     # 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' });
 
@@ -64,9 +71,12 @@ diag "Walking through install screens setting defaults";
     }, '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');
 
@@ -91,5 +101,6 @@ diag "Walking through install screens setting defaults";
     ok $m->login(), 'logged in';
 }
 
+RT::Test::__drop_database();
 undef $m;
 done_testing;