t/git/util.t

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