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

fix a typo in the AssetMetaData, and add code to WebGUI::Test to force all output onto STDOUT. Step 1 to smolder

Browse source
This commit is contained in:
Colin Kuskie 2007-06-06 23:40:14 +00:00
parent 1718410c10
commit efea7c9685
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/Asset/AssetMetaData.t
View file

@ -71,7 +71,7 @@ $folder->addMetaDataField('new', 'color', '', 'Favorite Color', 'radioList', "Bl
@snipKeys = keys %{ $snippet->getMetaDataFields }; @snipKeys = keys %{ $snippet->getMetaDataFields };
@foldKeys = keys %{ $folder->getMetaDataFields }; @foldKeys = keys %{ $folder->getMetaDataFields };
is(scalar @foldKeys, 2, 'Two meta data field available'); is(scalar @foldKeys, 2, 'Two meta data fields available');
cmp_deeply( \@snipKeys, \@foldKeys, 'Snippet and Folder have access to the same meta data fields'); cmp_deeply( \@snipKeys, \@foldKeys, 'Snippet and Folder have access to the same meta data fields');
END { END {

7
t/lib/WebGUI/Test.pm
View file

@ -10,6 +10,13 @@ use IO::Handle qw[];
use File::Spec qw[]; use File::Spec qw[];
use Test::MockObject::Extends; use Test::MockObject::Extends;
##Hack to get ALL test output onto STDOUT.
use Test::Builder;
sub import {
no warnings;
*Test::Builder::failure_output = sub { return \*STDOUT };
}
our $logger_warns; our $logger_warns;
our $logger_debug; our $logger_debug;
our $logger_info; our $logger_info;