# 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::Session;
use JSON;
use Test::Deep;
#use Data::Dumper;

#----------------------------------------------------------------------------
# Init
my $session         = WebGUI::Test->session;

# 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 => 30 ;        # 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
});
$versionTag->commit;

# 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');

ok($ems->isRegistrationStaff == 0, 'User is not part of registration staff');

# Become admin for testing
$session->user({ userId => 3 });
ok($ems->isRegistrationStaff == 1, 'User is part of registration staff');

# 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',
	startDate => '2009-01-01 14:00:00',
}));
push(@tickets, $ems->addChild({
        className=>'WebGUI::Asset::Sku::EMSTicket',
	startDate => '2009-01-01 14:00:00',
}));

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' );
my $html = $ems->www_viewSchedule();
ok( $html !~ /REPLACE/, 'tags were successfully replaced');
# print 'html={', $html, "}\n";
my $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',
    }),
);
is( scalar(@tickets), 12, '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,
       },
     'twelve tickets: schedule data looks good' );

#---------------------------------------------------------------------------# Cleanup
END {
		$ems->purge;

        # Clean up after thy self
        #$versionTag->rollback();
}