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

Update object accessors, fix a problem with pasting.

Browse source
This commit is contained in:
Colin Kuskie 2010-06-02 19:59:32 -07:00
parent 7b27498912
commit e3de7cd162
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
t/AssetHelper/Cut.t
View file

@ -31,11 +31,6 @@ my $session = WebGUI::Test->session;
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Tests # Tests
plan tests => 5; # Increment this number for each test you create
#----------------------------------------------------------------------------
# put your tests here
my $output; my $output;
my $home = WebGUI::Asset->getDefault($session); my $home = WebGUI::Asset->getDefault($session);
@ -69,11 +64,15 @@ cmp_deeply(
}, },
'AssetHelper/Cut returns a message and a redirect' 'AssetHelper/Cut returns a message and a redirect'
); );
is $safe_page->get('state'), 'clipboard', '... and the asset was really cut'; is $safe_page->state, 'clipboard', '... and the asset was really cut';
$home->paste($safe_page->getId); $session->asset($home);
ok $home->paste($safe_page->getId), 'page pasted correctly';
$safe_page = $safe_page->cloneFromDb(); $session->cache->clear;
is $safe_page->get('state'), 'published', 'reset asset for further testing'; my $safe_page2 = WebGUI::Asset->newById($session, $safe_page->assetId);
is $safe_page2->state, 'published', 'reset asset for further testing';
done_testing();
#vim:ft=perl #vim:ft=perl