관리-도구

편집 파일: online.t

use strict; use warnings; use Test::More; use LWP::UserAgent (); plan tests => 4; my $ua = LWP::UserAgent->new; is($ua->protocols_allowed(), undef, 'protocols_allowed: undefined'); ok($ua->is_online, 'is_online: truthy value'); $ua->protocols_allowed([]); is_deeply($ua->protocols_allowed, [], 'protocols_allowed: empty list'); ok(!$ua->is_online, 'is_online: falsey value');