Skip Menu |
 

This queue is for tickets about the Devel-Graph CPAN distribution.

Report information
The Basics
Id: 42221
Status: new
Priority: 0/
Queue: Devel-Graph

People
Owner: Nobody in particular
Requestors: Marek.Rouchal [...] gmx.net
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.12
Fixed in: (no value)



Subject: test fails with recent version of Test::More
Download (untitled) / with headers
text/plain 126b
Recent versions of Test::More don't like use_ok before plan(). The attached patch corrects the problem for me. Cheers, Marek
Subject: Devel-Graph.diff
Download Devel-Graph.diff
text/x-diff 1k
diff -ruN Devel-Graph-0.12/t/parse.t Devel-Graph-0.12p1/t/parse.t --- Devel-Graph-0.12/t/parse.t 2007-02-02 18:56:26.000000000 +0100 +++ Devel-Graph-0.12p1/t/parse.t 2009-01-08 09:18:37.275329000 +0100 @@ -6,31 +6,31 @@ # Parse test snippets from t/data/ and compare them to the stored output +my @files; + BEGIN { chdir 't' if -d 't'; use lib '../lib'; + if (@ARGV) + { + @files = shift; + plan tests => 3; + } + else + { + # get all files to test + opendir(DIR, 'data') or die("Can’t opendir 'data': $!"); + @files = readdir(DIR); + closedir DIR; + plan tests => 30; + } use_ok ("Devel::Graph") or die($@); }; ############################################################################# # OO interface -my @files; - -if (@ARGV) - { - @files = shift; - plan tests => 2; - } -else - { - # get all files to test - opendir(DIR, 'data') or die("Can’t opendir 'data': $!"); - @files = readdir(DIR); - closedir DIR; - plan tests => 29; - } my $graph; my @failures;


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.