# HG changeset patch # User Sergey Kandaurov # Date 1548157024 -10800 # Node ID 3e0dcf1e7752960d1562ad70e6700326978c0ca9 # Parent d17fb72140f24a87c55cca61f178436c3686d5f2 Tests: keep stream_udp_limit_rate.t TODOs for a while. It's useful to have tests pass on the latest (unfixed) version available. 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,13 +74,24 @@ is($s->io($str), $str, 'unlimited 2'); # datagram doesn't get split +my $t1; + +TODO: { +local $TODO = 'split datagram' unless $t->has_version('1.15.9'); + $s = dgram('127.0.0.1:' . port(8983)); is($s->io($str), $str, 'download'); -my $t1 = time(); +$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 unless $t->has_version('1.15.9'); + $s = dgram('127.0.0.1:' . port(8984)); is($s->io($str), $str, 'upload'); is($s->io($str, read_timeout => 0.5), '', 'upload limited'); @@ -88,6 +99,8 @@ is($s->io($str, read_timeout => 0.5), '' select undef, undef, undef, 1.6; is($s->io($str), $str, 'upload passed'); +} + ############################################################################### sub udp_daemon {