Front page | perl.qa |
Postings from November 2007
I ended up going with this solution. Incidentally, it is runtests(), and I think the first 1; is unnecessary (at least it seems to be for me). Thanks! Jon On Oct 26, 2007, at 10:39 AM, Tom Heady wrote: > Jonathan Swartz wrote: >> ... >> I'd like to avoid actually running a single script per class, for >> efficiency reasons - i.e. I agree with Ovid and Adrian here: >> http://use.perl.org/~Ovid/journal/31172 >> ... > > > I get around the problem described in that post thusly: > > foo.t: > ------ > #!/usr/bin/perl > > foo::Test->Runtests; > > 1; > > package foo::Test; > > use base 'Test::Class'; > > is ( $dog , $cat , 'does dog eq cat?' ); > > 1; > > -------------------- > Tom