Help language development. Donate to The Perl Foundation

LibGit2 cpan:CTILMES last updated on 2020-08-18

t/10-blob.t
use Test;
use File::Temp;
use LibGit2;

plan 4;

my $test-repo-dir = tempdir;

ok my $repo = Git::Repository.init($test-repo-dir), 'init';

subtest 'Memory',
{
    plan 7;

    ok my $oid = $repo.blob-create('Add this blob'), 'blob create';

    is $oid, '965fbc02b226a75edf239af95a0a9f0e4755e37e', 'oid';

    ok my $blob = $repo.blob-lookup($oid), 'blob lookup';

    is $blob.is-binary, False, 'is not binary';

    is $blob.id, '965fbc02b226a75edf239af95a0a9f0e4755e37e', 'blob id';

    is $blob.rawsize, 13, 'rawsize';

    is $blob, 'Add this blob', 'content';
}

subtest 'File',
{
    plan 7;

    my $file = $test-repo-dir.IO.add('afile');

    $file.spurt("This is a blob on disk.\n");

    ok my $oid = $repo.blob-create($file), 'blob create';

    is ~$oid, 'c2af2b49e1503768ae922897b6cd5e47e3097977', 'oid';

    ok my $blob = $repo.blob-lookup($oid), 'blob lookup';

    is $blob.is-binary, False, 'is not binary';

    is $blob.id, 'c2af2b49e1503768ae922897b6cd5e47e3097977', 'blob id';

    is $blob.rawsize, 24, 'rawsize';

    is $blob, "This is a blob on disk.\n", 'content';
}

subtest 'Work Dir File',
{
    plan 7;

    my $file = $test-repo-dir.IO.add('bfile');

    $file.spurt("Working dir file.\n");

    ok my $oid = $repo.blob-create('bfile', :workdir), 'blob create';

    is ~$oid, '790fdef2738059aa6469e41f0a0334b7969eea50', 'oid';

    ok my $blob = $repo.blob-lookup($oid), 'blob lookup';

    is $blob.is-binary, False, 'is not binary';

    is $blob.id, '790fdef2738059aa6469e41f0a0334b7969eea50', 'blob id';

    is $blob.rawsize, 18, 'rawsize';

    is $blob, "Working dir file.\n", 'content';
}