Commit | Line | Data |
bc33a9b1 |
1 | use FindBin qw/$Bin/; |
2 | BEGIN { |
3 | my $env = "$FindBin::Bin/../script/env"; |
4 | if (-r $env) { |
5 | do $env or die $@; |
6 | } |
7 | } |
8 | |
03bf0cab |
9 | use strict; |
10 | use warnings; |
11 | use Test::More qw/no_plan/; |
12 | use Test::Exception; |
13 | use Data::Dumper; |
14 | |
15 | BEGIN { use_ok 'Gitalist::Git::Head' } |
16 | |
17 | |
72fbbef7 |
18 | my $revline="a92fb1c9282f7319099ce7f783c8be7d5360f6e3\0refs/heads/model-cleanup\0Zachary Stevens <zts\@cryptocracy.com> 1277601094 +0100"; |
19 | my $instance = Gitalist::Git::Head->new($revline); |
20 | isa_ok($instance, 'Gitalist::Git::Head'); |
21 | |
03bf0cab |
22 | # Create an instance, passing last_change as a DateTime |
23 | use DateTime; |
24 | my $timespec = [1277578462, '+0100']; |
25 | my $dt = DateTime->from_epoch( |
26 | epoch => @$timespec[0], |
27 | time_zone => @$timespec[1], |
28 | ); |
29 | my $head = Gitalist::Git::Head->new( |
30 | sha1 => 'bca1153c22e393a952b6715bf2212901e4e77215', |
31 | name => 'master', |
32 | committer => 'Zachary Stevens <zts@cryptocracy.com>', |
33 | last_change => $dt, |
34 | ); |
35 | isa_ok($head, 'Gitalist::Git::Head'); |