view release on metacpan or  search on metacpan

t/01-simple.t  view on Meta::CPAN

use Test::More;

use Apache::Session::Generate::Random;

my %session;

Apache::Session::Generate::Random::generate( \%session );

ok my $id =  $session{data}->{_session_id}, "generated a session_id";

is Apache::Session::Generate::Random::validate( \%session ), $id, "validated session_id";

done_testing;