]> Sergey Matveev's repositories - public-inbox.git/blobdiff - t/common.perl
nntp: reduce memory overhead of zlib
[public-inbox.git] / t / common.perl
index 688e30ad99cbee6c39a186c289a42eca4d3465e3..91d65c5fa380a41b47420993198a57dfada4bc6d 100644 (file)
@@ -3,6 +3,8 @@
 
 use Fcntl qw(FD_CLOEXEC F_SETFD F_GETFD);
 use POSIX qw(dup2);
+use strict;
+use warnings;
 
 sub stream_to_string {
        my ($res) = @_;
@@ -15,6 +17,27 @@ sub stream_to_string {
        $str;
 }
 
+sub tcp_server () {
+       IO::Socket::INET->new(
+               LocalAddr => '127.0.0.1',
+               ReuseAddr => 1,
+               Proto => 'tcp',
+               Type => Socket::SOCK_STREAM(),
+               Listen => 1024,
+               Blocking => 0,
+       )
+}
+
+sub unix_server ($) {
+       my $s = IO::Socket::UNIX->new(
+               Listen => 1024,
+               Type => Socket::SOCK_STREAM(),
+               Local => $_[0],
+       );
+       $s->blocking(0);
+       $s;
+}
+
 sub spawn_listener {
        my ($env, $cmd, $socks) = @_;
        my $pid = fork;
@@ -39,4 +62,18 @@ sub spawn_listener {
        $pid;
 }
 
+sub require_git ($;$) {
+       my ($req, $maybe) = @_;
+       my ($req_maj, $req_min) = split(/\./, $req);
+       my ($cur_maj, $cur_min) = (`git --version` =~ /version (\d+)\.(\d+)/);
+
+       my $req_int = ($req_maj << 24) | ($req_min << 16);
+       my $cur_int = ($cur_maj << 24) | ($cur_min << 16);
+       if ($cur_int < $req_int) {
+               return 0 if $maybe;
+               plan skip_all => "git $req+ required, have $cur_maj.$cur_min";
+       }
+       1;
+}
+
 1;