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

Account for asset collateral in generated files for the AssetExportHtml test.

Browse source
This commit is contained in:
Colin Kuskie 2009-04-02 16:46:07 +00:00
parent ca4a9add6d
commit 77252517a0
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
t/Asset/AssetExportHtml.t
View file

@ -770,6 +770,10 @@ $exportPath->rmtree;
);
my $numberCreatedAll = scalar @createdFiles;
push @createdFiles,
[ qw/ the_latest_news the_latest_news.atom /],
[ qw/ the_latest_news the_latest_news.rss /],
;
# turn them into Path::Class::File objects
my @shouldExist = map { Path::Class::File->new($exportPath, @{$_})->absolute->stringify } @createdFiles;
@ -870,6 +874,11 @@ $gettingStarted->update({ isExportable => 0 });
[ qw/ documentation free-documentation index.html /],
);
my $numberCreated = scalar @createdFiles;
push @createdFiles,
[ qw/ the_latest_news the_latest_news.atom /],
[ qw/ the_latest_news the_latest_news.rss /],
;
@shouldExist = map { Path::Class::File->new($exportPath, @{$_})->absolute->stringify } @createdFiles;
$exportPath->recurse( callback => sub { my $o = shift; $o->is_dir ? return : push @doExist, $o->absolute->stringify } );