3 use Test::More qw/no_plan/;
7 BEGIN { use_ok 'Gitalist::Git::Head' }
10 my $revline="a92fb1c9282f7319099ce7f783c8be7d5360f6e3\0refs/heads/model-cleanup\0Zachary Stevens <zts\@cryptocracy.com> 1277601094 +0100";
11 my $instance = Gitalist::Git::Head->new($revline);
12 isa_ok($instance, 'Gitalist::Git::Head');
14 # Create an instance, passing last_change as a DateTime
16 my $timespec = [1277578462, '+0100'];
17 my $dt = DateTime->from_epoch(
18 epoch => @$timespec[0],
19 time_zone => @$timespec[1],
21 my $head = Gitalist::Git::Head->new(
22 sha1 => 'bca1153c22e393a952b6715bf2212901e4e77215',
24 committer => 'Zachary Stevens <zts@cryptocracy.com>',
27 isa_ok($head, 'Gitalist::Git::Head');