my $repo = Gitalist::Git::CollectionOfRepositories::FromDirectory->new( repo_dir => $repo_dir );
isa_ok($repo, 'Gitalist::Git::CollectionOfRepositories::FromDirectory');
-is($repo->repo_dir, $repo_dir, "repo->repo_dir is correct" );
+is($repo->repo_dir, Path::Class::Dir->new($repo_dir), "repo->repo_dir is correct" );
# 'bare.git' is a bare git repository in the repository dir
use Path::Class;
use Data::Dumper;
BEGIN {
- # Mocking to allow testing regardless of the user's locale
- require I18N::Langinfo;
- no warnings 'redefine';
- *I18N::Langinfo::langinfo = sub($) {
+ # Don't die on win32.
+ eval {
+ # Mocking to allow testing regardless of the user's locale
+ require I18N::Langinfo;
+ no warnings 'redefine';
+ *I18N::Langinfo::langinfo = sub($) {
return "UTF-8" if $_[0] == I18N::Langinfo::CODESET();
- };
- *CORE::GLOBAL::getpwuid = sub {
+ };
+ *CORE::GLOBAL::getpwuid = sub {
wantarray
- ? ("test", "x", "1000", "1000", "", "", "T\x{c3}\x{a9}st", "/home/test", "/bin/bash")
- : "test";
+ ? ("test", "x", "1000", "1000", "", "", "T\x{c3}\x{a9}st", "/home/test", "/bin/bash")
+ : "test";
+ };
};
}
isa_ok($tree[0], 'Gitalist::Git::Object', 'tree element 0');
}
-my $owner = $proj->owner;
-is_flagged_utf8($owner, "Owner name is flagged as utf8");
-is_sane_utf8($owner, "Owner name is not double-encoded");
-is($owner, decode_utf8("T\x{c3}\x{a9}st"), "Owner name is correct");
+# Be win32 friendly. Poor poor win32.
+if($^O ne 'MSWin32') {
+ my $owner = $proj->owner;
+ is_flagged_utf8($owner, "Owner name is flagged as utf8");
+ is_sane_utf8($owner, "Owner name is not double-encoded");
+ is($owner, decode_utf8("T\x{c3}\x{a9}st"), "Owner name is correct");
+}
);
isa_ok($util, 'Gitalist::Git::Util');
-like( $util->_git, qr#/git$#, 'git binary found');
+like( $util->_git, qr#\bgit(?:.CMD)$#, 'git binary found');
isa_ok($util->gpp, 'Git::PurePerl', 'gpp instance created');
done_testing;