]> Sergey Matveev's repositories - public-inbox.git/blobdiff - t/git.t
git: use async_wait_all everywhere
[public-inbox.git] / t / git.t
diff --git a/t/git.t b/t/git.t
index 4a45bbaf830d0342b17ad9b53a621d2de279ea39..2a189eac6c40835fa62a81024bed194fdebc48ac 100644 (file)
--- a/t/git.t
+++ b/t/git.t
@@ -61,7 +61,7 @@ use_ok 'PublicInbox::Git';
                my ($bref, $oid_hex, $type, $size, $arg) = @_;
                $missing = [ @_ ];
        }, $arg);
-       $gcf->cat_async_wait;
+       $gcf->async_wait_all;
        my ($bref, $oid_hex, $type, $size, $arg_res) = @$res;
        is_deeply([$oid_hex, $type, $size], \@x, 'got expected header');
        is($arg_res, $arg, 'arg passed to cat_async');
@@ -98,8 +98,10 @@ if (1) {
 
        $gcf->qx(qw(repack -adq));
        ok($gcf->packed_bytes > 0, 'packed size is positive');
-       $gcf->qx(qw(rev-parse --verify bogus));
-       isnt($?, 0, '$? set on failure'.$?);
+       my $rdr;
+       open $rdr->{2}, '+>', '/dev/null' or xbail "open $!";
+       $gcf->qx([qw(rev-parse --verify bogus)], undef, $rdr);
+       isnt($?, 0, '$? set on failure: '.$?);
 }
 
 SKIP: {
@@ -145,7 +147,7 @@ SKIP: {
                # trigger cat_async_retry:
                $gcf->cat_async($remote, $cb, $results);
        }
-       $gcf->cat_async_wait;
+       $gcf->async_wait_all;
        my $expect = [ @exist[0..3], [ $remote, 'blob', 5 ], @exist[4..5] ];
        is_deeply($results, $expect, 'got expected results');
 
@@ -168,5 +170,7 @@ is(git_quote($s = "ElĂ©anor"), '"El\\303\\251anor"', 'quoted octal');
 is(git_quote($s = "hello\"world"), '"hello\"world"', 'quoted dq');
 is(git_quote($s = "hello\\world"), '"hello\\\\world"', 'quoted backslash');
 is(git_quote($s = "hello\nworld"), '"hello\\nworld"', 'quoted LF');
+is(git_quote($s = "hello\x06world"), '"hello\\006world"', 'quoted \\x06');
+is(git_unquote($s = '"hello\\006world"'), "hello\x06world", 'unquoted \\x06');
 
 done_testing();