From 634aab1639adaaf3bdd85639e936811410641072 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven.rezic@idealo.de>
Date: Thu, 24 Mar 2022 10:00:09 +0100
Subject: [PATCH] use another git repo for testing
This is a workaround for RT #141798
---
t/protocol_gpp.t | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/t/protocol_gpp.t b/t/protocol_gpp.t
index 80c52e6..d13058b 100644
--- a/t/protocol_gpp.t
+++ b/t/protocol_gpp.t
@@ -6,7 +6,7 @@ use IO::File;
use Path::Class;
use Test::More;
-my $socket = IO::Socket::INET->new("www.github.com:80");
+my $socket = IO::Socket::INET->new("repo.or.cz:80");
if ($socket) {
close ($socket);
} else {
@@ -19,7 +19,10 @@ dir($directory)->rmtree;
my $git = Git::PurePerl->init( directory => $directory );
isa_ok( $git, 'Git::PurePerl', 'can init' );
-$git->clone( 'github.com', '/acme/git-pureperl.git' );
+$git->clone( 'git://repo.or.cz/libwww-perl-eserte.git' );
+#$git->clone( 'ssh://git@github.com/acme/git-pureperl.git' ); # XXX works only if the user has ssh keys setup in github; also may be interactive
+#$git->clone( 'git://repo.or.cz/andk-cpan-tools.git' ); # XXX does not work, protocol error
+#$git->clone( 'git://repo.or.cz/sampleproject.git' ); # XXX does not work, empty repository, EOF
ok( $git->all_sha1s->all >= 604 );
ok( $git->all_objects->all >= 604 );
--
2.25.1