oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adding FilePump

Browse source
This commit is contained in:
Colin Kuskie 2009-05-18 16:03:50 +00:00
commit d8a1623ea0
14 changed files with 1986 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

33
t/lib/WebGUI/Test.pm
View file

@ -56,6 +56,7 @@ my @groupsToDelete;
my @usersToDelete;
my @sessionsToDelete;
my @storagesToDelete;
my @tagsToRollback;
BEGIN {
@ -164,6 +165,9 @@ END {
$session->var->end;
$session->close;
}
foreach my $tag (@tagsToRollback) {
$tag->rollback;
}
if ($ENV{WEBGUI_TEST_DEBUG}) {
$Test->diag('Sessions: '.$SESSION->db->quickScalar('select count(*) from userSession'));
$Test->diag('Scratch : '.$SESSION->db->quickScalar('select count(*) from userSessionScratch'));
@ -390,6 +394,20 @@ sub webguiBirthday {
return 997966800 ;
}
#----------------------------------------------------------------------------
=head2 webguiBirthday ( )
This constant is used in several tests, so it's reproduced here so it can
be found easy. This is the epoch date when WebGUI was released.
=cut
sub webguiBirthday {
return 997966800 ;
}
#----------------------------------------------------------------------------
@ -461,6 +479,21 @@ sub sessionsToDelete {
#----------------------------------------------------------------------------
=head2 tagsToRollback ( $tag )
Push a list of version tags to rollback at the end of the test.
This is a class method.
=cut
sub tagsToRollback {
my $class = shift;
push @tagsToRollback, @_;
}
#----------------------------------------------------------------------------
=head2 usersToDelete ( $user, [$user, ...] )
Push a list of user objects onto the stack of groups to be automatically deleted