# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1443099919 -10800
# Node ID 649af6069976f6e9ddb6685890b8742e91809b7b
# Parent  824754da4afc4c48877299aa053d4da1c6bb4283
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().

diff --git a/h2.t b/h2.t
--- a/h2.t
+++ b/h2.t
@@ -1086,9 +1086,15 @@ h2_window($sess, 1, $sid);
 
 $frames = h2_read($sess, all => [{ sid => $sid, length => 1 }]);
 is(@$frames, 1, 'positive window');
+
+SKIP: {
+skip 'failed connection', 2 unless @$frames;
+
 is(@$frames[0]->{type}, 'DATA', 'positive window - data');
 is(@$frames[0]->{length}, 1, 'positive window - data length');
 
+}
+
 # ask write handler in sending large response
 
 $sid = new_stream($sess, { path => '/tbig.html' });