7 lines
162 B
Perl
7 lines
162 B
Perl
my $s = session;
|
|
::isa_ok $s, 'WebGUI::Session';
|
|
::is $s, session, 'session properly cached';
|
|
::is $s->user->getId, 3, 'admin user set for session';
|
|
|
|
$s->getId;
|
|
|