Test switch_to_window in FF and Chrome

t/01-driver.t

@@ -171,7 +171,6 @@ LOAD_PAGE: {
 
 WINDOW: {
     $ret = $driver->get_current_window_handle();
-    ok($ret =~ m/^{.*}$/, 'Proper window handle received');
     $ret = $driver->get_window_handles();
     is(ref $ret, 'ARRAY', 'Received all window handles');
     $ret = $driver->set_window_position(100,100);

t/10-switch-to-window.t

@@ -1,4 +1,3 @@
-use 5.010;
 use strict;
 use warnings;
 
@@ -11,50 +10,57 @@ use lib $FindBin::Bin . '/lib';
 use TestHarness;
 
 my $harness = TestHarness->new(
-    this_file => $FindBin::Script,
+    this_file => $FindBin::Script
 );
 
-my %selenium_args = (
-    default_finder => 'css',
-    javascript     => 1,
-    %{ $harness->base_caps },
-    browser_name   => 'chrome',
-);
+my @browsers = qw/chrome firefox/;
 
-my $s = Test::Selenium::Remote::Driver->new(
-    %selenium_args
-);
+foreach (@browsers) {
+    my %selenium_args = (
+        default_finder => 'css',
+        javascript     => 1,
+        %{ $harness->base_caps },
+        browser_name   => $_,
+    );
+
+    my $s = Test::Selenium::Remote::Driver->new(
+        %selenium_args
+    );
 
-my $perl_title = 'The Perl Programming Language - www.perl.org';
-my $cpan_title = 'The Comprehensive Perl Archive Network - www.cpan.org';
+    my $perl_title = 'The Perl Programming Language - www.perl.org';
+    my $cpan_title = 'The Comprehensive Perl Archive Network - www.cpan.org';
 
-$s->get_ok('http://perl.org/');
-$s->title_is($perl_title, 'perl.org title matches correctly');
-my $old_handles = $s->get_window_handles;
-is(scalar(@$old_handles), 1, 'got one window handle as expected');
-my $perl_handle = $old_handles->[0];
-# setting the window.name manually
-$s->execute_script(q{return window.name = 'perlorg';});
+    $s->get_ok('http://perl.org/');
+    $s->title_is($perl_title, 'perl.org title matches correctly');
+    my $old_handles = $s->get_window_handles;
+    is(scalar(@$old_handles), 1, 'got one window handle as expected');
+    my $perl_handle = $old_handles->[0];
+    # setting the window.name manually
+    $s->execute_script(q{return window.name = 'perlorg';});
 
-# setting the window.name when opening the other window
-$s->execute_script(q{$(window.open('http://cpan.org/', 'cpanorg'))});
-$s->title_is($perl_title, 'creating a new window keeps us focused on the current window');
+    # setting the window.name when opening the other window
+    $s->execute_script(q{$(window.open('http://cpan.org/', 'cpanorg'))});
+    $s->title_is($perl_title, 'creating a new window keeps us focused on the current window');
 
-my $handles = $s->get_window_handles;
-is(scalar(@$handles), 2, 'get_window_handles sees both of our browser windows');
-# We don't assume any order in the @$handles array:
-my $cpan_handle = $perl_handle eq $handles->[0] ? $handles->[1] : $handles->[0];
+    my $handles = $s->get_window_handles;
+    is(scalar(@$handles), 2, 'get_window_handles sees both of our browser windows');
+    # We don't assume any order in the @$handles array:
+    my $cpan_handle = $perl_handle eq $handles->[0] ? $handles->[1] : $handles->[0];
 
-$s->switch_to_window($cpan_handle);
-$s->title_is($cpan_title, 'can switch to window by handle');
+    $s->switch_to_window($cpan_handle);
+    $s->get_ok('http://cpan.org');
+    $s->title_is($cpan_title, 'can switch to window by handle');
 
-$s->switch_to_window($perl_handle);
-$s->title_is($perl_title, 'can switch back to main window by handle');
+    $s->switch_to_window($perl_handle);
+    $s->title_is($perl_title, 'can switch back to main window by handle');
 
-$s->switch_to_window('cpanorg');
-$s->title_is($cpan_title, 'can switch to window by window title in chrome');
+    if ($_ eq 'chrome') {
+        $s->switch_to_window('cpanorg');
+        $s->title_is($cpan_title, 'can switch to window by window title in chrome');
 
-$s->switch_to_window('perlorg');
-$s->title_is($perl_title, 'can switch to main window by window title in chrome');
+        $s->switch_to_window('perlorg');
+        $s->title_is($perl_title, 'can switch to main window by window title in chrome');
+    }
+}
 
 done_testing;