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