Added code to allow the tests to be run on Win32.

t/00-load.t

@@ -3,9 +3,6 @@ use strict;
 use Test::More tests => 1;
 
 BEGIN {
-    if ($^O eq 'MSWin32') {
-        BAIL_OUT 'Unit tests not supported yet, need to be on Mac on Linux with Firefox';
-    }
     use_ok( 'Selenium::Remote::Driver' ) || print "Bail out!";
 }
 

t/01-driver-live.t

@@ -19,7 +19,14 @@ BEGIN {
 }
 
 # Start our local http server
-system("perl t/http-server.pl > /dev/null &");
+if ($^O eq 'MSWin32')
+{
+   system("start \"TEMP_HTTP_SERVER\" /MIN perl t/http-server.pl");
+}
+else
+{
+    system("perl t/http-server.pl > /dev/null &");
+}
 
 my $driver = new Selenium::Remote::Driver(browser_name => 'firefox');
 my $website = 'http://localhost:63636';
@@ -123,4 +130,138 @@ QUIT: {
       }
 
 # Kill our HTTP Server
-`ps aux | grep http-server\.pl | grep perl | awk '{print \$2}' | xargs kill`;
+if ($^O eq 'MSWin32')
+{
+   system("taskkill /FI \"WINDOWTITLE eq TEMP_HTTP_SERVER\"");
+}
+else
+{
+    `ps aux | grep http-server\.pl | grep perl | awk '{print \$2}' | xargs kill`;
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ type');
+emote server');
+
+apabilities');
+
+
+
+
+
+
+
+
+
+
+
+
+
+ved');
+
+s');
+
+
+
+);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ath');
+
+
+');
+
+
+me');
+
+
+nk text');
+
+
+
+..');
+
+
+cted']");
+
+
+
+
+
+
+);
+
+
+

t/02-webelement-live.t

@@ -19,7 +19,15 @@ BEGIN {
 }
 
 # Start our local http server
-system("perl t/http-server.pl > /dev/null &");
+if ($^O eq 'MSWin32')
+{
+   system("start \"TEMP_HTTP_SERVER\" /MIN perl t/http-server.pl");
+}
+else
+{
+    system("perl t/http-server.pl > /dev/null &");
+}
+
 
 my $driver = new Selenium::Remote::Driver(browser_name => 'firefox');
 my $website = 'http://localhost:63636';
@@ -83,4 +91,11 @@ QUIT: {
       }
 
 # Kill our HTTP Server
-`ps aux | grep http-server\.pl | grep perl | awk '{print \$2}' | xargs kill`;
+if ($^O eq 'MSWin32')
+{
+   system("taskkill /FI \"WINDOWTITLE eq TEMP_HTTP_SERVER\"");
+}
+else
+{
+    `ps aux | grep http-server\.pl | grep perl | awk '{print \$2}' | xargs kill`;
+}