t/02git_util.t

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