I'm using a 5.005 version so I made the change from "use base" to the
old "use x; use vars (@ISA); @ISA = qw(x); on all the files.
If you decide that's the way to go, I've attached the diffs. I grabbed
the source from cvs this afternoon.
-Kevin
Index: Test-Unit/lib//Test/Unit/ExceptionError.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/ExceptionError.pm,v
retrieving revision 1.4
diff -c -3 -p -r1.4 ExceptionError.pm
*** Test-Unit/lib//Test/Unit/ExceptionError.pm 2001/02/20 21:31:05 1.4
--- Test-Unit/lib//Test/Unit/ExceptionError.pm 2001/03/24 07:27:08
***************
*** 1,6 ****
package Test::Unit::ExceptionError;
use strict;
! use base qw(Test::Unit::Exception);
1;
__END__
--- 1,6 ----
package Test::Unit::ExceptionError;
use strict;
! use Test::Unit::Exception; use vars qw(@ISA); @ISA = qw(Test::Unit::Exception);
1;
__END__
Index: Test-Unit/lib//Test/Unit/ExceptionFailure.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/ExceptionFailure.pm,v
retrieving revision 1.4
diff -c -3 -p -r1.4 ExceptionFailure.pm
*** Test-Unit/lib//Test/Unit/ExceptionFailure.pm 2001/02/20 21:31:05 1.4
--- Test-Unit/lib//Test/Unit/ExceptionFailure.pm 2001/03/24 07:27:08
***************
*** 1,6 ****
package Test::Unit::ExceptionFailure;
use strict;
! use base qw(Test::Unit::Exception);
1;
__END__
--- 1,6 ----
package Test::Unit::ExceptionFailure;
use strict;
! use Test::Unit::Exception; use vars qw(@ISA); @ISA = qw(Test::Unit::Exception);
1;
__END__
Index: Test-Unit/lib//Test/Unit/HarnessUnit.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/HarnessUnit.pm,v
retrieving revision 1.8
diff -c -3 -p -r1.8 HarnessUnit.pm
*** Test-Unit/lib//Test/Unit/HarnessUnit.pm 2001/02/22 18:45:59 1.8
--- Test-Unit/lib//Test/Unit/HarnessUnit.pm 2001/03/24 07:27:08
*************** package Test::Unit::HarnessUnit;
*** 4,10 ****
use strict;
use constant DEBUG => 0;
! use base qw(Test::Unit::TestListener);
use Test::Unit::TestSuite;
use Test::Unit::TestResult;
--- 4,10 ----
use strict;
use constant DEBUG => 0;
! use Test::Unit::TestListener; use vars qw(@ISA); @ISA =
qw(Test::Unit::TestListener);
use Test::Unit::TestSuite;
use Test::Unit::TestResult;
Index: Test-Unit/lib//Test/Unit/InnerClass.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/InnerClass.pm,v
retrieving revision 1.6
diff -c -3 -p -r1.6 InnerClass.pm
*** Test-Unit/lib//Test/Unit/InnerClass.pm 2001/02/22 18:55:31 1.6
--- Test-Unit/lib//Test/Unit/InnerClass.pm 2001/03/24 07:27:08
*************** if (defined($Test::Unit::InnerClass::SIG
*** 25,31 ****
my $inner_class_name = "${class}::${classname}";
my $code = <<EOEVAL;
package $inner_class_name;
! use base qw($class);
$extension_text
EOEVAL
--- 25,31 ----
my $inner_class_name = "${class}::${classname}";
my $code = <<EOEVAL;
package $inner_class_name;
! use base qw($class);
$extension_text
EOEVAL
Index: Test-Unit/lib//Test/Unit/Test.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/Test.pm,v
retrieving revision 1.6
diff -c -3 -p -r1.6 Test.pm
*** Test-Unit/lib//Test/Unit/Test.pm 2001/02/20 21:31:05 1.6
--- Test-Unit/lib//Test/Unit/Test.pm 2001/03/24 07:27:08
*************** package Test::Unit::Test;
*** 2,8 ****
use strict;
use constant DEBUG => 0;
! use base qw(Test::Unit::Assert);
use Carp;
--- 2,8 ----
use strict;
use constant DEBUG => 0;
! use Test::Unit::Assert; use vars qw(@ISA); @ISA = qw(Test::Unit::Assert);
use Carp;
Index: Test-Unit/lib//Test/Unit/TestCase.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/TestCase.pm,v
retrieving revision 1.19
diff -c -3 -p -r1.19 TestCase.pm
*** Test-Unit/lib//Test/Unit/TestCase.pm 2001/03/07 20:15:14 1.19
--- Test-Unit/lib//Test/Unit/TestCase.pm 2001/03/24 07:27:08
*************** package Test::Unit::TestCase;
*** 2,8 ****
use strict;
use constant DEBUG => 0;
! use base qw(Test::Unit::Test);
use Test::Unit::ExceptionFailure;
use Test::Unit::ExceptionError;
--- 2,8 ----
use strict;
use constant DEBUG => 0;
! use Test::Unit::Test; use vars qw(@ISA); @ISA = qw(Test::Unit::Test);
use Test::Unit::ExceptionFailure;
use Test::Unit::ExceptionError;
*************** Test::Unit::TestCase - unit testing fram
*** 113,119 ****
=head1 SYNOPSIS
package FooBar;
! use base qw(Test::Unit::TestCase);
sub new {
my $self = shift()->SUPER::new(@_);
--- 113,119 ----
=head1 SYNOPSIS
package FooBar;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
sub new {
my $self = shift()->SUPER::new(@_);
*************** Each test runs in its own fixture so the
*** 165,171 ****
effects among test runs. Here is an example:
package MathTest;
! use base qw(Test::Unit::TestCase);
sub new {
my $self = shift()->SUPER::new(@_);
--- 165,171 ----
effects among test runs. Here is an example:
package MathTest;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
sub new {
my $self = shift()->SUPER::new(@_);
Index: Test-Unit/lib//Test/Unit/TestRunner.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/TestRunner.pm,v
retrieving revision 1.9
diff -c -3 -p -r1.9 TestRunner.pm
*** Test-Unit/lib//Test/Unit/TestRunner.pm 2001/03/08 09:35:22 1.9
--- Test-Unit/lib//Test/Unit/TestRunner.pm 2001/03/24 07:27:08
*************** package Test::Unit::TestRunner;
*** 2,8 ****
use strict;
use constant DEBUG => 0;
! use base qw(Test::Unit::TestListener);
use Test::Unit::TestSuite;
use Test::Unit::TestResult;
--- 2,8 ----
use strict;
use constant DEBUG => 0;
! use Test::Unit::TestListener; use vars qw(@ISA); @ISA =
qw(Test::Unit::TestListener);
use Test::Unit::TestSuite;
use Test::Unit::TestResult;
Index: Test-Unit/lib//Test/Unit/TestSuite.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/TestSuite.pm,v
retrieving revision 1.11
diff -c -3 -p -r1.11 TestSuite.pm
*** Test-Unit/lib//Test/Unit/TestSuite.pm 2001/02/27 10:51:36 1.11
--- Test-Unit/lib//Test/Unit/TestSuite.pm 2001/03/24 07:27:08
***************
*** 1,7 ****
package Test::Unit::TestSuite;
use strict;
use constant DEBUG => 0;
! use base qw(Test::Unit::Test);
use Test::Unit::TestCase;
use Test::Unit::InnerClass;
--- 1,7 ----
package Test::Unit::TestSuite;
use strict;
use constant DEBUG => 0;
! use Test::Unit::Test; use vars qw(@ISA); @ISA = qw(Test::Unit::Test);
use Test::Unit::TestCase;
use Test::Unit::InnerClass;
*************** sub warning {
*** 155,161 ****
package Test::Unit::TestSuite::_warning;
use strict;
! use base 'Test::Unit::TestCase';
sub run_test {
my $self = shift;
--- 155,161 ----
package Test::Unit::TestSuite::_warning;
use strict;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
sub run_test {
my $self = shift;
Index: Test-Unit/lib//Test/Unit/TkTestRunner.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/TkTestRunner.pm,v
retrieving revision 1.11
diff -c -3 -p -r1.11 TkTestRunner.pm
*** Test-Unit/lib//Test/Unit/TkTestRunner.pm 2001/02/20 21:31:05 1.11
--- Test-Unit/lib//Test/Unit/TkTestRunner.pm 2001/03/24 07:27:08
***************
*** 1,6 ****
#!/usr/bin/perl
package Test::Unit::TkTestRunner;
! use base qw(Test::Unit::TestListener);
use constant COPYRIGHT_NOTICE => <<'END_COPYRIGHT_NOTICE';
This the PerlUnit Tk Test Runner.
Copyright (C) 2000 Christian Lemburg, Brian Ewins,
--- 1,6 ----
#!/usr/bin/perl
package Test::Unit::TkTestRunner;
! use Test::Unit::TestListener; use vars qw(@ISA); @ISA = qw(Test::Unit::TestListener);
use constant COPYRIGHT_NOTICE => <<'END_COPYRIGHT_NOTICE';
This the PerlUnit Tk Test Runner.
Copyright (C) 2000 Christian Lemburg, Brian Ewins,
*************** use Tk::DialogBox;
*** 438,444 ****
use Carp;
use strict;
! use base qw(Tk::Derived Tk::Canvas);
Construct Tk::Widget 'ArrayBar';
--- 438,447 ----
use Carp;
use strict;
! use Tk::Derived;
! use Tk::Canvas;
! use vars qw(@ISA);
! @ISA = qw(Tk::Derived Tk::Canvas);
Construct Tk::Widget 'ArrayBar';
Index: Test-Unit/lib//Test/Unit/UnitHarness.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/UnitHarness.pm,v
retrieving revision 1.7
diff -c -3 -p -r1.7 UnitHarness.pm
*** Test-Unit/lib//Test/Unit/UnitHarness.pm 2001/02/20 21:31:05 1.7
--- Test-Unit/lib//Test/Unit/UnitHarness.pm 2001/03/24 07:27:08
***************
*** 3,9 ****
package Test::Unit::UnitHarness;
BEGIN {require 5.002;}
! use base qw(Test::Unit::TestListener Test::Unit::Test);
use Exporter;
use Config;
use Carp;
--- 3,11 ----
package Test::Unit::UnitHarness;
BEGIN {require 5.002;}
! use Test::Unit::TestListener;
! use Test::Unit::Test;
! use vars qw(@ISA); @ISA = qw(Test::Unit::TestListener Test::Unit::Test);
use Exporter;
use Config;
use Carp;
*************** EOIC
*** 157,163 ****
}
package Test::Unit::UnitHarness::TestCase;
! use base qw(Test::Unit::TestCase);
sub run_test {
my $self = shift;
--- 159,165 ----
}
package Test::Unit::UnitHarness::TestCase;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
sub run_test {
my $self = shift;
*************** sub run_test {
*** 167,173 ****
}
package Test::Unit::UnitHarness::Exception;
! use base qw(Test::Unit::Exception);
use strict;
sub new {
--- 169,175 ----
}
package Test::Unit::UnitHarness::Exception;
! use Test::Unit::Exception; use vars qw(@ISA); @ISA = qw(Test::Unit::Exception);
use strict;
sub new {
Index: Test-Unit/lib//Test/Unit/Assertion/Boolean.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/Assertion/Boolean.pm,v
retrieving revision 1.2
diff -c -3 -p -r1.2 Boolean.pm
*** Test-Unit/lib//Test/Unit/Assertion/Boolean.pm 2001/03/08 09:35:22 1.2
--- Test-Unit/lib//Test/Unit/Assertion/Boolean.pm 2001/03/24 07:27:08
***************
*** 1,7 ****
package Test::Unit::Assertion::Boolean;
use strict;
! use base 'Test::Unit::Assertion';
sub new {
my $class = shift;
--- 1,7 ----
package Test::Unit::Assertion::Boolean;
use strict;
! use Test::Unit::Assertion; use vars qw(@ISA); @ISA = qw(Test::Unit::Assertion);
sub new {
my $class = shift;
*************** Look, I've told you, there's nothing goi
*** 46,49 ****
at the listing of this module you'll see that it does almost nothing.
Why on earth you're still reading at this point is something of a
mystery to me. After all, if you're hacking on the Test::Unit source
! code you'll be able to use the Source.
\ No newline at end of file
--- 46,49 ----
at the listing of this module you'll see that it does almost nothing.
Why on earth you're still reading at this point is something of a
mystery to me. After all, if you're hacking on the Test::Unit source
! code you'll be able to use the Source.
Index: Test-Unit/lib//Test/Unit/Assertion/CodeRef.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/Assertion/CodeRef.pm,v
retrieving revision 1.2
diff -c -3 -p -r1.2 CodeRef.pm
*** Test-Unit/lib//Test/Unit/Assertion/CodeRef.pm 2001/03/08 09:35:22 1.2
--- Test-Unit/lib//Test/Unit/Assertion/CodeRef.pm 2001/03/24 07:27:08
***************
*** 1,7 ****
package Test::Unit::Assertion::CodeRef;
use strict;
! use base qw/Test::Unit::Assertion/;
require Test::Unit::ExceptionFailure;
--- 1,7 ----
package Test::Unit::Assertion::CodeRef;
use strict;
! use Test::Unit::Assertion; use vars qw(@ISA); @ISA = qw(Test::Unit::Assertion);
require Test::Unit::ExceptionFailure;
Index: Test-Unit/lib//Test/Unit/Assertion/Regexp.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/Assertion/Regexp.pm,v
retrieving revision 1.2
diff -c -3 -p -r1.2 Regexp.pm
*** Test-Unit/lib//Test/Unit/Assertion/Regexp.pm 2001/03/08 09:35:22 1.2
--- Test-Unit/lib//Test/Unit/Assertion/Regexp.pm 2001/03/24 07:27:08
***************
*** 1,7 ****
package Test::Unit::Assertion::Regexp;
use strict;
! use base qw/Test::Unit::Assertion/;
sub new {
my $class = shift;
--- 1,7 ----
package Test::Unit::Assertion::Regexp;
use strict;
! use Test::Unit::Assertion; use vars qw(@ISA); @ISA = qw(Test::Unit::Assertion);
sub new {
my $class = shift;
Index: Test-Unit/lib//Test/Unit/tests/InheritedInheritedTestCase.pm
===================================================================
RCS file:
/cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/InheritedInheritedTestCase.pm,v
retrieving revision 1.2
diff -c -3 -p -r1.2 InheritedInheritedTestCase.pm
*** Test-Unit/lib//Test/Unit/tests/InheritedInheritedTestCase.pm 2000/03/06
19:05:15 1.2
--- Test-Unit/lib//Test/Unit/tests/InheritedInheritedTestCase.pm 2001/03/24
07:27:08
*************** package Test::Unit::tests::InheritedInhe
*** 2,8 ****
# Test class used in SuiteTest
! use base qw(Test::Unit::tests::InheritedTestCase);
sub new {
shift()->SUPER::new(@_);
--- 2,8 ----
# Test class used in SuiteTest
! use Test::Unit::tests::InheritedTestCase; use vars qw(@ISA); @ISA =
qw(Test::Unit::tests::InheritedTestCase);
sub new {
shift()->SUPER::new(@_);
Index: Test-Unit/lib//Test/Unit/tests/InheritedTestCase.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/InheritedTestCase.pm,v
retrieving revision 1.2
diff -c -3 -p -r1.2 InheritedTestCase.pm
*** Test-Unit/lib//Test/Unit/tests/InheritedTestCase.pm 2000/03/06 19:02:03 1.2
--- Test-Unit/lib//Test/Unit/tests/InheritedTestCase.pm 2001/03/24 07:27:08
*************** package Test::Unit::tests::InheritedTest
*** 2,8 ****
# Test class used in SuiteTest
! use base qw(Test::Unit::tests::OneTestCase);
sub new {
shift()->SUPER::new(@_);
--- 2,8 ----
# Test class used in SuiteTest
! use Test::Unit::tests::OneTestCase; use vars qw(@ISA); @ISA =
qw(Test::Unit::tests::OneTestCase);
sub new {
shift()->SUPER::new(@_);
Index: Test-Unit/lib//Test/Unit/tests/NoTestCases.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/NoTestCases.pm,v
retrieving revision 1.1
diff -c -3 -p -r1.1 NoTestCases.pm
*** Test-Unit/lib//Test/Unit/tests/NoTestCases.pm 2000/02/22 07:16:17 1.1
--- Test-Unit/lib//Test/Unit/tests/NoTestCases.pm 2001/03/24 07:27:08
***************
*** 1,7 ****
package Test::Unit::tests::NoTestCases;
use strict;
! use base qw(Test::Unit::TestCase);
sub new {
my $class = shift;
--- 1,7 ----
package Test::Unit::tests::NoTestCases;
use strict;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
sub new {
my $class = shift;
Index: Test-Unit/lib//Test/Unit/tests/OneTestCase.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/OneTestCase.pm,v
retrieving revision 1.2
diff -c -3 -p -r1.2 OneTestCase.pm
*** Test-Unit/lib//Test/Unit/tests/OneTestCase.pm 2000/03/06 19:07:35 1.2
--- Test-Unit/lib//Test/Unit/tests/OneTestCase.pm 2001/03/24 07:27:08
*************** package Test::Unit::tests::OneTestCase;
*** 2,8 ****
# Test class used in SuiteTest
! use base qw(Test::Unit::TestCase);
sub new {
shift()->SUPER::new(@_);
--- 2,8 ----
# Test class used in SuiteTest
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
sub new {
shift()->SUPER::new(@_);
Index: Test-Unit/lib//Test/Unit/tests/OverrideTestCase.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/OverrideTestCase.pm,v
retrieving revision 1.2
diff -c -3 -p -r1.2 OverrideTestCase.pm
*** Test-Unit/lib//Test/Unit/tests/OverrideTestCase.pm 2000/03/06 19:09:42 1.2
--- Test-Unit/lib//Test/Unit/tests/OverrideTestCase.pm 2001/03/24 07:27:08
*************** use strict;
*** 3,9 ****
# Test class used in SuiteTest
! use base qw(Test::Unit::tests::OneTestCase);
sub new {
shift()->SUPER::new(@_);
--- 3,9 ----
# Test class used in SuiteTest
! use Test::Unit::tests::OneTestCase; use vars qw(@ISA); @ISA =
qw(Test::Unit::tests::OneTestCase);
sub new {
shift()->SUPER::new(@_);
Index: Test-Unit/lib//Test/Unit/tests/SuiteTest.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/SuiteTest.pm,v
retrieving revision 1.7
diff -c -3 -p -r1.7 SuiteTest.pm
*** Test-Unit/lib//Test/Unit/tests/SuiteTest.pm 2001/03/08 09:35:22 1.7
--- Test-Unit/lib//Test/Unit/tests/SuiteTest.pm 2001/03/24 07:27:08
*************** package Test::Unit::tests::SuiteTest;
*** 2,8 ****
use strict;
! use base qw(Test::Unit::TestCase);
use Test::Unit::TestResult;
use Test::Unit::TestSuite;
--- 2,8 ----
use strict;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
use Test::Unit::TestResult;
use Test::Unit::TestSuite;
*************** sub test_complex_inheritance {
*** 85,91 ****
my $self = shift;
eval q{
package Test::Unit::tests::_SuperClass;
! use base qw(Test::Unit::TestCase);
sub test_case {
my $self = shift;
$self->assert($self->override_this_method );
--- 85,91 ----
my $self = shift;
eval q{
package Test::Unit::tests::_SuperClass;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
sub test_case {
my $self = shift;
$self->assert($self->override_this_method );
*************** sub test_complex_inheritance {
*** 93,99 ****
sub override_this_method { 0 ; }
package Test::Unit::tests::_SubClass;
! use base qw(Test::Unit::tests::_SuperClass);
sub override_this_method { 1 ; }
};
die $@ if $@;
--- 93,99 ----
sub override_this_method { 0 ; }
package Test::Unit::tests::_SubClass;
! use vars qw(@ISA); @ISA = qw(Test::Unit::tests::_SuperClass);
sub override_this_method { 1 ; }
};
die $@ if $@;
Index: Test-Unit/lib//Test/Unit/tests/TestAssertionCodeRef.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/TestAssertionCodeRef.pm,v
retrieving revision 1.2
diff -c -3 -p -r1.2 TestAssertionCodeRef.pm
*** Test-Unit/lib//Test/Unit/tests/TestAssertionCodeRef.pm 2001/03/08 09:35:22
1.2
--- Test-Unit/lib//Test/Unit/tests/TestAssertionCodeRef.pm 2001/03/24 07:27:08
***************
*** 1,7 ****
package Test::Unit::tests::TestAssertionCodeRef;
use strict;
! use base qw(Test::Unit::TestCase);
sub test_case_to_string { my $self = shift; $self->assert(sub { my
$self = shift; $self->to_string eq shift; }, $self,
--- 1,7 ----
package Test::Unit::tests::TestAssertionCodeRef;
use strict;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
sub test_case_to_string { my $self = shift; $self->assert(sub { my
$self = shift; $self->to_string eq shift; }, $self,
Index: Test-Unit/lib//Test/Unit/tests/TestInnerClass.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/TestInnerClass.pm,v
retrieving revision 1.3
diff -c -3 -p -r1.3 TestInnerClass.pm
*** Test-Unit/lib//Test/Unit/tests/TestInnerClass.pm 2000/02/26 13:24:14 1.3
--- Test-Unit/lib//Test/Unit/tests/TestInnerClass.pm 2001/03/24 07:27:08
***************
*** 1,7 ****
package Test::Unit::tests::TestInnerClass;
use strict;
! use base qw(Test::Unit::TestCase);
use Test::Unit::InnerClass;
sub test_inner_class_multiple_load {
--- 1,7 ----
package Test::Unit::tests::TestInnerClass;
use strict;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
use Test::Unit::InnerClass;
sub test_inner_class_multiple_load {
Index: Test-Unit/lib//Test/Unit/tests/TestListenerTest.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/TestListenerTest.pm,v
retrieving revision 1.2
diff -c -3 -p -r1.2 TestListenerTest.pm
*** Test-Unit/lib//Test/Unit/tests/TestListenerTest.pm 2000/03/06 19:14:41 1.2
--- Test-Unit/lib//Test/Unit/tests/TestListenerTest.pm 2001/03/24 07:27:08
*************** package Test::Unit::tests::TestListenerT
*** 2,8 ****
# Test class used in SuiteTest
! use base qw(Test::Unit::TestCase Test::Unit::TestListener Test::Unit::InnerClass);
use Test::Unit::TestResult;
--- 2,12 ----
# Test class used in SuiteTest
! use Test::Unit::TestCase;
! use Test::Unit::TestListener;
! use Test::Unit::InnerClass;
! use vars qw(@ISA);
! @ISA = qw(Test::Unit::TestCase Test::Unit::TestListener Test::Unit::InnerClass);
use Test::Unit::TestResult;
Index: Test-Unit/lib//Test/Unit/tests/TestTest.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/TestTest.pm,v
retrieving revision 1.7
diff -c -3 -p -r1.7 TestTest.pm
*** Test-Unit/lib//Test/Unit/tests/TestTest.pm 2001/03/08 09:35:22 1.7
--- Test-Unit/lib//Test/Unit/tests/TestTest.pm 2001/03/24 07:27:08
***************
*** 1,7 ****
package Test::Unit::tests::TestTest;
use strict;
! use base qw(Test::Unit::TestCase);
use Test::Unit::tests::TornDown;
use Test::Unit::tests::WasRun;
--- 1,7 ----
package Test::Unit::tests::TestTest;
use strict;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
use Test::Unit::tests::TornDown;
use Test::Unit::tests::WasRun;
Index: Test-Unit/lib//Test/Unit/tests/TestUnitTest.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/TestUnitTest.pm,v
retrieving revision 1.5
diff -c -3 -p -r1.5 TestUnitTest.pm
*** Test-Unit/lib//Test/Unit/tests/TestUnitTest.pm 2000/07/09 19:12:42 1.5
--- Test-Unit/lib//Test/Unit/tests/TestUnitTest.pm 2001/03/24 07:27:08
*************** package Test::Unit::tests::TestUnitTest;
*** 2,8 ****
use strict;
! use base qw(Test::Unit::TestCase);
use constant DEBUG => 0;
--- 2,8 ----
use strict;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
use constant DEBUG => 0;
Index: Test-Unit/lib//Test/Unit/tests/TornDown.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/TornDown.pm,v
retrieving revision 1.2
diff -c -3 -p -r1.2 TornDown.pm
*** Test-Unit/lib//Test/Unit/tests/TornDown.pm 2000/03/06 19:24:51 1.2
--- Test-Unit/lib//Test/Unit/tests/TornDown.pm 2001/03/24 07:27:08
***************
*** 1,6 ****
package TornDown;
! use base qw(Test::Unit::TestCase);
sub new {
my $self = shift()->SUPER::new(@_);
--- 1,6 ----
package TornDown;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
sub new {
my $self = shift()->SUPER::new(@_);
Index: Test-Unit/lib//Test/Unit/tests/WasRun.pm
===================================================================
RCS file: /cvsroot/perlunit/src/Test-Unit/lib/Test/Unit/tests/WasRun.pm,v
retrieving revision 1.2
diff -c -3 -p -r1.2 WasRun.pm
*** Test-Unit/lib//Test/Unit/tests/WasRun.pm 2000/03/06 19:27:42 1.2
--- Test-Unit/lib//Test/Unit/tests/WasRun.pm 2001/03/24 07:27:08
***************
*** 1,7 ****
package WasRun;
use strict;
! use base qw(Test::Unit::TestCase);
sub new {
my $self = shift()->SUPER::new(@_);
--- 1,7 ----
package WasRun;
use strict;
! use Test::Unit::TestCase; use vars qw(@ISA); @ISA = qw(Test::Unit::TestCase);
sub new {
my $self = shift()->SUPER::new(@_);
