web/server/h2o/libh2o/t/10http1client.t


1
2
3
4
5
6
7
8
9
10
11
12
13

use strict;
use warnings;
use Test::More;
use t::Util;

my $fn = bindir() . "/examples-http1client";

plan skip_all => 'http1client not found'
    unless -x $fn;

is(system("$fn http://kazuhooku.com > /dev/null"), 0);

done_testing;