From: <Mar...@nt...> - 2005-01-17 17:25:01
|
Author: MartinCleaver Date: 2005-01-17 09:23:37 -0800 (Mon, 17 Jan 2005) New Revision: 3529 Added: twiki/branches/DEVELOP/test/unit/NeedPerl58ForTests.pm Removed: twiki/branches/DEVELOP/test/unit/FaultyTestCaseOnDreamhost.pm Modified: twiki/branches/DEVELOP/test/unit/RegisterTests.pm Log: RegisterCgiScriptRewrite: added 5.8 version check Deleted: twiki/branches/DEVELOP/test/unit/FaultyTestCaseOnDreamhost.pm =================================================================== --- twiki/branches/DEVELOP/test/unit/FaultyTestCaseOnDreamhost.pm 2005-01-17 17:10:08 UTC (rev 3528) +++ twiki/branches/DEVELOP/test/unit/FaultyTestCaseOnDreamhost.pm 2005-01-17 17:23:37 UTC (rev 3529) @@ -1,19 +0,0 @@ -#use strict; -#use diagnostics; -package FaultyTestCaseOnDreamhost; - -use base qw(Test::Unit::TestCase); - -sub test_thisFaultsTestUnit { - my $self = shift; - $self->assert_equals( "1", "2" ); -} - - -sub new { - my $self = shift()->SUPER::new(@_); - # your state for fixture here - return $self; -} - -1; Copied: twiki/branches/DEVELOP/test/unit/NeedPerl58ForTests.pm (from rev 3523, twiki/branches/DEVELOP/test/unit/FaultyTestCaseOnDreamhost.pm) =================================================================== --- twiki/branches/DEVELOP/test/unit/FaultyTestCaseOnDreamhost.pm 2005-01-17 12:48:00 UTC (rev 3523) +++ twiki/branches/DEVELOP/test/unit/NeedPerl58ForTests.pm 2005-01-17 17:23:37 UTC (rev 3529) @@ -0,0 +1,23 @@ +#use strict; +#use diagnostics; +package NeedPerl58ForTests; + +if ($] < 5.8) { + print "Your Perl version $] is too old to run the tests - please upgrade to 5.8\n"; +} + +use base qw(Test::Unit::TestCase); + +sub test_thisFaultsTestUnit { + my $self = shift; + $self->assert_equals( "1", "2" ); +} + + +sub new { + my $self = shift()->SUPER::new(@_); + # your state for fixture here + return $self; +} + +1; Modified: twiki/branches/DEVELOP/test/unit/RegisterTests.pm =================================================================== --- twiki/branches/DEVELOP/test/unit/RegisterTests.pm 2005-01-17 17:10:08 UTC (rev 3528) +++ twiki/branches/DEVELOP/test/unit/RegisterTests.pm 2005-01-17 17:23:37 UTC (rev 3529) @@ -1,6 +1,5 @@ package RegisterTests; -use TestCaseStdOutCapturer; use base qw(Test::Unit::TestCase); BEGIN { unshift @INC, '../../bin'; |