X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02git_head.t;h=8c6ffddf42247d74a94bedf4cdd4484fe6c74641;hb=ca5cfe83ce7641811fa4befb2905d1e62afbc845;hp=a9133fdc4c4d34073aa9453e9fea17c1e4c213b7;hpb=03bf0cabd353f1c9a236fba7056633f6bfb806c3;p=catagits%2FGitalist.git

diff --git a/t/02git_head.t b/t/02git_head.t
index a9133fd..8c6ffdd 100644
--- a/t/02git_head.t
+++ b/t/02git_head.t
@@ -1,3 +1,11 @@
+use FindBin qw/$Bin/;
+BEGIN {
+    my $env = "$FindBin::Bin/../script/env";
+    if (-r $env) {
+        do $env or die $@;
+    }
+}
+
 use strict;
 use warnings;
 use Test::More qw/no_plan/;
@@ -7,6 +15,10 @@ use Data::Dumper;
 BEGIN { use_ok 'Gitalist::Git::Head' }
 
 
+my $revline="a92fb1c9282f7319099ce7f783c8be7d5360f6e3\0refs/heads/model-cleanup\0Zachary Stevens <zts\@cryptocracy.com> 1277601094 +0100";
+my $instance = Gitalist::Git::Head->new($revline);
+isa_ok($instance, 'Gitalist::Git::Head');
+
 # Create an instance, passing last_change as a DateTime
 use DateTime;
 my $timespec = [1277578462, '+0100'];