From 77aec308c1752c4145e821163ddbbcf085c59d85 Mon Sep 17 00:00:00 2001 From: Diona Kidd Date: Tue, 29 Jul 2008 20:08:28 +0000 Subject: [PATCH] Adding additional tests for tickets --- t/Asset/Wobject/EventManagementSystem.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/t/Asset/Wobject/EventManagementSystem.t b/t/Asset/Wobject/EventManagementSystem.t index ded166581..583263866 100644 --- a/t/Asset/Wobject/EventManagementSystem.t +++ b/t/Asset/Wobject/EventManagementSystem.t @@ -55,7 +55,7 @@ my $user = WebGUI::User->new($session, 3); #---------------------------------------------------------------------------- # Tests -plan tests => 22; # Increment this number for each test you create +plan tests => 24; # Increment this number for each test you create #---------------------------------------------------------------------------- @@ -154,6 +154,10 @@ $mech->content_contains( 'Ticket name is displayed', ); +my $tickets = $ems->getTickets; +isa_ok($tickets->[0], 'WebGUI::Asset::Sku::EMSTicket'); +ok($tickets->[0]->get('title') eq 'My Ticket', 'getTickets returns newly created ticket'); + #---------------------------------------------------------------------------- # getMechLogin( baseUrl, WebGUI::User, "identifier" ) # Returns a Test::WWW::Mechanize session after logging in the given user using