t/02git_head.t

   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
   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
  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
  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');