Introduce Gitalist::Git::Head.
[catagits/Gitalist.git] / t / 02git_Repository.t
1 use FindBin qw/$Bin/;
2 BEGIN {
3     my $env = "$FindBin::Bin/../script/env";
4     if (-r $env) {
5         do $env or die $@;
6     }
7 }
8
9 use strict;
10 use warnings;
11 use Test::More qw/no_plan/;
12 use Test::Exception;
13 use Test::utf8;
14 use Encode qw/decode_utf8/;
15 use Data::Dumper;
16
17 BEGIN {
18     # Mocking to allow testing regardless of the user's locale
19     require I18N::Langinfo;
20     no warnings 'redefine';
21     *I18N::Langinfo::langinfo = sub($) {
22         return "UTF-8" if $_[0] == I18N::Langinfo::CODESET();
23     };
24     *CORE::GLOBAL::getpwuid = sub {
25         wantarray
26             ? ("test", "x", "1000", "1000", "", "", "T\x{c3}\x{a9}st", "/home/test", "/bin/bash")
27             : "test";
28     };
29 }
30
31 BEGIN { use_ok 'Gitalist::Git::Repository' }
32
33 dies_ok {
34     my $proj = Gitalist::Git::Repository->new();
35 } 'New repository with no args';
36
37 use Path::Class;
38 my $gitdir = dir("$Bin/lib/repositories/repo1");
39
40 my $proj = Gitalist::Git::Repository->new($gitdir);
41 isa_ok($proj, 'Gitalist::Git::Repository');
42 is($proj->path, $gitdir, 'repository path is set');
43 isa_ok($proj->path, 'Path::Class::Dir', 'repository path');
44 is($proj->name, qw/repo1/, 'repository name is set');
45 is($proj->description, qq/some test repository/, 'repository description loaded');
46 isa_ok($proj->last_change, 'DateTime', 'last_change');
47
48 my %references = %{$proj->references};
49 ok(keys %references >= 2, '->references hash has elements');
50 is($references{'36c6c6708b8360d7023e8a1649c45bcf9b3bd818'}->[0], 'heads/master', 'reference looks ok');
51 my @heads = @{$proj->heads};
52 ok(scalar @heads > 1, '->heads list has more than one element');
53 my $head = $heads[1];
54 isa_ok($head, 'Gitalist::Git::Head');
55 is($proj->head_hash, '36c6c6708b8360d7023e8a1649c45bcf9b3bd818', 'head_hash for HEAD is correct');
56 is($proj->head_hash('refs/heads/master'), '36c6c6708b8360d7023e8a1649c45bcf9b3bd818', 'head_hash for refs/heads/master is correct');
57 is($proj->head_hash('rafs/head/mister'), undef, 'head_hash for rafs/head/mister is undef');
58
59 # Return an ::Object from a sha1
60 my $obj1 = $proj->get_object('729a7c3f6ba5453b42d16a43692205f67fb23bc1');
61 isa_ok($obj1, 'Gitalist::Git::Object::Tree');
62
63 my $obj3 = $proj->get_object($proj->head_hash);
64 isa_ok($obj3, 'Gitalist::Git::Object::Commit');
65
66 my $obj2 = $obj3->sha_by_path('dir1/file2');
67 isa_ok($obj2, 'Gitalist::Git::Object::Blob');
68 is($obj2->type, 'blob', 'sha_by_path obj is a blob');
69 is($obj2->content, "foo\n", 'sha_by_path obj content is correct');
70
71
72 like($proj->head_hash('HEAD'), qr/^([0-9a-fA-F]{40})$/, 'head_hash');
73
74 {
75     my @tree = @{$obj3->tree};
76     is(scalar @tree, 1, "tree array contains one entry.");
77     isa_ok($tree[0], 'Gitalist::Git::Object', 'tree element 0');
78 }
79
80 my $owner = $proj->owner;
81 is_flagged_utf8($owner, "Owner name is flagged as utf8");
82 is_sane_utf8($owner, "Owner name is not double-encoded");
83 is($owner, decode_utf8("T\x{c3}\x{a9}st"),  "Owner name is correct");