reuse old session by setting session_id: tests

t/12-reuse-session.t

@@ -0,0 +1,56 @@
+use strict;
+use warnings;
+
+use Carp::Always;
+use Test::More;
+use Test::Selenium::Remote::Driver;
+use Selenium::Remote::Mock::RemoteConnection;
+
+use FindBin;
+use lib $FindBin::Bin . '/lib';
+use TestHarness;
+
+my $harness = TestHarness->new(
+    this_file => $FindBin::Script
+);
+
+my @browsers = qw/chrome firefox/;
+
+foreach (@browsers) {
+    my %selenium_args = (
+        default_finder => 'css',
+        javascript     => 1,
+        %{ $harness->base_caps },
+        browser_name   => $_,
+    );
+
+    my $s1 = Test::Selenium::Remote::Driver->new(
+        %selenium_args
+    );
+    my $s2 = Test::Selenium::Remote::Driver->new(
+        %selenium_args,
+        auto_close => 0,
+        session_id => $s1->session_id,
+    );
+
+    my $s3 = Test::Selenium::Remote::Driver->new(
+        %selenium_args,
+    );
+
+    is($s1->session_id, $s2->session_id, "session_id is reused when specified");
+    isnt($s1->session_id, $s3->session_id, "session_id not reused");
+    pass("session_id.1=". $s2->session_id);
+    pass("session_id.2=". $s2->session_id);
+    pass("session_id.3=". $s3->session_id);
+
+    my $perl_title = 'The Perl Programming Language - www.perl.org';
+    my $cpan_title = 'The Comprehensive Perl Archive Network - www.cpan.org';
+
+    $s1->get_ok('http://perl.org/');
+    $s1->title_is($perl_title, 'perl.org title matches correctly');
+
+    $s3->get_ok('http://perl.org/');
+    $s3->title_is($perl_title, 'perl.org title matches correctly');
+}
+
+done_testing;