| Subject: | Wrong test location reported in diagnostics for failing tests |
For example:
# Error requesting http://localhost:4444/selenium-server/driver/:
# XHR ERROR: URL = http://twoshortplanks.com/404notfound Response_Code = 404
Error_Message = Not Found
# Failed test 'open, http://twoshortplanks.com/404notfound, 5'
# at /Users/mark/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/darwin-
2level/Moose/Meta/Method/Delegation.pm line 110.
Failing test attached
| Subject: | bug.t |
#!/usr/bin/env perl
use strict;
use warnings;
use Test::WWW::Selenium;
use Test::WWW::Selenium::More;
@::config = (
browser_url => "http://www.google.com",
);
package main;
use Test::More tests => 2;
use Test::Builder::Tester;
test_diag("Error requesting http://localhost:4444/selenium-server/driver/:");
test_diag("XHR ERROR: URL = http://twoshortplanks.com/404notfound Response_Code = 404 Error_Message = Not Found");
test_out("not ok 1 - open, http://twoshortplanks.com/404notfound, 5");
test_fail(+18);
Tester->new->test;
test_test("Test::WWW::Selenium");
test_diag("Error requesting http://localhost:4444/selenium-server/driver/:");
test_diag("XHR ERROR: URL = http://twoshortplanks.com/404notfound Response_Code = 404 Error_Message = Not Found");
test_out("not ok 1 - open, http://twoshortplanks.com/404notfound, 5");
test_fail(+21);
Tester2->new->test;
test_test("Test::WWW::Selenium::More");
package Tester;
use base qw(Test::WWW::Selenium);
sub new { my $self = shift; return $self->SUPER::new( @::config ) }
sub test {
my $self = shift;
$self->open_ok("http://twoshortplanks.com/404notfound",5);
}
package Tester2;
use base qw(Test::WWW::Selenium::More);
sub new { my $self = shift; return $self->SUPER::new( @::config ) }
sub test {
my $self = shift;
$self->open_ok("http://twoshortplanks.com/404notfound",5);
}