t/02git_util.t

   1 use FindBin qw/$Bin/;
   2 BEGIN { do "$FindBin::Bin/../script/env" or die $@ }
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6
   7 use Data::Dumper;
   8
   9 BEGIN {
  10     use_ok 'Gitalist::Git::Util';
  11     use_ok 'Gitalist::Git::Repository';
  12 }
  13
  14 use Path::Class;
  15 my $gitdir = dir("$Bin/lib/repositories/repo1");
  16
  17 my $proj = Gitalist::Git::Repository->new($gitdir);
  18 my $util = Gitalist::Git::Util->new(
  19     repository => $proj,
  20 );
  21 isa_ok($util, 'Gitalist::Git::Util');
  22
  23 like( $util->_git, qr#/git$#, 'git binary found');
  24 isa_ok($util->gpp, 'Git::PurePerl', 'gpp instance created');
  25
  26 done_testing;