X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fweb%2Finstaller.t;h=a34cdcb4b0a8ee96a46472adf392c09256d80d16;hb=679854b8bbc65d112071111bbd7f34a6a481fb30;hp=4dc82df47d5f2a9b2ce7845f7025a59b08fc46b9;hpb=f3c4966ed1f6ec3db7accd6dcdd3a5a3821d72a7;p=freeside.git

diff --git a/rt/t/web/installer.t b/rt/t/web/installer.t
index 4dc82df47..a34cdcb4b 100644
--- 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,14 @@ 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},
+        });
+    }
     $m->content_contains('Connection succeeded');
     $m->submit_form_ok({ button => 'Next' });
 
@@ -91,5 +97,6 @@ diag "Walking through install screens setting defaults";
     ok $m->login(), 'logged in';
 }
 
+RT::Test::__drop_database();
 undef $m;
 done_testing;