632 lines
23 KiB
Perl
632 lines
23 KiB
Perl
# vim:syntax=perl
|
|
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#------------------------------------------------------------------
|
|
|
|
# Write a little about what this script tests.
|
|
#
|
|
#
|
|
|
|
use FindBin;
|
|
use strict;
|
|
use lib "$FindBin::Bin/../../lib";
|
|
use Test::More;
|
|
use WebGUI::Test; # Must use this before any other WebGUI modules
|
|
use WebGUI::Test::MockAsset;
|
|
use WebGUI::Session;
|
|
use WebGUI::User;
|
|
use WebGUI::Group;
|
|
use JSON;
|
|
use Data::Dumper;
|
|
use Test::Deep;
|
|
|
|
#----------------------------------------------------------------------------
|
|
# Init
|
|
my $session = WebGUI::Test->session;
|
|
|
|
my $registrar = WebGUI::User->create($session);
|
|
my $attender = WebGUI::User->create($session);
|
|
my $crasher = WebGUI::User->create($session);
|
|
WebGUI::Test->addToCleanup($registrar, $attender, $crasher);
|
|
my $registrars = WebGUI::Group->new($session, 'new');
|
|
my $attendees = WebGUI::Group->new($session, 'new');
|
|
WebGUI::Test->addToCleanup($registrars, $attendees);
|
|
$registrars->addUsers([$registrar->getId]);
|
|
$attendees->addUsers([$attender->getId]);
|
|
|
|
# Do our work in the import node
|
|
my $node = WebGUI::Asset->getImportNode($session);
|
|
|
|
# Create a version tag to work in
|
|
my $versionTag = WebGUI::VersionTag->getWorking($session);
|
|
$versionTag->set({name=>"EventManagementSystem Test"});
|
|
|
|
#----------------------------------------------------------------------------
|
|
# Tests
|
|
|
|
plan tests => 41; # Increment this number for each test you create
|
|
|
|
#----------------------------------------------------------------------------
|
|
|
|
# check base module and all related
|
|
use_ok('WebGUI::Asset::Wobject::EventManagementSystem');
|
|
use_ok('WebGUI::Asset::Sku::EMSBadge');
|
|
use_ok('WebGUI::Asset::Sku::EMSTicket');
|
|
use_ok('WebGUI::Asset::Sku::EMSRibbon');
|
|
use_ok('WebGUI::Asset::Sku::EMSToken');
|
|
|
|
# Add an EMS asset
|
|
my $ems = $node->addChild({
|
|
className =>'WebGUI::Asset::Wobject::EventManagementSystem',
|
|
title => 'Test EMS',
|
|
description => 'This is a test ems',
|
|
url => '/test-ems',
|
|
workflowIdCommit => 'pbworkflow000000000003', # Commit Content Immediately
|
|
registrationStaffGroupId => $registrars->getId,
|
|
groupIdView => $attendees->getId
|
|
});
|
|
$versionTag->commit;
|
|
WebGUI::Test->addToCleanup($versionTag);
|
|
|
|
# Test for a sane object type
|
|
isa_ok($ems, 'WebGUI::Asset::Wobject::EventManagementSystem');
|
|
|
|
# Test to see if we can set new values
|
|
my $newEMSSettings = {
|
|
timezone => 'America/New_York',
|
|
};
|
|
|
|
# update the new values for this instance
|
|
$ems->update($newEMSSettings);
|
|
|
|
# Let's check our updated values
|
|
foreach my $newSetting (keys %{$newEMSSettings}) {
|
|
is ($ems->get($newSetting), $newEMSSettings->{$newSetting}, "updated $newSetting is ".$newEMSSettings->{$newSetting});
|
|
}
|
|
|
|
my $preparedView = $ems->prepareView();
|
|
ok($preparedView, 'prepareView returns something');
|
|
|
|
my $view = $ems->view();
|
|
ok($view, 'View returns something');
|
|
|
|
$session->user({ userId => 1 });
|
|
ok($ems->isRegistrationStaff == 0, 'Visitor is not part of registration staff');
|
|
|
|
# Become admin for testing
|
|
$session->user({ userId => $registrar->getId });
|
|
ok($ems->isRegistrationStaff == 1, 'User is part of registration staff');
|
|
|
|
$session->user({ userId => 3 });
|
|
# Add two badges, using addChild instead of Mech
|
|
my @badges;
|
|
push(@badges, $ems->addChild({
|
|
className=>'WebGUI::Asset::Sku::EMSBadge',
|
|
title => 'title',
|
|
description => 'desc',
|
|
}));
|
|
|
|
push(@badges, $ems->addChild({
|
|
className=>'WebGUI::Asset::Sku::EMSBadge',
|
|
title => 'title',
|
|
description => 'desc',
|
|
}));
|
|
|
|
foreach my $badge(@badges) {
|
|
ok(ref($badge) eq 'WebGUI::Asset::Sku::EMSBadge', 'Badge added');
|
|
}
|
|
|
|
# Check that both badges exists
|
|
my $badges = $ems->getBadges;
|
|
ok(scalar(@$badges) == 2, 'Two Badges exist');
|
|
|
|
# Add tickets
|
|
my @tickets;
|
|
push(@tickets, $ems->addChild({
|
|
className => 'WebGUI::Asset::Sku::EMSTicket',
|
|
title => 'Test Ticket 1',
|
|
url => 'test-ems/ticket-1',
|
|
startDate => '2009-01-01 14:00:00',
|
|
eventNumber => 1,
|
|
location => 'qq',
|
|
seatsAvailable => 5,
|
|
price => 5,
|
|
duration => 1,
|
|
}));
|
|
push(@tickets, $ems->addChild({
|
|
className => 'WebGUI::Asset::Sku::EMSTicket',
|
|
title => 'Test Ticket 2',
|
|
url => 'test-ems/ticket-2',
|
|
startDate => '2009-01-01 14:00:00',
|
|
eventNumber => 2,
|
|
location => 'qq',
|
|
seatsAvailable => 3,
|
|
price => 10,
|
|
duration => 2,
|
|
}));
|
|
|
|
foreach my $ticket(@tickets) {
|
|
ok(ref($ticket) eq 'WebGUI::Asset::Sku::EMSTicket', 'Ticket added');
|
|
}
|
|
|
|
ok($ems->can('getTickets'), 'Can get tickets');
|
|
my $tickets = $ems->getTickets;
|
|
ok(scalar(@$tickets) == 2, 'Two tickets exist');
|
|
|
|
# Add ribbons
|
|
my @ribbons;
|
|
push(@ribbons, $ems->addChild({className=>'WebGUI::Asset::Sku::EMSRibbon'}));
|
|
push(@ribbons, $ems->addChild({className=>'WebGUI::Asset::Sku::EMSRibbon'}));
|
|
|
|
foreach my $ribbon(@ribbons) {
|
|
ok(ref($ribbon) eq 'WebGUI::Asset::Sku::EMSRibbon', 'Ribbon added');
|
|
}
|
|
|
|
ok($ems->can('getRibbons'), 'Can get ribbons');
|
|
my $ribbons = $ems->getRibbons;
|
|
ok(scalar(@$ribbons) == 2, 'Two ribbons exist');
|
|
|
|
ok( $ems->can('www_getScheduleDataJSON'), 'Can call get Schedule data' );
|
|
ok( $ems->can('www_viewSchedule'), 'Can call view Schedule' );
|
|
ok( $ems->can('www_printRemainingTickets'), 'Can call print remaining tickets' );
|
|
|
|
|
|
#Test that the default template is correct
|
|
my $printRemainingTicketsTemplateId = $ems->get('printRemainingTicketsTemplateId');
|
|
is($printRemainingTicketsTemplateId, "hreA_bgxiTX-EzWCSZCZJw", 'Default print remaining tickets template id ok');
|
|
|
|
#Make sure printRemainingTickets template returns the right data
|
|
{
|
|
my $templateMock = WebGUI::Test::MockAsset->new('WebGUI::Asset::Template');
|
|
$templateMock->mock_id($printRemainingTicketsTemplateId);
|
|
my $templateVars;
|
|
$templateMock->mock('process', sub { $templateVars = $_[1]; } );
|
|
|
|
$ems->www_printRemainingTickets();
|
|
|
|
my $ticket1 = {
|
|
'seatsRemaining' => '5',
|
|
'ticketTitle' => 'Test Ticket 1',
|
|
'newWindow' => ignore(),
|
|
'extraHeadTagsPacked' => ignore(),
|
|
'synopsis' => ignore(),
|
|
'extraHeadTags' => ignore(),
|
|
'ownerUserId' => ignore(),
|
|
'url' => 'test-ems/ticket-1',
|
|
'assetId' => ignore(),
|
|
'isPrototype' => ignore(),
|
|
'isHidden' => ignore(),
|
|
'groupIdEdit' => ignore(),
|
|
'inheritUrlFromParent' => ignore(),
|
|
'ticketEventNumber' => '1',
|
|
'lastModified' => ignore(),
|
|
'price' => '5',
|
|
'title' => 'Test Ticket 1',
|
|
'groupIdView' => ignore(),
|
|
'ticketLocation' => 'qq',
|
|
'skipNotification' => ignore(),
|
|
'status' => ignore(),
|
|
'menuTitle' => 'Test Ticket 1',
|
|
'assetSize' => ignore(),
|
|
'ticketDuration' => '1',
|
|
'relatedRibbons' => ignore(),
|
|
'revisionDate' => ignore(),
|
|
'relatedBadgeGroups' => ignore(),
|
|
'isPackage' => ignore(),
|
|
'usePackedHeadTags' => ignore(),
|
|
'encryptPage' => ignore(),
|
|
'eventMetaData' => ignore(),
|
|
'tagId' => ignore(),
|
|
'seatsAvailable' => '5',
|
|
'revisedBy' => ignore(),
|
|
'isExportable' => ignore(),
|
|
'creationDate' => ignore(),
|
|
'ticketStart' => '2009-01-01 09:00',
|
|
'ticketStart_epoch' => '1230818400',
|
|
};
|
|
|
|
my $ticket2 = {
|
|
'seatsRemaining' => '3',
|
|
'ticketTitle' => 'Test Ticket 2',
|
|
'newWindow' => ignore(),
|
|
'extraHeadTagsPacked' => ignore(),
|
|
'synopsis' => ignore(),
|
|
'extraHeadTags' => ignore(),
|
|
'ownerUserId' => ignore(),
|
|
'url' => 'test-ems/ticket-2',
|
|
'assetId' => ignore(),
|
|
'isPrototype' => ignore(),
|
|
'isHidden' => ignore(),
|
|
'groupIdEdit' => ignore(),
|
|
'inheritUrlFromParent' => ignore(),
|
|
'ticketEventNumber' => '2',
|
|
'lastModified' => ignore(),
|
|
'price' => '10',
|
|
'title' => 'Test Ticket 2',
|
|
'groupIdView' => ignore(),
|
|
'ticketLocation' => 'qq',
|
|
'skipNotification' => ignore(),
|
|
'status' => ignore(),
|
|
'menuTitle' => 'Test Ticket 2',
|
|
'assetSize' => ignore(),
|
|
'ticketDuration' => '2',
|
|
'relatedRibbons' => ignore(),
|
|
'revisionDate' => ignore(),
|
|
'relatedBadgeGroups' => ignore(),
|
|
'isPackage' => ignore(),
|
|
'usePackedHeadTags' => ignore(),
|
|
'encryptPage' => ignore(),
|
|
'tagId' => ignore(),
|
|
'eventMetaData' => ignore(),
|
|
'seatsAvailable' => '3',
|
|
'revisedBy' => ignore(),
|
|
'isExportable' => ignore(),
|
|
'creationDate' => ignore(),
|
|
'ticketStart' => '2009-01-01 09:00',
|
|
'ticketStart_epoch' => '1230818400',
|
|
};
|
|
|
|
my @ticketArray = ();
|
|
for(1..3) {
|
|
push(@ticketArray,$ticket2);
|
|
}
|
|
for(1..5) {
|
|
push(@ticketArray,$ticket1);
|
|
}
|
|
|
|
cmp_deeply(
|
|
$templateVars,
|
|
{
|
|
'badgeInstructions' => ignore(),
|
|
'displayTitle' => ignore(),
|
|
'createdBy' => ignore(),
|
|
'lastExportedAs' => ignore(),
|
|
'printRemainingTicketsTemplateId' => ignore(),
|
|
'state' => ignore(),
|
|
'printTicketTemplateId' => ignore(),
|
|
'newWindow' => ignore(),
|
|
'scheduleColumnsPerPage' => ignore(),
|
|
'synopsis' => ignore(),
|
|
'extraHeadTagsPacked' => ignore(),
|
|
'ownerUserId' => ignore(),
|
|
'extraHeadTags' => ignore(),
|
|
'assetId' => ignore(),
|
|
'assetIdHex' => ignore(),
|
|
'url' => 'test-ems',
|
|
'isHidden' => ignore(),
|
|
'isPrototype' => ignore(),
|
|
'groupIdEdit' => ignore(),
|
|
'timezone' => ignore(),
|
|
'styleTemplateId' => ignore(),
|
|
'inheritUrlFromParent' => ignore(),
|
|
'description' => 'This is a test ems',
|
|
'stateChangedBy' => ignore(),
|
|
'lineage' => ignore(),
|
|
'className' => 'WebGUI::Asset::Wobject::EventManagementSystem',
|
|
'lastModified' => ignore(),
|
|
'title' => 'Test EMS',
|
|
'groupIdView' => ignore(),
|
|
'mobileStyleTemplateId' => ignore(),
|
|
'skipNotification' => ignore(),
|
|
'scheduleTemplateId' => ignore(),
|
|
'status' => ignore(),
|
|
'menuTitle' => 'Test EMS',
|
|
'assetSize' => ignore(),
|
|
'lookupRegistrantTemplateId' => ignore(),
|
|
'isLockedBy' => ignore(),
|
|
'stateChanged' => ignore(),
|
|
'revisionDate' => ignore(),
|
|
'ribbonInstructions' => ignore(),
|
|
'isPackage' => ignore(),
|
|
'usePackedHeadTags' => ignore(),
|
|
'templateId' => ignore(),
|
|
'badgeBuilderTemplateId' => ignore(),
|
|
'printBadgeTemplateId' => ignore(),
|
|
'encryptPage' => ignore(),
|
|
'tagId' => ignore(),
|
|
'isSystem' => ignore(),
|
|
'revisedBy' => ignore(),
|
|
'isExportable' => ignore(),
|
|
'creationDate' => ignore(),
|
|
'registrationStaffGroupId' => ignore(),
|
|
'parentId' => ignore(),
|
|
'tokenInstructions' => ignore(),
|
|
'printableStyleTemplateId' => ignore(),
|
|
'ticketInstructions' => ignore(),
|
|
'eventSubmissionGroups' => ignore(),
|
|
'eventSubmissionMainTemplateId' => ignore(),
|
|
'eventSubmissionQueueTemplateId' => ignore(),
|
|
'eventSubmissionTemplateId' => ignore(),
|
|
'submittedLocationsList' => ignore(),
|
|
'keywords' => ignore(),
|
|
'uiLevel' => ignore(),
|
|
'tickets_loop' => \@ticketArray,
|
|
},
|
|
"www_printRemainingTickets: template variables valid"
|
|
);
|
|
}
|
|
|
|
#Make sure permissions work on pages
|
|
my $data;
|
|
$session->user({userId => $crasher->getId});
|
|
$session->http->setStatus(201);
|
|
$data = $ems->www_viewSchedule();
|
|
is($session->http->getStatus, 401, 'www_viewSchedule: visitor may not see the schedule');
|
|
$data = $ems->www_printRemainingTickets();
|
|
is($session->http->getStatus, 401, 'www_printRemainingTickets: visitor may not print the remaining tickets');
|
|
|
|
$session->http->setStatus(201);
|
|
$session->user({userId => $attender->getId});
|
|
$data = $ems->www_viewSchedule();
|
|
is($session->http->getStatus, 201, '... attender user can see the schedule');
|
|
$data = $ems->www_printRemainingTickets();
|
|
is($session->http->getStatus, 401, 'www_printRemainingTickets: attender may not print the remaining tickets');
|
|
|
|
$session->http->setStatus(201);
|
|
$session->user({userId => $registrar->getId});
|
|
$data = $ems->www_printRemainingTickets();
|
|
is($session->http->getStatus, 201, 'www_printRemainingTickets: registration staff may print the remaining tickets');
|
|
|
|
|
|
$session->http->setStatus(201);
|
|
$session->user({userId => $crasher->getId});
|
|
my ($json, $records);
|
|
$json = $ems->www_getScheduleDataJSON();
|
|
$records = eval { JSON::from_json($json)->{records} };
|
|
cmp_deeply($records, [], 'www_getScheduleDataJSON: visitor may not see the schedule JSON');
|
|
|
|
$session->user({userId => $attender->getId});
|
|
$json = $ems->www_getScheduleDataJSON();
|
|
$records = eval { JSON::from_json($json)->{records} };
|
|
cmp_deeply($records, [ignore(), ignore(), ignore()], '... attender can see the schedule JSON');
|
|
|
|
foreach my $ticket (@tickets) {
|
|
$ticket->purge;
|
|
}
|
|
|
|
my $html = $ems->www_viewSchedule();
|
|
ok( $html !~ /REPLACE/, 'tags were successfully replaced');
|
|
# print 'html={', $html, "}\n";
|
|
$data = $ems->www_getScheduleDataJSON();
|
|
cmp_deeply( JSON::from_json($data),
|
|
{
|
|
records => [],
|
|
pageSize => 0,
|
|
dir => 'asc',
|
|
recordsReturned => 0,
|
|
totalRecords => 0,
|
|
totalLocationPages => 0,
|
|
currentLocationPage => 0,
|
|
totalDatePages => 0,
|
|
currentDatePage => 0,
|
|
dateRecords => [ ],
|
|
sort => undef,
|
|
startIndex => 0,
|
|
},
|
|
'empty set: schedule data looks good' );
|
|
|
|
my @tickets= (
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 1 room a 10 am',
|
|
eventNumber => 1,
|
|
startDate => '2009-01-01 10:00:00',
|
|
location => 'a',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 2 room b 10 am',
|
|
eventNumber => 2,
|
|
startDate => '2009-01-01 10:00:00',
|
|
location => 'b',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 3 room c 10 am',
|
|
eventNumber => 3,
|
|
startDate => '2009-01-01 10:00:00',
|
|
location => 'c',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 4 room a 11 am',
|
|
eventNumber => 4,
|
|
startDate => '2009-01-01 11:00:00',
|
|
location => 'a',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 5 room b 11 am',
|
|
eventNumber => 5,
|
|
startDate => '2009-01-01 11:00:00',
|
|
location => 'b',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 6 room c 11 am',
|
|
eventNumber => 6,
|
|
startDate => '2009-01-01 11:00:00',
|
|
location => 'c',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 7 room d 12 am',
|
|
eventNumber => 7,
|
|
startDate => '2009-01-01 12:00:00',
|
|
location => 'd',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 8 room a 1 pm',
|
|
eventNumber => 8,
|
|
startDate => '2009-01-01 13:00:00',
|
|
location => 'a',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 9 room b 1 pm',
|
|
eventNumber => 9,
|
|
startDate => '2009-01-01 13:00:00',
|
|
location => 'b',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 10 room c 1 pm',
|
|
eventNumber => 10,
|
|
startDate => '2009-01-01 13:00:00',
|
|
location => 'c',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 11 room e 2 pm',
|
|
eventNumber => 11,
|
|
startDate => '2009-01-01 14:00:00',
|
|
location => 'e',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 12 room f 2 pm',
|
|
eventNumber => 12,
|
|
startDate => '2009-01-01 14:00:00',
|
|
location => 'f',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 13 blank location 2 pm',
|
|
eventNumber => 13,
|
|
startDate => '2009-01-01 14:00:00',
|
|
location => '',
|
|
}),
|
|
$ems->addChild({
|
|
className => "WebGUI::Asset::Sku::EMSTicket",
|
|
title => 'lecture 14 blank location 2 pm',
|
|
eventNumber => 14,
|
|
startDate => '2009-01-01 14:00:00',
|
|
location => '',
|
|
}),
|
|
);
|
|
is( scalar(@tickets), 14, 'created tickets for ems');
|
|
my $tickets = $ems->getTickets;
|
|
is(scalar(@{ $tickets }), 14, 'Fourteen tickets exist');
|
|
my $locations = [ $ems->getLocations ];
|
|
cmp_deeply($locations, [ 'a','b','c','d','e','f','' ], 'get locations returns all expected locations');
|
|
# print 'locations=[', join( ',', @$locations ),"]\n";
|
|
|
|
$data = $ems->www_getScheduleDataJSON();
|
|
# print 'json:',$data, "\n";
|
|
sub ticketInfo { my $tk = shift; return {
|
|
type => 'ticket',
|
|
title => $tk->get('title'),
|
|
assetId => $tk->get('assetId'),
|
|
description => $tk->get('description'),
|
|
location => $tk->get('location') || ' ',
|
|
startDate => $tk->get('startDate'),
|
|
}; }
|
|
cmp_deeply( JSON::from_json($data), {
|
|
records => [
|
|
{ colDate => '',
|
|
col1 => { type => 'label', title => 'a' },
|
|
col2 => { type => 'label', title => 'b' },
|
|
col3 => { type => 'label', title => 'c' },
|
|
col4 => { type => 'label', title => 'd' },
|
|
col5 => { type => 'label', title => 'e' },
|
|
},
|
|
{ colDate => $tickets[0]->get('startDate'),
|
|
col1 => ticketInfo( $tickets[0] ),
|
|
col2 => ticketInfo( $tickets[1] ),
|
|
col3 => ticketInfo( $tickets[2] ),
|
|
col4 => { type => 'empty' },
|
|
col5 => { type => 'empty' },
|
|
},
|
|
{ colDate => $tickets[3]->get('startDate'),
|
|
col1 => ticketInfo( $tickets[3] ),
|
|
col2 => ticketInfo( $tickets[4] ),
|
|
col3 => ticketInfo( $tickets[5] ),
|
|
col4 => { type => 'empty' },
|
|
col5 => { type => 'empty' },
|
|
},
|
|
{ colDate => $tickets[6]->get('startDate'),
|
|
col1 => { type => 'empty' },
|
|
col2 => { type => 'empty' },
|
|
col3 => { type => 'empty' },
|
|
col4 => ticketInfo( $tickets[6] ),
|
|
col5 => { type => 'empty' },
|
|
},
|
|
{ colDate => $tickets[7]->get('startDate'),
|
|
col1 => ticketInfo( $tickets[7] ),
|
|
col2 => ticketInfo( $tickets[8] ),
|
|
col3 => ticketInfo( $tickets[9] ),
|
|
col4 => { type => 'empty' },
|
|
col5 => { type => 'empty' },
|
|
},
|
|
{ colDate => $tickets[10]->get('startDate'),
|
|
col1 => { type => 'empty' },
|
|
col2 => { type => 'empty' },
|
|
col3 => { type => 'empty' },
|
|
col4 => { type => 'empty' },
|
|
col5 => ticketInfo( $tickets[10] ),
|
|
},
|
|
],
|
|
totalRecords => 6,
|
|
recordsReturned => 6,
|
|
startIndex => 0,
|
|
sort => undef,
|
|
dir => 'asc',
|
|
totalLocationPages => 2,
|
|
currentLocationPage => 1,
|
|
totalDatePages => 1,
|
|
currentDatePage => 1,
|
|
dateRecords => [ '2009-01-01' ],
|
|
pageSize => 10,
|
|
rowsPerPage => 6,
|
|
},
|
|
'Fourteen tickets: schedule data looks good'
|
|
);
|
|
$session->request->setup_body({ locationPage => 2 } );
|
|
$data = $ems->www_getScheduleDataJSON();
|
|
cmp_deeply( JSON::from_json($data), {
|
|
records => [
|
|
{ colDate => '',
|
|
col1 => { type => 'label', title => 'f' },
|
|
col2 => { type => 'label', title => ' ' },
|
|
col3 => { type => 'label', title => '' },
|
|
col4 => { type => 'label', title => '' },
|
|
col5 => { type => 'label', title => '' },
|
|
},
|
|
{ colDate => $tickets[11]->get('startDate'),
|
|
col1 => ticketInfo( $tickets[11] ),
|
|
col2 => ticketInfo( $tickets[13] ),
|
|
col3 => { type => 'empty' },
|
|
col4 => { type => 'empty' },
|
|
col5 => { type => 'empty' },
|
|
},
|
|
{ colDate => $tickets[13]->get('startDate'),
|
|
col1 => { type => 'empty' },
|
|
col2 => ticketInfo( $tickets[12] ),
|
|
col3 => { type => 'empty' },
|
|
col4 => { type => 'empty' },
|
|
col5 => { type => 'empty' },
|
|
},
|
|
],
|
|
totalRecords => 3,
|
|
recordsReturned => 3,
|
|
startIndex => 0,
|
|
sort => undef,
|
|
dir => 'asc',
|
|
totalLocationPages => 2,
|
|
currentLocationPage => 2,
|
|
totalDatePages => 1,
|
|
currentDatePage => 1,
|
|
dateRecords => [ '2009-01-01' ],
|
|
pageSize => 10,
|
|
rowsPerPage => 3,
|
|
},
|
|
'Location page #2 looks good'
|
|
);
|
|
|