[Perlunit-users] using Test::Unit::Setup

[Steven H. <msh...@gm...>]

Greetings,

Is there an example usage of Test::Unit::Setup someone could refer me
to? I'm afraid I might be using it the wrong way.

Here is how I've got it in a sample setup:

-----------------------------------
package MITestSuite;

use base qw(Test::Unit::Setup Test::Unit::TestSuite);

sub name{ 'MITestSuite'};

sub include_tests{
    qw(
        SiteMgrTestSuite
        PubSysTestSuite
    );
}
------------------------------------

This outputs:

Suite setup
E
Time:  0 wallclock secs ( 0.00 usr +  0.00 sys =  0.00 CPU)

!!!FAILURES!!!
Test Results:
Run: 0, Failures: 0, Errors: 1

There was 1 error:
Use of uninitialized value in string at
/home/shilton/shared/my_perl/lib/Test/Unit/Decorator.pm line 30.
Use of uninitialized value in string at
/home/shilton/shared/my_perl/lib/Test/Unit/Decorator.pm line 30.
1) /home/shilton/shared/my_perl/lib/Test/Unit/Decorator.pm:15 -
Can't call method "run" on an undefined value
Can't locate object method "annotations" via package "MITestSuite" at
/home/shilton/shared/my_perl/lib/Test/Unit/TestRunner.pm line 107.


I see that the set_up() method is being called successfully, but it's
dying on line 15 because $self->{_fTest} is undefined, and it looks
like it's not being innited in the new() method, because the param
used to populate _fTest is not passed in all the way up the stack.

Am I using Test::Unit::Setup incorrectly?

P.S. I've tried a number of different 'use base()' param lists. Each
had different behavior, but none what I was looking for.

Thanks for any help.

-- 
Steven Hilton <msh...@gm...>
<http://mshiltonj.com/>

"It is the duty of the patriot to protect
 his country from its government." -- Thomas Paine