git_raw_excercise.pl

git_raw_excercise.pl

use strict;
use warnings;

use Git::Raw;
use IO::File;
use Data::Dumper;
use File::Path qw(make_path remove_tree);


my $dir = '/tmp/gittest';
if( -d $dir )
{
    remove_tree($dir);
}

## Server repo
my $r1 = Git::Raw::Repository->init($dir . '/r1', 1);

## Producer repo
my $r2 = Git::Raw::Repository->init($dir . '/r2', 0);

## Consumer repo
my $r3 = Git::Raw::Repository->init($dir . '/r3', 0);


## Init the producer
{
    my $remote =
        Git::Raw::Remote->create($r2, 'origin', 'file://' . $dir . '/r1');

    my $index = $r2->index;
    $index->write;
    my $tree = $index->write_tree;

    my $me = Git::Raw::Signature->now('Z', '[email protected]');

    $r2->commit('First empty commit', $me, $me, [], $tree);

    my $branch = Git::Raw::Branch->lookup( $r2, 'master', 1 );
    $branch->move('R2', 1);

    $remote->push(['refs/heads/R2']);
    print "OK push\n";

    $branch = Git::Raw::Branch->lookup( $r2, 'R2', 1 );
    my $ref = Git::Raw::Reference->lookup('refs/remotes/origin/R2', $r2);
    $branch->upstream($ref);
    print "OK upstr\n";
}

## Update the producer
{
    my $fh = IO::File->new($dir . '/r2/xx', 'w');
    $fh->print("blahblah\n");
    $fh->close;
    
    my $index = $r2->index;
    $index->add ('xx');
    $index->write;
    my $tree = $index->write_tree();
    my $me = Git::Raw::Signature->now('Z', '[email protected]');
    my $head = $r2->head->target;
    $r2->commit('Second commit', $me, $me, [$head], $tree);
    print "OK commit2\n";
}

## Push to the server
{
    my $branch = Git::Raw::Branch->lookup( $r2, 'R2', 1 );
    my $ref = $branch->name();
    my $remote_name = $branch->remote_name();
    my $remote = Git::Raw::Remote->load($r2, $remote_name);
    die('X1') unless defined($remote);
    $remote->push([$ref]);
    print "OK push2\n";
}

## Init the consumer
{
    # Default refspec is to fetch all branches.
    # We change it to fetch a specific branch.
    
    my $config = $r3->config();
    $config->str('remote.origin.url', 'file://' . $dir . '/r1');
    $config->str('remote.origin.fetch',
                 '+refs/heads/R2:refs/remotes/origin/R2');
    
    $config->str('branch.R2.remote', 'origin');
    $config->str('branch.R2.merge', 'refs/heads/R2');
    
    my $remote = Git::Raw::Remote->load($r3, 'origin');
    $remote->fetch();
    print "OK fetch\n";

    my $ref = Git::Raw::Reference->lookup('remotes/origin/R2', $r3);
    die('REF') unless defined($ref);
    print "OK ref\n";
    
    my $branch = $r3->branch('R2', $ref->target);
    print "OK branch\n";

    $r3->head($branch);
    print "OK head\n";
    
    $r3->checkout($branch, {'checkout_strategy' => {'safe' => 1}});
    print "OK checkout\n";
}


## Update the producer and push to server
{
    my $fh = IO::File->new($dir . '/r2/yy', 'w');
    $fh->print("blahblah\n");
    $fh->close;
    
    my $index = $r2->index;
    $index->add ('yy');
    $index->write;
    my $tree = $index->write_tree();
    my $me = Git::Raw::Signature->now('Z', '[email protected]');
    my $head = $r2->head->target;
    $r2->commit('Third commit', $me, $me, [$head], $tree);
    print "OK commit3\n";

    my $branch = Git::Raw::Branch->lookup( $r2, 'R2', 1 );
    my $ref = $branch->name();
    my $remote = Git::Raw::Remote->load($r2, $branch->remote_name());
    die('X2') unless defined($remote);
    $remote->push([$ref]);
    print "OK push3\n";
}
    

## Pull to the consumer
{
    my $branch = Git::Raw::Branch->lookup( $r3, 'R2', 1 );
    my $remote = Git::Raw::Remote->load($r3, $branch->remote_name());
    die('X3') unless defined($remote);
    
    $remote->fetch();
    print "OK fetch\n";

    my $ref = Git::Raw::Reference->lookup('FETCH_HEAD', $r3 );
    die('REF3') unless defined($ref);

    print Dumper($r3->merge_analysis($ref));
    
    $r3->merge($ref,
               {'favor' => 'theirs'},
               {'checkout_strategy' => {'safe' => 1}});
    print "OK merge\n";    
}