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;