X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTest%2FHarness%2FSelenium.pm;h=dc4d9363dca15de7aeaf0f4e2c2d564e51ab4f82;hb=0f44efefae5c0b872c731eb5d3f1099b6c99048a;hp=4b6cf60067d85a22dc33c13bb5872999e4eab998;hpb=04738d0e251e7bf9c6700d8cf206445ffde4e378;p=scpubgit%2FTest-Harness-Selenium.git

diff --git a/lib/Test/Harness/Selenium.pm b/lib/Test/Harness/Selenium.pm
index 4b6cf60..dc4d936 100644
--- a/lib/Test/Harness/Selenium.pm
+++ b/lib/Test/Harness/Selenium.pm
@@ -80,7 +80,8 @@ sub start_selenium_server {
       last;
     }
   }
-  die "timed out waiting for selenium server to start" if $tries == 5;
+  die "timed out waiting for selenium server to start at
+  http://$self->{selenium_rc}{host}:$self->{selenium_rc}{port}" if $tries == 5;
 }
 
 sub stop_selenium_server {
@@ -108,6 +109,9 @@ sub stop_app_server {
 
 sub test_directory {
   my ($self, $dir) = @_;
+  if(!exists $self->{app_server_proc}) {
+    $self->start_app_server;
+  }
   if($self->{selenium_rc}{start} && !$self->{selenium_rc}{selenium_server_proc}) {
     $self->start_selenium_server;
   }