Changeset 2563 for branches/release-40/t/lib/MT/Test.pm

Timestamp:

06/13/08 01:01:43 (18 months ago)

Author:

auno

Message:

More fix for perl test. BugzID:79876

Files:

• branches/release-40/t/lib/MT/Test.pm (modified) (3 diffs)

branches/release-40/t/lib/MT/Test.pm

@@ -37 +37 @@
 our $CORE_TIME;
 BEGIN {
-    *CORE::GLOBAL::time  = sub { CORE::time };
+    *CORE::GLOBAL::time  = sub { my ($a) = @_; $a ? CORE::time + $_[0] : CORE::time };
     *CORE::GLOBAL::sleep = sub { CORE::sleep };
 }
@@ -595 +595 @@
         $cmt->commenter_id($chuckd->id);
         $cmt->visible(1);
+        $cmt->created_on('20040910183000');
         $cmt->id(14);
         $cmt->save or die "Couldn't save comment record 1: ".$cmt->errstr;
@@ -601 +602 @@
         $cmt->commenter_id($bobd->id);
         $cmt->visible(1);
+        $cmt->created_on('20040910182800');
         $cmt->id(15);
         $cmt->save or die "Couldn't save comment record 1: ".$cmt->errstr;