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

add another fixTitle test for title only with HTML

Browse source
This commit is contained in:
Colin Kuskie 2008-07-16 00:42:00 +00:00
parent ebe45dfdbe
commit 4392442655
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
t/Asset/Asset.t
View file

@ -435,7 +435,7 @@ my $importNodeTitle = $importNode->getTitle();
foreach my $test (@fixTitleTests) { foreach my $test (@fixTitleTests) {
my $fixedTitle = $importNode->fixTitle($test->{title}, 'ownerUserId'); my $fixedTitle = $importNode->fixTitle($test->{title}, 'ownerUserId');
my $expectedTitle = $test->{fixed} || $importNodeTitle; my $expectedTitle = defined $test->{fixed} ? $test->{fixed} : $importNodeTitle;
is($fixedTitle, $expectedTitle, $test->{comment}); is($fixedTitle, $expectedTitle, $test->{comment});
} }
@ -697,9 +697,7 @@ is($rootAsset->get('isExportable'), 1, 'isExportable exists, defaults to 1');
################################################################ ################################################################
my $assetProps = $rootAsset->get(); my $assetProps = $rootAsset->get();
my $funkyTitle = q{Miss Annie's Whoopie Emporium and Sasparilla Shop}; my $funkyTitle = q{Miss Annie's Whoopie Emporium and Sasparilla Shop};
diag $assetProps->{title};
$assetProps->{title} = $funkyTitle; $assetProps->{title} = $funkyTitle;
diag $assetProps->{title};
isnt( $rootAsset->get('title'), $funkyTitle, 'get returns a safe copy of the Asset properties'); isnt( $rootAsset->get('title'), $funkyTitle, 'get returns a safe copy of the Asset properties');
@ -881,29 +879,29 @@ sub getFixIdTests {
} }
##Return an array of hashrefs. Each hashref describes a test ##Return an array of hashrefs. Each hashref describes a test
##for the fixTitle method. If "fixed" != 0, it should ##for the fixTitle method. If "fixed" != undef, it should
##contain what the fixTitle method will return. ##contain what the fixTitle method will return.
sub getFixTitleTests { sub getFixTitleTests {
my $session = shift; my $session = shift;
return ({ return ({
title => undef, title => undef,
fixed => 0, fixed => undef,
comment => "undef returns the Asset's title", comment => "undef returns the Asset's title",
}, },
{ {
title => '', title => '',
fixed => 0, fixed => undef,
comment => "null string returns the Asset's title", comment => "null string returns the Asset's title",
}, },
{ {
title => 'untitled', title => 'untitled',
fixed => 0, fixed => undef,
comment => "'untitled' returns the Asset's title", comment => "'untitled' returns the Asset's title",
}, },
{ {
title => 'UnTiTlEd', title => 'UnTiTlEd',
fixed => 0, fixed => undef,
comment => "'untitled' in any case returns the Asset's title", comment => "'untitled' in any case returns the Asset's title",
}, },
{ {
@ -926,6 +924,11 @@ sub getFixTitleTests {
fixed => 'This is a good Title', fixed => 'This is a good Title',
comment => "Good titles are passed", comment => "Good titles are passed",
}, },
{
title => '<b></b>',
fixed => '',
comment => "If there is no title left after processing, then it is set to untitled.",
},
); );
} }