#!perl use Test::More tests => 4; use FindBin qw/$Bin/; use GitStore; use Path::Class; # init the test my $directory = "$Bin/test"; my $gs = GitStore->new($directory); # from 02-basic.t my $val = $gs->get("committed.txt"); is $val, undef; my $gitobj = $gs->get("gitobj.txt"); isa_ok($gitobj, "Git::PurePerl"); is dir($gitobj->directory)->as_foreign('Unix'), dir($directory)->as_foreign('Unix'); $val = $gs->get("committed2.txt"); is $val, 'Yes'; 1;