Update POD for several methods.
Make getObject clone data for safety and update tests. Make newObject always alter $address for consistency and update tests.
This commit is contained in:
parent
e085eff6af
commit
23f8e48f6d
3 changed files with 51 additions and 38 deletions
|
|
@ -291,10 +291,23 @@ is( $product5->getCollateral('variantsJSON', 'vid', $newVid)->{check}, 'no leaks
|
|||
|
||||
$product5->purge;
|
||||
|
||||
my $product6 = $root->addChild({
|
||||
className => "WebGUI::Asset::Sku::Product",
|
||||
title => "Wide character attempt",
|
||||
});
|
||||
|
||||
$newVid = $product6->setCollateral('variantsJSON', 'vid', 'new', { wideChar => q!“I hope this has a smart quote in it.”!
|
||||
, vid => 'new' });
|
||||
|
||||
use Data::Dumper;
|
||||
diag Dumper $product6->getCollateral('variantsJSON', 'vid', $newVid);
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Cleanup
|
||||
END {
|
||||
|
||||
WebGUI::VersionTag->getWorking($session)->rollback;
|
||||
|
||||
}
|
||||
|
||||
1;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue