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

Adding test for ticket creation

Browse source
This commit is contained in:
Diona Kidd 2008-07-29 20:01:27 +00:00
parent fad7ef4361
commit d908d53c84
1 changed files with 29 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

34
t/Asset/Wobject/EventManagementSystem.t
View file

@ -19,7 +19,7 @@ use lib "$FindBin::Bin/../../lib";
use Test::More; use Test::More;
use WebGUI::Test; # Must use this before any other WebGUI modules use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::Session; use WebGUI::Session;
use Data::Dumper; #use Data::Dumper;
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Init # Init
@ -55,12 +55,16 @@ my $user = WebGUI::User->new($session, 3);
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Tests # Tests
plan tests => 8; # Increment this number for each test you create plan tests => 22; # Increment this number for each test you create
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# check base module and all related
use_ok('WebGUI::Asset::Wobject::EventManagementSystem'); use_ok('WebGUI::Asset::Wobject::EventManagementSystem');
use_ok('WebGUI::Asset::Sku::EMSBadge'); use_ok('WebGUI::Asset::Sku::EMSBadge');
use_ok('WebGUI::Asset::Sku::EMSTicket');
use_ok('WebGUI::Asset::Sku::EMSRibbon');
use_ok('WebGUI::Asset::Sku::EMSToken');
# login # login
$mech = getMechLogin( $baseUrl, $user, $identifier ); $mech = getMechLogin( $baseUrl, $user, $identifier );
@ -82,7 +86,9 @@ $versionTag->commit;
my $emsUrl = $baseUrl . $ems->getUrl(); my $emsUrl = $baseUrl . $ems->getUrl();
$mech->get_ok( $emsUrl, "Get EMS url, $emsUrl"); $mech->get_ok( $emsUrl, "Get EMS url, $emsUrl");
# Add badge #############
# Add badge #
#############
$mech->get_ok( $emsUrl . '?func=add;class=WebGUI::Asset::Sku::EMSBadge' ); $mech->get_ok( $emsUrl . '?func=add;class=WebGUI::Asset::Sku::EMSBadge' );
# Complete the badge form # Complete the badge form
@ -108,11 +114,13 @@ $mech->content_contains(
'Badge instructions are displayed', 'Badge instructions are displayed',
); );
# Add badge #############
# Add badge #
#############
$mech->get_ok( $emsUrl . '?func=add;class=WebGUI::Asset::Sku::EMSBadge' ); $mech->get_ok( $emsUrl . '?func=add;class=WebGUI::Asset::Sku::EMSBadge' );
# Complete the badge form # Complete the badge form
my $properties = { $properties = {
title => 'Conference + Workshops', title => 'Conference + Workshops',
description => 'This for the conference and workshops', description => 'This for the conference and workshops',
price => 200, price => 200,
@ -127,8 +135,24 @@ my $badges = $ems->getBadges;
ok(scalar(@{$badges}) == 2, 'Two badges added'); ok(scalar(@{$badges}) == 2, 'Two badges added');
ok($badges->[0]->getPrice == 100, 'Price of first badge'); ok($badges->[0]->getPrice == 100, 'Price of first badge');
ok($badges->[1]->getPrice == 200, 'Price of second badge'); ok($badges->[1]->getPrice == 200, 'Price of second badge');
isa_ok($badges->[0], 'WebGUI::Asset::Sku::EMSBadge');
ok($badges->[0]->getId, 'BadgeId retrieved from badge object');
# Tickets
ok($ems->www_buildBadge($badges->[0]->getId), 'www_buildBadge returns something');
$mech->get_ok($emsUrl . '?func=add;class=WebGUI::Asset::Sku::EMSTicket');
$properties = {
title => 'My Ticket',
price => '50',
};
$mech->submit_form_ok( {
with_fields => $properties,
}, 'Submit ticket form');
$mech->content_contains(
'My Ticket',
'Ticket name is displayed',
);
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# getMechLogin( baseUrl, WebGUI::User, "identifier" ) # getMechLogin( baseUrl, WebGUI::User, "identifier" )