Move new model tests someplace they'll actually get run.

[catagits/Gitalist.git] / t / 02git_util.t

diff --git a/t/02git_util.t b/t/02git_util.t
new file mode 100644 (file)
index 0000000..730754a
--- /dev/null
+++ b/t/02git_util.t
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use FindBin qw/$Bin/;
+use Test::More qw/no_plan/;
+
+use Data::Dumper;
+
+BEGIN { use_ok 'Gitalist::Git::Util' }
+
+use Path::Class;
+my $gitdir = dir("$Bin/lib/repositories/repo1");
+
+my $proj = Gitalist::Git::Util->new(
+    gitdir => $gitdir,
+);
+isa_ok($proj, 'Gitalist::Git::Util');
+
+like( $proj->_git, qr#/git$#, 'git binary found');
+isa_ok($proj->_gpp, 'Git::PurePerl', 'gpp instance created');
+is($proj->gitdir, $gitdir, 'repository path is set');
+
+
+