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

Add tests for paste. Be sure to setup session->asset for canPaste tests.

Browse source
This commit is contained in:
Colin Kuskie 2010-04-09 15:22:07 -07:00
parent a598c134c1
commit a79f81346a
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
t/tests/Test/WebGUI/Asset.pm
View file

@ -324,13 +324,19 @@ sub purge : Test(3) {
ok ! $exists_in_table, 'assetId removed from all asset tables'; ok ! $exists_in_table, 'assetId removed from all asset tables';
} }
sub cut : Test(2) { sub cut_paste : Test(4) {
note "cut"; note "cut";
my $test = shift; my $test = shift;
my $session = $test->session; my $session = $test->session;
my ($tag, $asset, @parents) = $test->getAnchoredAsset(); my ($tag, $asset, @parents) = $test->getAnchoredAsset();
ok $asset->cut, 'cut returns true if it was cut'; ok $asset->cut, 'cut returns true if it was cut';
is $asset->state, 'clipboard', 'asset state updated'; is $asset->state, 'clipboard', 'asset state updated';
my $session_asset = $session->asset();
$session->asset($parents[-1]);
ok $parents[-1]->paste($asset->assetId), 'paste returns true when it pastes';
$asset_prime = $asset->cloneFromDb;
is $asset_prime->state, 'published', 'asset state updated';
$session->asset($session_asset);
} }