4 my $env = "$FindBin::Bin/../script/env";
12 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();
16 my $nodeset = MECH->findnodes('/html/body//tr[@class="repository"]');
17 foreach my $row ($nodeset->get_nodelist) {
18 my $uri = $row->findnodes('.//a')->[0]->attr('href');
19 my ($repos_name) = $uri =~ m{^http://localhost/([\w\.]+)};
20 ok $repos_name, "Repos name $repos_name";
21 like $row->findnodes('.//a')->[1]->as_text, qr{^[\w\s/;',\.]+$}, 'Have description'
22 unless $repos_name eq 'nodescription';
23 like $row->findnodes('.//td[@class="time-since"')->[0]->as_text, qr/^(never|\d+\s+(years|months)\s+ago)$/,
24 'Last change looks ok';
25 my ($shortlog, $log, $tree) = $row->findnodes('.//td[@class="action-list"]/a')->get_nodelist;
26 $uri =~ s{/summary}{};
27 like $shortlog->as_text, qr/short log/i, 'shortlog text ok';
28 is $shortlog->attr('href'), "$uri/shortlog", 'shortlog href ok';
29 like $log->as_text, qr/log/, 'log text ok';
30 is $log->attr('href'), "$uri/log", 'log href ok';
31 like $tree->as_text, qr/tree/, 'tree text ok';
32 is $tree->attr('href'), "$uri/HEAD/tree", 'tree href ok';