t/02git_head.t

   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
  10 # Create an instance, passing last_change as a DateTime
  11 use DateTime;
  12 my $timespec = [1277578462, '+0100'];
  13 my $dt = DateTime->from_epoch(
  14     epoch => @$timespec[0],
  15     time_zone => @$timespec[1],
  16 );
  17 my $head = Gitalist::Git::Head->new(
  18     sha1 => 'bca1153c22e393a952b6715bf2212901e4e77215',
  19     name => 'master',
  20     committer => 'Zachary Stevens <zts@cryptocracy.com>',
  21     last_change => $dt,
  22 );
  23 isa_ok($head, 'Gitalist::Git::Head');