[TWiki-Dev] [SVN] r3532 - twiki/branches/DEVELOP/test/unit

[<Cra...@nt...>]

Author: CrawfordCurrie
Date: 2005-01-17 10:38:52 -0800 (Mon, 17 Jan 2005)
New Revision: 3532

Modified:
   twiki/branches/DEVELOP/test/unit/NeedPerl58ForTests.pm
   twiki/branches/DEVELOP/test/unit/PrefsTests.pm
Log:
TWikiTestInfrastructure: 5.8 is wrong, should be 5.008, and that test always failed; fixed now.

Modified: twiki/branches/DEVELOP/test/unit/NeedPerl58ForTests.pm
===================================================================
--- twiki/branches/DEVELOP/test/unit/NeedPerl58ForTests.pm	2005-01-17 17:34:32 UTC (rev 3531)
+++ twiki/branches/DEVELOP/test/unit/NeedPerl58ForTests.pm	2005-01-17 18:38:52 UTC (rev 3532)
@@ -2,15 +2,11 @@
 #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" );
+    $self->assert($] >= 5.008, "Your Perl version $] is too old to run the tests - please upgrade to 5.8");
 }
 
 

Modified: twiki/branches/DEVELOP/test/unit/PrefsTests.pm
===================================================================
--- twiki/branches/DEVELOP/test/unit/PrefsTests.pm	2005-01-17 17:34:32 UTC (rev 3531)
+++ twiki/branches/DEVELOP/test/unit/PrefsTests.pm	2005-01-17 18:38:52 UTC (rev 3532)
@@ -28,9 +28,9 @@
 
 sub _set {
     my ( $this, $web, $topic, $pref, $val ) = @_;
-    assert($web) if DEBUG;
-    assert($topic) if DEBUG;
-    assert($pref) if DEBUG;
+    ASSERT($web) if DEBUG;
+    ASSERT($topic) if DEBUG;
+    ASSERT($pref) if DEBUG;
 
     my $text = "";
     if ( -e "$TWiki::dataDir/$web/$topic.txt") {