Changeset 1147 in ProjectBuilder

Timestamp:

Jan 11, 2011, 1:13:43 PM (13 years ago)

Author:

Bruno Cornec

Message:

• A inimal version of Test::More is required to perform test (especially on older version). Now fixed

Location:

devel/pb-modules/t

Files:

• Base.t (modified) (1 diff)
• Log.t (modified) (2 diffs)

devel/pb-modules/t/Base.t

@@ -8 +8 @@
 eval
 {
-  require Test::More;
-  Test::More->import();
+    require Test::More;
+    Test::More->import();
+    my ($tmv,$tmsv) = split(/\./,$Test::More::VERSION);
+    if ($tmsv lt 87) {
+        die "Test::More is not available in an appropriate version ($tmsv)";
+    }
 };
 
-# Test::More not found so no test will be performed here
+# Test::More appropriate version not found so no test will be performed here
 if ($@) {
     require Test;
     plan(tests => 1);
-    print "# Faking tests as test::More is not available\n";
+    print "# Faking tests as Test::More is not available in an appropriate version\n";
     ok(1,1);
-    exit (0);
+    exit(0);
 }
 

devel/pb-modules/t/Log.t

@@ -8 +8 @@
 eval
 {
-  require Test::More;
-  Test::More->import();
+    require Test::More;
+    Test::More->import();
+    my ($tmv,$tmsv) = split(/\./,$Test::More::VERSION);
+    if ($tmsv lt 87) {
+        die "Test::More is not available in an appropriate version ($tmsv)";
+    }
 };
 
@@ -16 +20 @@
     require Test;
     plan(tests => 1);
-    print "# Faking tests as test::More is not available\n";
+    print "# Faking tests as test::More is not available in an appropriate version\n";
     ok(1,1);
     exit (0);