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

Test maintenance.

Browse source
This commit is contained in:
Colin Kuskie 2009-11-16 17:03:29 -08:00
parent 01e873eec7
commit c8bda63587
1 changed files with 4 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

20
t/Asset/Wobject/SQLReport.t
View file

@ -22,6 +22,7 @@ use Data::Dumper;
use WebGUI::Test; # Must use this before any other WebGUI modules use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Asset::Wobject::SQLReport;
################################################################ ################################################################
# #
@ -31,34 +32,23 @@ use WebGUI::Session;
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
my $tests = 4 plan tests => 4;
;
plan tests => 1
+ $tests;
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# put your tests here # put your tests here
my $class = 'WebGUI::Asset::Wobject::SQLReport';
my $loaded = use_ok($class);
SKIP: {
skip "Unable to load module $class", $tests unless $loaded;
my $defaultNode = WebGUI::Asset->getDefault($session); my $defaultNode = WebGUI::Asset->getDefault($session);
my $report = $defaultNode->addChild({ my $report = $defaultNode->addChild({
className => $class, className => 'WebGUI::Asset::Wobject::SQLReport',
title => 'test report', title => 'test report',
cacheTimeout => 50, cacheTimeout => 50,
dqQuery1 => 'select * from users', dqQuery1 => 'select * from users',
}); });
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
WebGUI::Test->tagsToRollback($versionTag);
$versionTag->commit; $versionTag->commit;
addToCleanup($versionTag);
isa_ok($report, 'WebGUI::Asset::Wobject::SQLReport'); isa_ok($report, 'WebGUI::Asset::Wobject::SQLReport');
@ -67,5 +57,3 @@ ok(abs($report->getContentLastModified - (time - 50)) < 2, 'getContentLastModifi
$report->update({cacheTimeout => 250}); $report->update({cacheTimeout => 250});
ok(abs($report->getContentLastModified - (time - 250)) < 2, '... tracks cacheTimeout'); ok(abs($report->getContentLastModified - (time - 250)) < 2, '... tracks cacheTimeout');
}