t/git/project.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::Project' }
   9
  10 use Path::Class;
  11 my $proj = Gitalist::Git::Project->new(
  12     path => dir("$Bin/../lib/repositories/repo1"),
  13     name => "repo1",
  14 );
  15 isa_ok($proj, 'Gitalist::Git::Project');
  16
  17 like( $proj->_git, qr#/git$#, 'git binary found');
  18 isa_ok($proj->_gpp, 'Git::PurePerl', 'gpp instance created');
  19 like($proj->path, qr#/repositories/repo1#, 'repository path is set');
  20 is($proj->name, qw/repo1/, 'repository name is set');
  21 is($proj->description, qq/some test repository/, 'repository description loaded');
  22 isa_ok($proj->last_change, 'DateTime', 'last_change');
  23
  24