From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

#!/usr/bin/env perl
use strict;
use FindBin;
use lib $FindBin::Bin . '/lib';
my %selenium_args = %{ TestHarness->new(
this_file => $FindBin::Script
)->base_caps };
# Try to find
my $t = Test::Selenium::Remote::Driver->new(
%selenium_args
);
$t->get_ok('http://www.google.com');
$t->title_like(qr/Google/);
$t->body_like(qr/Google/);
done_testing();