From 7fbb4a826b22c370874491a71e8fe958de144af2 Mon Sep 17 00:00:00 2001 From: Diona Kidd Date: Fri, 1 Aug 2008 14:23:36 +0000 Subject: [PATCH] Passing tests for badges, tickets and ribbons --- t/Asset/Wobject/EventManagementSystem.t | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/t/Asset/Wobject/EventManagementSystem.t b/t/Asset/Wobject/EventManagementSystem.t index 3f92c6cb0..548fe071d 100644 --- a/t/Asset/Wobject/EventManagementSystem.t +++ b/t/Asset/Wobject/EventManagementSystem.t @@ -90,11 +90,15 @@ $versionTag->set({name=>"EventManagementSystem Test"}); my @badges; push(@badges, $ems->addChild({ className=>'WebGUI::Asset::Sku::EMSBadge', + title => 'title', + description => 'desc', workflowIdCommit => 'pbworkflow000000000003', # Commit Content Immediately })); push(@badges, $ems->addChild({ className=>'WebGUI::Asset::Sku::EMSBadge', + title => 'title', + description => 'desc', workflowIdCommit => 'pbworkflow000000000003', # Commit Content Immediately })); $versionTag->commit; @@ -105,9 +109,7 @@ foreach my $badge(@badges) { # Check that both badges exists my $badges = $ems->getBadges; -ok(scalar($badges) == 2, 'Two Badges exist'); - -#print Dumper($badges); +ok(scalar(@$badges) == 2, 'Two Badges exist'); # Add tickets my @tickets; @@ -119,7 +121,8 @@ foreach my $ticket(@tickets) { } ok($ems->can('getTickets'), 'Can get tickets'); -ok(scalar($ems->getTickets) == 2, 'Two tickets exist'); +my $tickets = $ems->getTickets; +ok(scalar(@$tickets) == 2, 'Two tickets exist'); # Add ribbons my @ribbons; @@ -131,7 +134,8 @@ foreach my $ribbon(@ribbons) { } ok($ems->can('getRibbons'), 'Can get ribbons'); -ok(scalar($ems->getRibbons) == 2, 'Two ribbons exist'); +my $ribbons = $ems->getRibbons; +ok(scalar(@$ribbons) == 2, 'Two ribbons exist'); #---------------------------------------------------------------------------- # Cleanup