Skip to content

Commit

Permalink
Test fixes for cross repo-mixup.
Browse files Browse the repository at this point in the history
  • Loading branch information
perlDreamer committed Jun 26, 2010
1 parent 5febc0e commit 55ec178
Show file tree
Hide file tree
Showing 7 changed files with 5 additions and 26 deletions.
3 changes: 0 additions & 3 deletions t/Asset/File/GalleryFile/Photo/view.t
Expand Up @@ -128,9 +128,6 @@ my $testTemplateVars = {
lastFile_thumbnailUrl
=> $nextPhoto->getThumbnailUrl,
lastFile_title => $nextPhoto->get("title"),
ownerAlias => 'Admin',
ownerId => '3',
ownerProfileUrl => '/?op=account;module=profile;do=view;uid=3',
};

# Ignore all EXIF tags, they're tested in exif.t
Expand Down
4 changes: 1 addition & 3 deletions t/Asset/Story.t
Expand Up @@ -274,11 +274,9 @@ cmp_deeply(
{
title => 'Story 1',
description => 'WebGUI was originally called Web Done Right.',
'link' => all(re('^'.$session->url->getSiteURL),re('story-1$')),
guid => re('story-1$'),
'link' => re('story-1$'),
author => 'JT Smith',
date => $story->lastModified,
pubDate => $session->datetime->epochToMail($story->get('creationDate')),
},
'getRssData: returns correct data'
);
Expand Down
6 changes: 0 additions & 6 deletions t/Asset/Wobject/StoryArchive.t
Expand Up @@ -548,26 +548,20 @@ cmp_deeply(
'link' => ignore(),
date => ignore(),
author => ignore(),
pubDate => ignore(),
guid => ignore(),
},
{
title => 'Story 2',
description => ignore(),
'link' => ignore(),
date => ignore(),
author => ignore(),
pubDate => ignore(),
guid => ignore(),
},
{
title => 'Story 3',
description => ignore(),
'link' => ignore(),
date => ignore(),
author => ignore(),
pubDate => ignore(),
guid => ignore(),
},
],
'rssFeedItems'
Expand Down
6 changes: 0 additions & 6 deletions t/Asset/Wobject/StoryTopic.t
Expand Up @@ -297,26 +297,20 @@ cmp_deeply(
'link' => ignore(),
date => ignore(),
author => ignore(),
pubDate => ignore(),
guid => ignore(),
},
{
title => 'red',
description => ignore(),
'link' => ignore(),
date => ignore(),
author => ignore(),
pubDate => ignore(),
guid => ignore(),
},
{
title => 'brooks',
description => ignore(),
'link' => ignore(),
date => ignore(),
author => ignore(),
pubDate => ignore(),
guid => ignore(),
},
],
'rssFeedItems'
Expand Down
2 changes: 0 additions & 2 deletions t/Macro/PickLanguage.t
Expand Up @@ -54,7 +54,6 @@ $templateMock->mock('process', sub { $templateVars = $_[1]; } );
'language_langAbbr' => 'en',
'language_langAbbrLoc' => 'US',
'language_langEng' => 'English',
'language_isCurrent' => '1',
},
],
delete_url => '?op=setLanguage;language=delete;',
Expand Down Expand Up @@ -83,7 +82,6 @@ $templateMock->mock('process', sub { $templateVars = $_[1]; } );
'language_langAbbr' => 'en',
'language_langAbbrLoc' => 'US',
'language_langEng' => 'English',
'language_isCurrent' => '1',
},
],
delete_url => '?op=setLanguage;language=delete;',
Expand Down
8 changes: 4 additions & 4 deletions t/Storage.t
Expand Up @@ -68,8 +68,8 @@ is( $storage1->getLastError, undef, "No errors during path creation");
#
####################################################

is( $storage1->getPathFrag, '7e/8a/7e8a1b6ab', 'pathFrag returns correct value');
is( $storage1->getDirectoryId, '7e8a1b6ab', 'getDirectoryId returns the last path element');
is( $storage1->getPathFrag, '7e/8a/7e8a1b6a', 'pathFrag returns correct value');
is( $storage1->getDirectoryId, '7e8a1b6a', 'getDirectoryId returns the last path element');

##Build an old-style GUID storage location
my $uploadsBase = Path::Class::Dir->new($uploadDir);
Expand All @@ -94,12 +94,12 @@ is($guidStorage->getDirectoryId, $newGuid, '... getDirectoryId');
$session->config->delete('cdn');
# Note: the CDN configuration will be reverted after CDN tests below

my $storageDir1 = join '/', $uploadDir, '7e', '8a', '7e8a1b6ab';
my $storageDir1 = join '/', $uploadDir, '7e', '8a', '7e8a1b6a';
is ($storage1->getPath, $storageDir1, 'getPath: path calculated correctly for directory');
my $storageFile1 = join '/', $storageDir1, 'baz';
is ($storage1->getPath('baz'), $storageFile1, 'getPath: path calculated correctly for file');

my $storageUrl1 = join '/', $uploadUrl, '7e', '8a', '7e8a1b6ab';
my $storageUrl1 = join '/', $uploadUrl, '7e', '8a', '7e8a1b6a';
is ($storage1->getUrl, $storageUrl1, 'getUrl: url calculated correctly for directory');
my $storageUrl2 = join '/', $storageUrl1, 'bar';
is ($storage1->getUrl('bar'), $storageUrl2, 'getUrl: url calculated correctly for file');
Expand Down
2 changes: 0 additions & 2 deletions t/tests/Test/WebGUI/Asset.pm
Expand Up @@ -42,7 +42,6 @@ sub getAnchoredAsset {
$a = $a->cloneFromDb;
}
WebGUI::Test->addToCleanup($tag);
warn "returning data";
return ($tag, $asset, @parents);
}

Expand Down Expand Up @@ -274,7 +273,6 @@ sub t_05_cut_paste : Test(5) {
my $session = $test->session;
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';
my $session_asset = $session->asset();
$session->asset($parents[-1]);
Expand Down

0 comments on commit 55ec178

Please sign in to comment.