use strict; use warnings; use Test::More tests => 1; use Git::PurePerl; use Path::Class; use GitStore; use FindBin qw/$Bin/; # init the test my $directory = "$Bin/test"; dir($directory)->rmtree; my $gitobj = Git::PurePerl->init( directory => $directory ); my $gs = GitStore->new($directory); for ( 1..3 ) { $gs->set( 'foo' => 'blah' ); $gs->commit( $_ ); } for ( 1..3 ) { $gs->set( 'foo' => 'blah' ); $gs->commit( 'the same' ); } is $gs->history('foo') => 1, "only one commit that matters";