Merge branch 'master' of https://github.com/jgoodman/Freeside

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

diff --git a/rt/t/web/installer.t b/rt/t/web/installer.t
index 4dc82df..79198a7 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' });
 
@@ -91,5 +98,6 @@ diag "Walking through install screens setting defaults";
     ok $m->login(), 'logged in';
 }
 
+RT::Test::__drop_database();
 undef $m;
 done_testing;