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;