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

forward porting another batch of Event getTemplateVar tests

Browse source
This commit is contained in:
Colin Kuskie 2007-11-28 05:45:11 +00:00
parent a1ea1ec2de
commit 350d698441
1 changed files with 41 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

46
t/Asset/Event.t
View file

@ -19,7 +19,7 @@ use WebGUI::Asset::Event;
use Test::More; # increment this value for each test you create use Test::More; # increment this value for each test you create
use Test::Deep; use Test::Deep;
plan tests => 2; plan tests => 9;
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
@ -31,10 +31,10 @@ $versionTag->commit;
my $properties = { my $properties = {
# '1234567890123456789012' # '1234567890123456789012'
id => 'EventAssetTest00000012', id => 'EventAssetTest00000001',
title => 'Birthday of WebGUI', title => 'Birthday of WebGUI',
className => 'WebGUI::Asset::Event', className => 'WebGUI::Asset::Event',
url => 'event-asset-test', url => 'event-asset-test1',
startDate => '2000-08-16', ##Times and dates have to be entered in UTC startDate => '2000-08-16', ##Times and dates have to be entered in UTC
startTime => '23:00:00', startTime => '23:00:00',
endDate => '2000-08-17', endDate => '2000-08-17',
@ -45,15 +45,51 @@ my $properties = {
my $event = $cal->addChild($properties, $properties->{id}); my $event = $cal->addChild($properties, $properties->{id});
my $secondVersionTag = WebGUI::VersionTag->new($session, $event->get("tagId")); my @eventVersionTags = ();
push @eventVersionTags, WebGUI::VersionTag->new($session, $event->get("tagId"));
is($event->isAllDay, 0, 'isAllDay is zero since it has a start and end time'); is($event->isAllDay, 0, 'isAllDay is zero since it has a start and end time');
my %templateVars = $event->getTemplateVars(); my %templateVars = $event->getTemplateVars();
is($templateVars{isOneDay}, 1, 'getTemplateVars: isOneDay with start times');
is($templateVars{dateSpan}, 'Wednesday, August 16 6:00 PM ‐ 10:00 PM', 'getTemplateVars: dateSpan bridges times on a single day'); is($templateVars{dateSpan}, 'Wednesday, August 16 6:00 PM ‐ 10:00 PM', 'getTemplateVars: dateSpan bridges times on a single day');
$properties->{startDate} = '2000-08-16';
$properties->{endDate} = '2000-08-16';
$properties->{startTime} = undef;
$properties->{endTime} = undef;
$properties->{id} = 'EventAssetTest00000002';
$properties->{url} = 'event-asset-test2';
my $event2 = $cal->addChild($properties, $properties->{id});
push @eventVersionTags, WebGUI::VersionTag->new($session, $event2->get("tagId"));
is($event2->isAllDay, 1, 'isAllDay is zero since it has no start or end time');
%templateVars = $event2->getTemplateVars();
is($templateVars{dateSpan}, 'Wednesday, August 16', 'getTemplateVars: dateSpan with no times');
is($templateVars{isOneDay}, 1, 'getTemplateVars: isOneDay with start times');
$properties->{startDate} = '2000-08-16';
$properties->{endDate} = '2000-08-17';
$properties->{startTime} = undef;
$properties->{endTime} = undef;
$properties->{id} = 'EventAssetTest00000003';
$properties->{url} = 'event-asset-test3';
my $event3 = $cal->addChild($properties, $properties->{id});
push @eventVersionTags, WebGUI::VersionTag->new($session, $event3->get("tagId"));
is($event3->isAllDay, 1, 'isAllDay is zero since it has no start or end time, even on different days');
%templateVars = $event3->getTemplateVars();
is($templateVars{dateSpan}, 'Wednesday, August 16 • Thursday, August 17 ', 'getTemplateVars: dateSpan with no times, across two days');
is($templateVars{isOneDay}, 0, 'getTemplateVars: isOneDay with different start and end dates');
END { END {
# Clean up after thy self # Clean up after thy self
$versionTag->rollback; $versionTag->rollback;
$secondVersionTag->rollback(); foreach my $evTag (@eventVersionTags) {
$evTag->rollback();
}
} }