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

Pass empty JSON for icalFeeds field in Calendar until I can get good sample data; makes Calendar Test::Asset tests pass.

Browse source
This commit is contained in:
Scott Walters 2010-08-11 23:24:28 -04:00
parent 8f616a9fe1
commit 773fadcffc
2 changed files with 16 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
t/tests/Test/WebGUI/Asset.pm
View file

@ -21,6 +21,8 @@ use WebGUI::Test;
use WebGUI::Utility; use WebGUI::Utility;
use Data::Dumper; use Data::Dumper;
# XXXX fix the Test(n) numbers to match reality
sub constructorExtras { sub constructorExtras {
return; return;
} }
@ -458,6 +460,8 @@ sub t_11_getEditForm : Tests {
my $session = $test->session; my $session = $test->session;
my ( $tag, $asset, @parents ) = $test->getAnchoredAsset(); my ( $tag, $asset, @parents ) = $test->getAnchoredAsset();
local $SIG{__DIE__} = sub { use Carp; Carp::confess "@_"; };
my $f = $asset->getEditForm; # XXX "Attribute (name) is required" / CLASS WebGUI::Asset::Wobject::Poll... fixed, now it's something else: not ok 2105 - t_11_getEditForm died (Can't locate object method "raw" via package "WebGUI::FormBuilder::Tab" at /data/WebGUI/lib/WebGUI/Asset/Wobject/Poll.pm line 292.) my $f = $asset->getEditForm; # XXX "Attribute (name) is required" / CLASS WebGUI::Asset::Wobject::Poll... fixed, now it's something else: not ok 2105 - t_11_getEditForm died (Can't locate object method "raw" via package "WebGUI::FormBuilder::Tab" at /data/WebGUI/lib/WebGUI/Asset/Wobject/Poll.pm line 292.)
isa_ok( $f, 'WebGUI::FormBuilder' ); isa_ok( $f, 'WebGUI::FormBuilder' );
@ -544,19 +548,16 @@ sub t_20_www_editSave : Tests {
# $tag = WebGUI::VersionTag->create($session, {}); $tag->setWorking; # XXXXXX # $tag = WebGUI::VersionTag->create($session, {}); $tag->setWorking; # XXXXXX
sleep 2; # also XXXX sleep 2; # also XXXX
# warn "XXX formProperties: " . Dumper [ formProperties($asset) ];
my %mergedProperties = ( my %mergedProperties = (
formProperties($asset), formProperties($asset),
title => "Newly Saved Title", title => "Newly Saved Title",
); );
if( exists $mergedProperties{attachmentsJson} and ! defined $mergedProperties{attachmentsJson} ) { $test->postProcessMergedProperties(\%mergedProperties);
# XXX move this to the Test::WebGUI::Asset::Template subclass... maybe make a postProcessMergedProperties method
$mergedProperties{attachmentsJson} = '[{"url":"/webgui.css","type":"stylesheet"}]';
}
local $SIG{__DIE__} = sub { use Carp; Carp::confess "@_"; }; warn "XXX mergedProperties: " . Dumper \%mergedProperties;
# local $SIG{__DIE__} = sub { use Carp; Carp::confess "@_"; };
$session->request->setup_body( \%mergedProperties ); $session->request->setup_body( \%mergedProperties );

8
t/tests/Test/WebGUI/Asset/Wobject/Calendar.pm
View file

@ -9,6 +9,8 @@ package Test::WebGUI::Asset::Wobject::Calendar;
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use strict;
use warnings;
use base qw/Test::WebGUI::Asset::Wobject/; use base qw/Test::WebGUI::Asset::Wobject/;
@ -21,4 +23,10 @@ sub list_of_tables {
return [qw/assetData wobject Calendar/]; return [qw/assetData wobject Calendar/];
} }
sub postProcessMergedProperties {
my $test = shift;
my $properties = shift;
$properties->{icalFeeds} = q{[]}; # XXX get some real data to stick in there
}
1; 1;