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'; | |
10 | use_ok 'Gitalist::Git::Project'; | |
11 | } | |
941bb5a1 | 12 | |
13 | use Path::Class; | |
58251520 | 14 | my $gitdir = dir("$Bin/lib/repositories/repo1"); |
4baaeeef | 15 | |
b5b638f7 | 16 | my $proj = Gitalist::Git::Project->new($gitdir); |
7a1d9791 | 17 | my $util = Gitalist::Git::Util->new( |
18 | project => $proj, | |
19 | ); | |
20 | isa_ok($util, 'Gitalist::Git::Util'); | |
941bb5a1 | 21 | |
7a1d9791 | 22 | like( $util->_git, qr#/git$#, 'git binary found'); |
defb0050 | 23 | isa_ok($util->gpp, 'Git::PurePerl', 'gpp instance created'); |
941bb5a1 | 24 | |
7a1d9791 | 25 | done_testing; |