Commit | Line | Data |
5ed74c87 |
1 | use FindBin qw/$Bin/; |
df629266 |
2 | BEGIN { |
0556ab26 |
3 | my $env = "$FindBin::Bin/../script/env"; |
df629266 |
4 | if (-r $env) { |
5 | do $env or die $@; |
6 | } |
7 | } |
8 | |
56b6dbe6 |
9 | use strict; |
10 | use warnings; |
56b6dbe6 |
11 | use Test::More qw/no_plan/; |
b5b638f7 |
12 | use Test::Exception; |
5effb2c9 |
13 | use Test::utf8; |
14 | use Encode qw/decode_utf8/; |
56b6dbe6 |
15 | use Data::Dumper; |
16 | |
5effb2c9 |
17 | BEGIN { |
18 | # Mocking to allow testing regardless of the user's locale |
8221d7e1 |
19 | require I18N::Langinfo if $^O ne 'MSWin32'; |
5effb2c9 |
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 | |
44a9ed75 |
31 | BEGIN { use_ok 'Gitalist::Git::Repository' } |
56b6dbe6 |
32 | |
b5b638f7 |
33 | dies_ok { |
44a9ed75 |
34 | my $proj = Gitalist::Git::Repository->new(); |
82bc0f05 |
35 | } 'New repository with no args'; |
b5b638f7 |
36 | |
56b6dbe6 |
37 | use Path::Class; |
58251520 |
38 | my $gitdir = dir("$Bin/lib/repositories/repo1"); |
4baaeeef |
39 | |
44a9ed75 |
40 | my $proj = Gitalist::Git::Repository->new($gitdir); |
41 | isa_ok($proj, 'Gitalist::Git::Repository'); |
82bc0f05 |
42 | is($proj->path, $gitdir, 'repository path is set'); |
43 | isa_ok($proj->path, 'Path::Class::Dir', 'repository path'); |
56b6dbe6 |
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'); |
c8eaa67f |
47 | |
c65cccc2 |
48 | my %references = %{$proj->references}; |
49 | ok(keys %references >= 2, '->references hash has elements'); |
09717a40 |
50 | is($references{'36c6c6708b8360d7023e8a1649c45bcf9b3bd818'}->[0], 'tags/0.01', 'reference looks ok'); |
c65cccc2 |
51 | my @heads = @{$proj->heads}; |
c73be54e |
52 | ok(scalar @heads > 1, '->heads list has more than one element'); |
03bf0cab |
53 | my $head = $heads[1]; |
54 | isa_ok($head, 'Gitalist::Git::Head'); |
09717a40 |
55 | is($proj->head_hash, 'd6ddf8b26be63066e01d96a0922c87cd8d6e2270', 'head_hash for HEAD is correct'); |
56 | is($proj->head_hash('refs/heads/master'), 'd6ddf8b26be63066e01d96a0922c87cd8d6e2270', 'head_hash for refs/heads/master is correct'); |
839da3d7 |
57 | is($proj->head_hash('rafs/head/mister'), undef, 'head_hash for rafs/head/mister is undef'); |
a8a8f8f9 |
58 | |
cc57f1d2 |
59 | ok(scalar @{$proj->tags} == 1, '->tags list has one element'); |
60 | |
54368e9d |
61 | # Return an ::Object from a sha1 |
467fa7d9 |
62 | my $obj1 = $proj->get_object('729a7c3f6ba5453b42d16a43692205f67fb23bc1'); |
e1307124 |
63 | isa_ok($obj1, 'Gitalist::Git::Object::Tree'); |
54368e9d |
64 | |
9aed017f |
65 | my $obj3 = $proj->get_object($proj->head_hash); |
66 | isa_ok($obj3, 'Gitalist::Git::Object::Commit'); |
67 | |
b9708061 |
68 | my $obj2 = $obj3->sha_by_path('dir1/file2'); |
e1307124 |
69 | isa_ok($obj2, 'Gitalist::Git::Object::Blob'); |
9aed017f |
70 | is($obj2->type, 'blob', 'sha_by_path obj is a blob'); |
71 | is($obj2->content, "foo\n", 'sha_by_path obj content is correct'); |
85762693 |
72 | |
e1307124 |
73 | |
85762693 |
74 | like($proj->head_hash('HEAD'), qr/^([0-9a-fA-F]{40})$/, 'head_hash'); |
75 | |
76 | { |
887b6c70 |
77 | my @tree = @{$obj3->tree}; |
85762693 |
78 | is(scalar @tree, 1, "tree array contains one entry."); |
e75df318 |
79 | isa_ok($tree[0], 'Gitalist::Git::Object', 'tree element 0'); |
85762693 |
80 | } |
81 | |
5effb2c9 |
82 | my $owner = $proj->owner; |
83 | is_flagged_utf8($owner, "Owner name is flagged as utf8"); |
84 | is_sane_utf8($owner, "Owner name is not double-encoded"); |
85 | is($owner, decode_utf8("T\x{c3}\x{a9}st"), "Owner name is correct"); |
5c07fcf1 |
86 | |
87 | is_deeply $proj->pack, { |
88 | __CLASS__ => 'Gitalist::Git::Repository', |
89 | description => 'some test repository', |
90 | heads => [ |
91 | { |
92 | __CLASS__ => 'Gitalist::Git::Head', |
09717a40 |
93 | committer => 'Dan Brook <broq@cpan.org>', |
94 | last_change => '2011-06-05T23:00:44Z', |
95 | name => 'master', |
96 | sha1 => 'd6ddf8b26be63066e01d96a0922c87cd8d6e2270', |
97 | }, |
98 | { |
99 | __CLASS__ => 'Gitalist::Git::Head', |
5c07fcf1 |
100 | committer => 'Zachary Stevens <zts@cryptocracy.com>', |
101 | last_change => '2009-11-12T19:00:34Z', |
102 | name => 'branch1', |
103 | sha1 => '0710a7c8ee11c73e8098d08f9384c2a839c65e4e' |
104 | }, |
5c07fcf1 |
105 | ], |
106 | is_bare => 1, |
09717a40 |
107 | last_change => '2011-06-05T23:00:44Z', |
5c07fcf1 |
108 | name => 'repo1', |
109 | owner => "T\351st", |
110 | references => { |
09717a40 |
111 | "d6ddf8b26be63066e01d96a0922c87cd8d6e2270" => ['heads/master'], |
112 | "36c6c6708b8360d7023e8a1649c45bcf9b3bd818" => ['tags/0.01'], |
5c07fcf1 |
113 | "0710a7c8ee11c73e8098d08f9384c2a839c65e4e" => [ 'heads/branch1' ] |
114 | }, |
115 | tags => [ { |
116 | __CLASS__ |
117 | => 'Gitalist::Git::Tag', |
118 | committer |
119 | => 'Florian Ragwitz <rafl@debian.org>', |
120 | last_change |
121 | => '2007-03-06T20:44:35Z', |
122 | name => 0.01, |
123 | sha1 => '36c6c6708b8360d7023e8a1649c45bcf9b3bd818', |
124 | type => 'commit' |
125 | } ] |
126 | }, 'Serialized correctly'; |