From 350d6984416bcebc887f6bdf8741236bc1e4f3a1 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 28 Nov 2007 05:45:11 +0000
Subject: [PATCH] forward porting another batch of Event getTemplateVar tests

---
 t/Asset/Event.t | 46 +++++++++++++++++++++++++++++++++++++++++-----
 1 file changed, 41 insertions(+), 5 deletions(-)

diff --git a/t/Asset/Event.t b/t/Asset/Event.t
index 4d8eeb2af..3b79345da 100644
--- a/t/Asset/Event.t
+++ b/t/Asset/Event.t
@@ -19,7 +19,7 @@ use WebGUI::Asset::Event;
 
 use Test::More; # increment this value for each test you create
 use Test::Deep;
-plan tests => 2;
+plan tests => 9;
 
 my $session = WebGUI::Test->session;
 
@@ -31,10 +31,10 @@ $versionTag->commit;
 
 my $properties = {
 	#     '1234567890123456789012'
-	id        => 'EventAssetTest00000012',
+	id        => 'EventAssetTest00000001',
 	title     => 'Birthday of WebGUI',
 	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
     startTime => '23:00:00',
     endDate   => '2000-08-17',
@@ -45,15 +45,51 @@ my $properties = {
 
 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');
 
 my %templateVars = $event->getTemplateVars();
+is($templateVars{isOneDay}, 1, 'getTemplateVars: isOneDay with start times');
 is($templateVars{dateSpan}, 'Wednesday, August 16 6:00 PM &dash;  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 &bull; Thursday, August 17 ', 'getTemplateVars: dateSpan with no times, across two days');
+is($templateVars{isOneDay}, 0, 'getTemplateVars: isOneDay with different start and end dates');
+
 END {
 	# Clean up after thy self
     $versionTag->rollback;
-	$secondVersionTag->rollback();
+    foreach my $evTag (@eventVersionTags) {
+        $evTag->rollback();
+    }
 }