Merged

limitusus · Apr 20, 2012 · 6be1ae6 · 6be1ae6
1 parent bc502e5
commit 6be1ae6
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/e3/lib/Tweet.pm b/e3/lib/Tweet.pm
@@ -4,13 +4,15 @@ use strict;
 use warnings;
 
 use DateTime;
+use Time::HiRes;
 
 sub new {
     my $class = shift;
     my %info = @_;
+    my $stamp = Time::HiRes::time();
     my $self = {
         owner => $info{owner},
-        stamp => DateTime->now,
+        stamp => DateTime->from_epoch(epoch => $stamp),
         message => $info{message},
     };
     return bless $self, $class;

diff --git a/e3/t/forest.t b/e3/t/forest.t
@@ -69,6 +69,8 @@ sub tweet :Tests {
     $b1->tweet("Hello!");
     $b2->tweet("Hi!");
     $b1->tweet("hoge");
+    use Data::Dumper;
+    warn Dumper(\{$b2->friends_timeline});
     is $b1->tweets->[0]->message, "Hello!";
     is $b1->tweets->[1]->message, "hoge";
     is $b2->tweets->[0]->message, "Hi!";