SessionSet.t   [plain text]

use strict;
use Test::More tests => 6;
use_ok qw(IO::SessionSet);

is IO::SessionSet->SessionDataClass(), 'IO::SessionData', 'SessionDataClass';

my $set;

ok $set = IO::SessionSet->new(), 'new';
is scalar $set->sessions(), 0, 'sessions';

is $set->to_handle('foo'), undef, "to_handle('foo');";
is $set->to_session('foo'), undef, "to_session('foo');";