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

Tests for writing to the database.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-13 16:43:25 -08:00
parent 1f44e63af2
commit 10ca1fd206
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
t/Asset.t
View file

@ -154,5 +154,15 @@ my $session = WebGUI::Test->session;
{
note "write";
is +WebGUI::Asset->meta->uiLevel, 1, 'uiLevel: default for assets is 1';
my $testId = 'wg8TestAsset0000000001';
$session->db->write("replace into asset (assetId) VALUES (?)", [$testId]);
my $revisionDate = time();
$session->db->write("replace into assetData (assetId, revisionDate) VALUES (?,?)", [$testId, $revisionDate]);
my $testAsset = WebGUI::Asset->new($session, $testId, $revisionDate);
$testAsset->title('wg8 test title');
$testAsset->write();
my $testTitle = $session->db->quickScalar('select title from assetData where assetId=? and revisionDate=?',[$testId, $revisionDate]);
is $testTitle, 'wg8 test title', 'data written correctly to db';
$session->db->write("delete from asset where assetId=?", [$testId]);
$session->db->write("delete from assetData where assetId=?", [$testId]);
}