testing for all upgrade script subs
This commit is contained in:
parent
15ed4f97e4
commit
94baba20fc
28 changed files with 226 additions and 81 deletions
7
t/supporting_collateral/Upgrade/session.pl
Normal file
7
t/supporting_collateral/Upgrade/session.pl
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
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;
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue