Commit | Line | Data |
cce03a80 |
1 | use FindBin qw/$Bin/; |
2 | BEGIN { do "$FindBin::Bin/../script/env" or die $@ } |
56b6dbe6 |
3 | use strict; |
4 | use warnings; |
56b6dbe6 |
5 | use Test::More qw/no_plan/; |
b5b638f7 |
6 | use Test::Exception; |
5effb2c9 |
7 | use Test::utf8; |
8 | use Encode qw/decode_utf8/; |
56b6dbe6 |
9 | use Data::Dumper; |
10 | |
5effb2c9 |
11 | BEGIN { |
12 | # Mocking to allow testing regardless of the user's locale |
13 | require I18N::Langinfo; |
14 | no warnings 'redefine'; |
15 | *I18N::Langinfo::langinfo = sub($) { |
16 | return "UTF-8" if $_[0] == I18N::Langinfo::CODESET(); |
17 | }; |
18 | *CORE::GLOBAL::getpwuid = sub { |
19 | wantarray |
20 | ? ("test", "x", "1000", "1000", "", "", "T\x{c3}\x{a9}st", "/home/test", "/bin/bash") |
21 | : "test"; |
22 | }; |
23 | } |
24 | |
44a9ed75 |
25 | BEGIN { use_ok 'Gitalist::Git::Repository' } |
56b6dbe6 |
26 | |
b5b638f7 |
27 | dies_ok { |
44a9ed75 |
28 | my $proj = Gitalist::Git::Repository->new(); |
82bc0f05 |
29 | } 'New repository with no args'; |
b5b638f7 |
30 | |
56b6dbe6 |
31 | use Path::Class; |
58251520 |
32 | my $gitdir = dir("$Bin/lib/repositories/repo1"); |
4baaeeef |
33 | |
44a9ed75 |
34 | my $proj = Gitalist::Git::Repository->new($gitdir); |
35 | isa_ok($proj, 'Gitalist::Git::Repository'); |
82bc0f05 |
36 | is($proj->path, $gitdir, 'repository path is set'); |
37 | isa_ok($proj->path, 'Path::Class::Dir', 'repository path'); |
56b6dbe6 |
38 | is($proj->name, qw/repo1/, 'repository name is set'); |
39 | is($proj->description, qq/some test repository/, 'repository description loaded'); |
40 | isa_ok($proj->last_change, 'DateTime', 'last_change'); |
635943a0 |
41 | |
42 | is_deeply $proj->pack, { |
43 | '__CLASS__' => 'Gitalist::Git::Repository', |
44 | 'is_bare' => 1, |
45 | 'owner' => "T\x{e9}st", |
46 | 'last_change' => '2009-11-12T19:00:34Z', |
47 | 'name' => 'repo1', |
48 | 'description' => 'some test repository' |
49 | }; |
d47734bf |
50 | |
51 | is_deeply $proj->pack, { |
52 | '__CLASS__' => 'Gitalist::Git::Repository', |
53 | 'is_bare' => 1, |
54 | 'owner' => "T\x{e9}st", |
55 | 'last_change' => '2009-11-12T19:00:34Z', |
56 | 'name' => 'repo1', |
57 | 'description' => 'some test repository' |
58 | }; |
56b6dbe6 |
59 | |
c65cccc2 |
60 | my %references = %{$proj->references}; |
61 | ok(keys %references >= 2, '->references hash has elements'); |
62 | is($references{'36c6c6708b8360d7023e8a1649c45bcf9b3bd818'}->[0], 'heads/master', 'reference looks ok'); |
63 | my @heads = @{$proj->heads}; |
c73be54e |
64 | ok(scalar @heads > 1, '->heads list has more than one element'); |
65 | my %head = %{$heads[1]}; |
66 | ok(keys %head == 3, '->heads[1] has the right number of keys'); |
67 | ok(defined $head{sha1}, '->heads[1]-sha1 is defined'); |
68 | ok(defined $head{name}, '->heads[1]-name is defined'); |
839da3d7 |
69 | is($proj->head_hash, '36c6c6708b8360d7023e8a1649c45bcf9b3bd818', 'head_hash for HEAD is correct'); |
70 | is($proj->head_hash('refs/heads/master'), '36c6c6708b8360d7023e8a1649c45bcf9b3bd818', 'head_hash for refs/heads/master is correct'); |
71 | is($proj->head_hash('rafs/head/mister'), undef, 'head_hash for rafs/head/mister is undef'); |
a8a8f8f9 |
72 | |
73 | is(scalar $proj->list_tree, 2, 'expected number of entries in tree'); |
54368e9d |
74 | isa_ok(($proj->list_tree)[1], 'Gitalist::Git::Object'); |
75 | |
76 | # Return an ::Object from a sha1 |
467fa7d9 |
77 | my $obj1 = $proj->get_object('729a7c3f6ba5453b42d16a43692205f67fb23bc1'); |
e1307124 |
78 | isa_ok($obj1, 'Gitalist::Git::Object::Tree'); |
54368e9d |
79 | |
fc11c7f1 |
80 | my $hbp_sha1 = $proj->hash_by_path('36c6c6708b8360d7023e8a1649c45bcf9b3bd818', 'dir1/file2'); |
81 | my $obj2 = $proj->get_object($hbp_sha1); |
e1307124 |
82 | isa_ok($obj2, 'Gitalist::Git::Object::Blob'); |
fc11c7f1 |
83 | is($obj2->type, 'blob', 'hash_by_path obj is a file'); |
56908878 |
84 | is($obj2->content, "foo\n", 'hash_by_path obj is a file'); |
85762693 |
85 | |
e1307124 |
86 | my $obj3 = $proj->get_object($proj->head_hash); |
87 | isa_ok($obj3, 'Gitalist::Git::Object::Commit'); |
88 | |
85762693 |
89 | like($proj->head_hash('HEAD'), qr/^([0-9a-fA-F]{40})$/, 'head_hash'); |
90 | |
91 | { |
92 | my @tree = $proj->list_tree('3bc0634310b9c62222bb0e724c11ffdfb297b4ac'); |
93 | is(scalar @tree, 1, "tree array contains one entry."); |
e75df318 |
94 | isa_ok($tree[0], 'Gitalist::Git::Object', 'tree element 0'); |
85762693 |
95 | } |
96 | |
5effb2c9 |
97 | my $owner = $proj->owner; |
98 | is_flagged_utf8($owner, "Owner name is flagged as utf8"); |
99 | is_sane_utf8($owner, "Owner name is not double-encoded"); |
100 | is($owner, decode_utf8("T\x{c3}\x{a9}st"), "Owner name is correct"); |