07errbuf.t « new « t - platform/upstream/perl-WWW-Curl - Domain: System / Base; Licenses: Artistic-2.0;

index : platform/upstream/perl-WWW-Curl

Domain: System / Base; Licenses: Artistic-2.0;

Donghun Kwak <dh0128.kwak@samsung.com>, JinWang An <jinwang.an@samsung.com>, Kiseok Chang <kiso.chang@samsung.com>

summary refs log tree commit diff

path: root/t/new/07errbuf.t

blob: 9ecd4f4d3373c5c26d59209b7ec416050cf3b6bd (plain)

use strict;
use Test::Simple tests => 1;
use WWW::Curl::Easy;

my $curl = new WWW::Curl::Easy;
$curl->setopt( CURLOPT_URL, 'badprotocol://127.0.0.1:2' );
$curl->perform;
my $err = $curl->errbuf;
ok($err);