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

almost done fixing addRevision tests

Browse source
This commit is contained in:
Doug Bell 2010-11-19 19:26:39 -06:00
parent 6931fd471e
commit 7c14d1e6c4
122 changed files with 389 additions and 1052 deletions
Download patch file Download diff file Expand all files Collapse all files

14
t/Asset/Wobject/DataForm.t
View file

@ -27,23 +27,19 @@ use WebGUI::Session;
my $session = WebGUI::Test->session;
# Create a DataForm
my $df = WebGUI::Asset->getImportNode( $session )
my $df = WebGUI::Test->asset
->addChild( {
className => "WebGUI::Asset::Wobject::DataForm",
mailData => 0,
fieldConfiguration => '[]',
} );
}, undef, time-10 );
my $dform = WebGUI::Asset->getDefault($session)->addChild({
my $dform = WebGUI::Test->asset->addChild({
className => "WebGUI::Asset::Wobject::DataForm",
mailData => 0,
});
}, undef, time-5);
$dform->createField('gotCaptcha', { type => 'Captcha', name => 'humanCheck', });
my $versionTag = WebGUI::VersionTag->getWorking($session);
WebGUI::Test->addToCleanup($versionTag);
$versionTag->commit;
#----------------------------------------------------------------------------
# Tests
@ -69,7 +65,7 @@ WebGUI::Test->interceptLogging( sub {
#----------------------------------------------------------------------------
# getContentLastModified
sleep 3;
sleep 3; # whyyyyyyyy
$df->{_mode} = 'form';
is($df->getContentLastModified, $df->get('lastModified'), 'getContentLastModified: form normally returns lastModified');