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 |
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 | |
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'); |
50 | is($references{'36c6c6708b8360d7023e8a1649c45bcf9b3bd818'}->[0], 'heads/master', 'reference looks ok'); |
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'); |
839da3d7 |
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'); |
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"); |