comparison h2.t @ 712:649af6069976

Tests: skipped some HTTP/2 tests is case of a failed connection. Otherwise, perl reacts badly on dereferencing an undefined value. Notably, this can happen due to an nginx bug in HTTP/2 that leads to premature connection close and is already noted in tests with todo_alerts().
author Sergey Kandaurov <pluknet@nginx.com>
date Thu, 24 Sep 2015 16:05:19 +0300
parents 01e5d5717815
children ccc9f389e1f8
comparison
equal deleted inserted replaced
711:824754da4afc 712:649af6069976
1084 1084
1085 h2_window($sess, 1, $sid); 1085 h2_window($sess, 1, $sid);
1086 1086
1087 $frames = h2_read($sess, all => [{ sid => $sid, length => 1 }]); 1087 $frames = h2_read($sess, all => [{ sid => $sid, length => 1 }]);
1088 is(@$frames, 1, 'positive window'); 1088 is(@$frames, 1, 'positive window');
1089
1090 SKIP: {
1091 skip 'failed connection', 2 unless @$frames;
1092
1089 is(@$frames[0]->{type}, 'DATA', 'positive window - data'); 1093 is(@$frames[0]->{type}, 'DATA', 'positive window - data');
1090 is(@$frames[0]->{length}, 1, 'positive window - data length'); 1094 is(@$frames[0]->{length}, 1, 'positive window - data length');
1095
1096 }
1091 1097
1092 # ask write handler in sending large response 1098 # ask write handler in sending large response
1093 1099
1094 $sid = new_stream($sess, { path => '/tbig.html' }); 1100 $sid = new_stream($sess, { path => '/tbig.html' });
1095 1101