# HG changeset patch # User Sergey Kandaurov # Date 1547742558 -10800 # Node ID aab729315dca8f6874a9ea7871a4dd2e62f68950 # Parent bba26f4b40ef7af7ac51a5141ee6471ce435f214 Tests: stream_udp_limit_rate.t TODOs removed, fix committed. diff --git a/stream_udp_limit_rate.t b/stream_udp_limit_rate.t --- a/stream_udp_limit_rate.t +++ b/stream_udp_limit_rate.t @@ -74,35 +74,20 @@ is($s->io($str), $str, 'unlimited 2'); # datagram doesn't get split -my $t1; - -TODO: { -local $TODO = 'split datagram'; - $s = dgram('127.0.0.1:' . port(8983)); is($s->io($str), $str, 'download'); -$t1 = time(); +my $t1 = time(); is($s->io($str), $str, 'download 2'); - -} - my $t2 = time(); cmp_ok($t1, '<', $t2, 'download 2 delayed'); -TODO: { -todo_skip 'infinite event report', 3; - $s = dgram('127.0.0.1:' . port(8984)); is($s->io($str), $str, 'upload'); - is($s->io($str, read_timeout => 0.5), '', 'upload limited'); select undef, undef, undef, 0.6; - is($s->io($str), $str, 'upload passed'); -} - ############################################################################### sub udp_daemon {