--- Tels <[EMAIL PROTECTED]> wrote:
> Well, still it would be good to improve the speed of Devel::Cover, on my box
> (lowly 500 Mhz, yes, I could upgrade to 2 Ghz AMD or so :) a particulary
> project takes 33 minutes for one run... not exactly what I call "interactive"
> :)

Frankly, I think some major work could be done here.  In an attempt to eliminate the 
problem I
had, I wrote a quick program that recursed through directories and ran the tests that 
it found
there.  The core of the loop was something like this:

  my $count = 1;
  my $total = @test_dirs;
  foreach my $dir (@test_dirs) {
    printf "\nProcessing %3d out of %3d:  $dir\n\n", $count, $total;
    chdir $dir;
    my $command = 'perl -MDevel::Cover=-db,/home/ovid/cover_db /usr/bin/rtk_test";
    system($command);
    $count++;
  }

There were 92 test directories in @test_dirs.  By the time I got to the fourth 
directory, I had a
45 megabyte coverage database and the output of top was:

    PID USER   PRI  NI  SIZE  RSS SHARE STAT %CPU %MEM   TIME COMMAND
  22348 cxp     18   0 1133M 1.1G 19280 R    99.9 55.5  30:29 perl

Needless to say, I killed the tests.  I've never dug into the internals of 
Devel::Cover so I don't
know how easy it would be to fix this (and maybe there's something really silly that 
I've
overlooked).  Unless I get very lucky, I think the code coverage project here is dead.

Cheers,
Ovid

=====
Silence is Evil            http://users.easystreet.com/ovid/philosophy/indexdecency.htm
Ovid                       http://www.perlmonks.org/index.pl?node_id=17000
Web Programming with Perl  http://users.easystreet.com/ovid/cgi_course/

__________________________________
Do you Yahoo!?
The New Yahoo! Shopping - with improved product search
http://shopping.yahoo.com

Reply via email to