File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 11use strict;
22use warnings;
3+
34use Test::More;
5+ use Test::MockModule;
6+
47use Test::Selenium::Remote::Driver;
58use Selenium::Remote::Mock::RemoteConnection;
69
@@ -15,12 +18,16 @@ my $harness = TestHarness->new(
1518);
1619my %selenium_args = %{ $harness -> base_caps };
1720
21+ use Carp::Always;
22+ my $selfmock = Test::MockModule-> new(' Selenium::Remote::Driver' );
23+ $selfmock -> redefine(' new_session' , sub { my $self = shift ; $self -> {session_id } = " 58aff7be-e46c-42c0-ae5e-571ea1c1f466" });
24+
1825# Try to find
1926my $t = Test::Selenium::Remote::Driver-> new(
2027 %selenium_args
2128);
2229$t -> get_ok(' http://www.google.com' );
23- $t -> title_like(qr / Google/ );
24- $t -> body_like(qr / Google/ );
30+ $t -> title_like(qr / Google/ , ' head retrieved ' );
31+ $t -> body_like(qr / Google/ , ' body retrieved ' );
2532
2633done_testing();
You can’t perform that action at this time.
0 commit comments