use strict;
use warnings;

use Test::More;
use FindBin;
use Path::Class qw( dir );

use lib dir( $FindBin::Bin )->subdir( "tlib" )->absolute->stringify;
use t::util { '$repo' => 1 };

# FILENAME: 03_callback.t
# CREATED: 29/05/12 08:34:56 by Kent Fredric (kentnl) <kentfredric@gmail.com>
# ABSTRACT: OnCommit::CallBack test
use Git::PurePerl::Walker::OnCommit::CallBack;

my $v;
my $i = 0;

my $caller_factory = Git::PurePerl::Walker::OnCommit::CallBack->new(
	callback => sub {
		$i++;
		$v = \@_;
	} );

my $caller = $caller_factory->for_repository( $repo );

$caller->handle( $repo->master );

is( $v->[ 0 ]->sha1, '010fb4bcf7d92c031213f43d0130c811cbb355e7', 'Callback triggered' );

done_testing;