The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!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, 'Yes';
$val = $gs->get("not_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');

# for 03-next-next.t
$gs->delete("committed.txt");
$gs->set("committed2.txt", 'Yes');
$gs->commit();

1;