#!/usr/bin/env perl
use FindBin qw/$Bin/;
+BEGIN {
+ my $env = "$FindBin::Bin/../script/env";
+ if (-r $env) {
+ do $env or die $@;
+ }
+}
+
use lib "$Bin/lib";
use TestGitalist;
-plan 'skip_all' => 'Either Test::WWW::Mechanize::Catalyst or WWW::Mechanize::TreeBuilder not present' unless MECH();
+plan 'skip_all' => "One or more of the following modules aren't present: Test::WWW::Mechanize::Catalyst WWW::Mechanize::TreeBuilder HTML::TreeBuilder::XPath" unless MECH();
MECH->get_ok('/');
{
my $uri = $row->findnodes('.//a')->[0]->attr('href');
my ($repos_name) = $uri =~ m{^http://localhost/([\w\.]+)$};
ok $repos_name, "Repos name $repos_name";
- like $row->findnodes('.//a')->[1]->as_text, qr/^[\w\s;'\.]+$/, 'Have description'
+ like $row->findnodes('.//a')->[1]->as_text, qr{^[\w\s/;',\.]+$}, 'Have description'
unless $repos_name eq 'nodescription';
like $row->findnodes('.//td[@class="time-since"')->[0]->as_text, qr/^(never|\d\s+(years|months)\s+ago)$/,
'Last change looks ok';