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 | |
7a1d9791 | 16 | my $proj = Gitalist::Git::Project->new( |
17 | path => $gitdir, | |
18 | name => "repo1", | |
941bb5a1 | 19 | ); |
7a1d9791 | 20 | my $util = Gitalist::Git::Util->new( |
21 | project => $proj, | |
22 | ); | |
23 | isa_ok($util, 'Gitalist::Git::Util'); | |
941bb5a1 | 24 | |
7a1d9791 | 25 | like( $util->_git, qr#/git$#, 'git binary found'); |
26 | isa_ok($util->_gpp, 'Git::PurePerl', 'gpp instance created'); | |
941bb5a1 | 27 | |
7a1d9791 | 28 | done_testing; |