Commit | Line | Data |
03bf0cab |
1 | use strict; |
2 | use warnings; |
3 | use Test::More qw/no_plan/; |
4 | use Test::Exception; |
5 | use Data::Dumper; |
6 | |
7 | BEGIN { use_ok 'Gitalist::Git::Head' } |
8 | |
9 | |
72fbbef7 |
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'); |
13 | |
03bf0cab |
14 | # Create an instance, passing last_change as a DateTime |
15 | use DateTime; |
16 | my $timespec = [1277578462, '+0100']; |
17 | my $dt = DateTime->from_epoch( |
18 | epoch => @$timespec[0], |
19 | time_zone => @$timespec[1], |
20 | ); |
21 | my $head = Gitalist::Git::Head->new( |
22 | sha1 => 'bca1153c22e393a952b6715bf2212901e4e77215', |
23 | name => 'master', |
24 | committer => 'Zachary Stevens <zts@cryptocracy.com>', |
25 | last_change => $dt, |
26 | ); |
27 | isa_ok($head, 'Gitalist::Git::Head'); |