From e3de7cd162e58f789465f07298e7e3254ae1def3 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Wed, 2 Jun 2010 19:59:32 -0700 Subject: [PATCH] Update object accessors, fix a problem with pasting. --- t/AssetHelper/Cut.t | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/t/AssetHelper/Cut.t b/t/AssetHelper/Cut.t index 50adabedd..dfb75ae4d 100644 --- a/t/AssetHelper/Cut.t +++ b/t/AssetHelper/Cut.t @@ -31,11 +31,6 @@ my $session = WebGUI::Test->session; #---------------------------------------------------------------------------- # Tests -plan tests => 5; # Increment this number for each test you create - -#---------------------------------------------------------------------------- -# put your tests here - my $output; my $home = WebGUI::Asset->getDefault($session); @@ -69,11 +64,15 @@ cmp_deeply( }, '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(); -is $safe_page->get('state'), 'published', 'reset asset for further testing'; +$session->cache->clear; +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