Tests: added HTTP/2 test with rejected ALPN.
diff --git a/h2_ssl.t b/h2_ssl.t
index 3a65aaf..99f32ad 100644
--- a/h2_ssl.t
+++ b/h2_ssl.t
@@ -89,10 +89,17 @@
 open STDERR, ">&", \*OLDERR;
 
 plan(skip_all => 'no ALPN negotiation') unless defined getconn();
-$t->plan(2);
+$t->plan(3);
 
 ###############################################################################
 
+TODO: {
+local $TODO = 'not yet' unless $t->has_version('1.21.4');
+
+ok(!get_ssl_socket(['unknown']), 'alpn rejected');
+
+}
+
 like(http_get('/', socket => get_ssl_socket(['http/1.1'])),
 	qr/200 OK/, 'alpn to HTTP/1.1 fallback');