lei add-external: completion for existing URL basenames

[public-inbox.git] / t / cmd_ipc.t

diff --git a/t/cmd_ipc.t b/t/cmd_ipc.t
index 96510175263b4680cacdd2960a92723a64cd49b0..84f8fb4d2ca20f492d98592ae65c6f78e5f31835 100644 (file)
--- a/t/cmd_ipc.t
+++ b/t/cmd_ipc.t
@@ -82,6 +82,22 @@ my $do_test = sub { SKIP: {
                @fds = $recv->($s2, $buf, length($src));
                is(scalar(@fds), 0, 'no FDs received');
                is($buf, $src, 'recv w/o FDs');
+
+               my $nr = 2 * 1024 * 1024;
+               while (1) {
+                       vec(my $vec = '', $nr * 8 - 1, 1) = 1;
+                       my $n = $send->($s1, [], $vec, $flag);
+                       if (defined($n)) {
+                               $n == length($vec) or
+                                       fail "short send: $n != ".length($vec);
+                               diag "sent $nr, retrying with more";
+                               $nr += 2 * 1024 * 1024;
+                       } else {
+                               ok($!{EMSGSIZE}, 'got EMSGSIZE');
+                               # diag "$nr bytes hits EMSGSIZE";
+                               last;
+                       }
+               }
        }
 } };