1use strict; 2use Test::More tests => 9; 3 4use_ok qw(IO::SessionData); 5my $session; 6ok $session = IO::SessionData->new( 7 undef, 'foo', 'writeonly' 8); 9 10is $session->handle(), 'foo'; 11is $session->sessions(), undef; 12is $session->pending(), 0; 13 14is $session->write_limit(42), 42, 'write_limit(42)'; 15is $session->write_limit(), 42; 16 17is $session->set_choke(42), 42, 'set_choke(42)'; 18is $session->set_choke(), 42;