Pugs Smoke test

[mkirank]

I have integrated Test::WWW::Selenium with the pugs smoke test suite to create a graphical output of the tests for our Application. Its bascically these scripts
run-smoke.pl
yaml-harness.pl
testgraph.pl
catalog_tests.pl
I am able to run the tests and the HTML output created but when i click on the Individual test it does not point to the correct test case. This seems to be happening even in the Pugs test output. looking into testgraph.pl the following code

    package My::Subtest;
    use base qw/Test::TAP::Model::Subtest::Visual/;
    sub link {
        my $self = shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t(?=#line|$)/.html/;
        File::Spec->catdir("t_index",$link);
    }

the $self->SUPER::link is returning a # . The cause seems to be something to do with Test::TAP::Model::Subtest but i am not sure . Any pointers on where the problem could be ?

Thanks to the Pugs team for the modules

[gaal]

testgraph.pl has been superseded by util/smartlinks.pl. Give that a try? Also, please /msg me your email address so I can send you a commit bit, so you can easily push in any improvements you make :-)

[mkirank]

This info is rendered by the pugs Test.pm it ouputs a line

 $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLE
+R;

I am assuming that to get the same in perl 5 I will need to subclass the Test::Builder and use the caller method to get filename and position .. smartlinks is linking the tests to synopsis so will not be useful for my purpose.. thanks for your reply.