<?php
// This file is part of Moodle - http://moodle.org/
//
// Moodle is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Moodle is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.

/**
 * Task tests.
 *
 * @package    core_competency
 * @copyright  2015 Issam Taboubi <issam.taboubi@umontreal.ca>
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

defined('MOODLE_INTERNAL') || die();

use core_competency\api;
use core_competency\plan;

/**
 * Task tests.
 *
 * @package    core_competency
 * @copyright  2015 Issam Taboubi <issam.taboubi@umontreal.ca>
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */
class core_competency_task_testcase extends advanced_testcase {

    public function test_sync_plans_from_cohorts_task() {
        global $DB;

        $this->resetAfterTest(true);
        $this->setAdminUser();
        $dg = $this->getDataGenerator();
        $lpg = $dg->get_plugin_generator('core_competency');

        // Sql to simulate the execution in time.
        $cmsql = "UPDATE {cohort_members} SET timeadded = :currenttime WHERE cohortid = :cohortid AND userid = :userid";
        $tplsql = "UPDATE {" . \core_competency\template::TABLE . "} SET timemodified = :currenttime WHERE id = :templateid";
        $plansql = "UPDATE {" . \core_competency\plan::TABLE . "} SET timemodified = :currenttime WHERE id = :planid";

        $currenttime = time();

        $user1 = $dg->create_user();
        $user2 = $dg->create_user();
        $user3 = $dg->create_user();
        $user4 = $dg->create_user();
        $user5 = $dg->create_user();

        $cohort = $dg->create_cohort();
        $tpl = $lpg->create_template();

        // Add 2 users to the cohort.
        cohort_add_member($cohort->id, $user1->id);
        cohort_add_member($cohort->id, $user2->id);

        // Creating plans from template cohort.
        $templatecohort = api::create_template_cohort($tpl->get('id'), $cohort->id);
        $created = api::create_plans_from_template_cohort($tpl->get('id'), $cohort->id);

        $this->assertEquals(2, $created);

        $task = \core\task\manager::get_scheduled_task('\\core\\task\\sync_plans_from_template_cohorts_task');
        $this->assertInstanceOf('\core\task\sync_plans_from_template_cohorts_task', $task);

        // Add two more users to the cohort.
        cohort_add_member($cohort->id, $user3->id);
        cohort_add_member($cohort->id, $user4->id);

        $currenttime = $currenttime + 1;
        $task->execute();
        $task->set_last_run_time($currenttime);

        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));

        // Test if remove user from cohort will affect plans.
        cohort_remove_member($cohort->id, $user3->id);
        cohort_remove_member($cohort->id, $user4->id);

        $currenttime = $currenttime + 1;
        $task->execute();
        $task->set_last_run_time($currenttime);
        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));

        // The template is now hidden, and I've added a user with a missing plan. Nothing should happen.
        $currenttime = $currenttime + 1;
        $tpl->set('visible', false);
        $tpl->update();
        $DB->execute($tplsql, array('currenttime' => $currenttime, 'templateid' => $tpl->get('id')));
        $currenttime = $currenttime + 1;
        cohort_add_member($cohort->id, $user5->id);
        $DB->execute($cmsql, array('currenttime' => $currenttime, 'cohortid' => $cohort->id, 'userid' => $user5->id));
        $this->assertFalse(plan::record_exists_select('userid = ? AND templateid = ?', array($user5->id, $tpl->get('id'))));
        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));
        $currenttime = $currenttime + 1;
        $task->execute();
        $task->set_last_run_time($currenttime);
        $this->assertFalse(plan::record_exists_select('userid = ? AND templateid = ?', array($user5->id, $tpl->get('id'))));
        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));

        // Now I set the template as visible again, the plan is created.
        $currenttime = $currenttime + 1;
        $tpl->set('visible', true);
        $tpl->update();
        $DB->execute($tplsql, array('currenttime' => $currenttime, 'templateid' => $tpl->get('id')));
        $currenttime = $currenttime + 1;
        $task->execute();
        $task->set_last_run_time($currenttime);
        $this->assertTrue(plan::record_exists_select('userid = ? AND templateid = ?', array($user5->id, $tpl->get('id'))));
        $this->assertEquals(5, plan::count_records(array('templateid' => $tpl->get('id'))));

        // Let's unlink the plan and run the task again, it should not be recreated.
        $currenttime = $currenttime + 1;
        $plan = plan::get_record(array('userid' => $user5->id, 'templateid' => $tpl->get('id')));
        \core_competency\api::unlink_plan_from_template($plan);
        $DB->execute($plansql, array('currenttime' => $currenttime, 'planid' => $plan->get('id')));
        $this->assertTrue(plan::record_exists_select('userid = ?', array($user5->id)));
        $this->assertFalse(plan::record_exists_select('userid = ? AND templateid = ?', array($user5->id, $tpl->get('id'))));
        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));
        $currenttime = $currenttime + 1;
        $task->execute();
        $task->set_last_run_time($currenttime);
        $this->assertTrue(plan::record_exists_select('userid = ?', array($user5->id)));
        $this->assertFalse(plan::record_exists_select('userid = ? AND templateid = ?', array($user5->id, $tpl->get('id'))));
        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));

        // Adding users to cohort that already exist in plans.
        $currenttime = $currenttime + 1;
        cohort_add_member($cohort->id, $user3->id);
        cohort_add_member($cohort->id, $user4->id);
        $DB->execute($cmsql, array('currenttime' => $currenttime, 'cohortid' => $cohort->id, 'userid' => $user3->id));
        $DB->execute($cmsql, array('currenttime' => $currenttime, 'cohortid' => $cohort->id, 'userid' => $user3->id));

        $currenttime = $currenttime + 1;
        $task->execute();
        $task->set_last_run_time($currenttime);
        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));

        // Test a user plan deleted will not be recreated.
        $currenttime = $currenttime + 1;
        $plan = plan::get_record(array('userid' => $user4->id, 'templateid' => $tpl->get('id')));
        \core_competency\api::delete_plan($plan->get('id'));
        $currenttime = $currenttime + 1;
        $task->execute();
        $task->set_last_run_time($currenttime);
        $this->assertEquals(3, plan::count_records(array('templateid' => $tpl->get('id'))));
    }

    public function test_sync_plans_from_cohorts_with_templateduedate_task() {
        $this->resetAfterTest(true);
        $this->setAdminUser();
        $dg = $this->getDataGenerator();
        $lpg = $dg->get_plugin_generator('core_competency');

        $user1 = $dg->create_user();
        $user2 = $dg->create_user();
        $user3 = $dg->create_user();
        $user4 = $dg->create_user();
        $user5 = $dg->create_user();

        $cohort = $dg->create_cohort();
        $tpl = $lpg->create_template(array('duedate' => time() + 400));

        // Add 2 users to the cohort.
        cohort_add_member($cohort->id, $user1->id);
        cohort_add_member($cohort->id, $user2->id);

        // Creating plans from template cohort.
        $templatecohort = api::create_template_cohort($tpl->get('id'), $cohort->id);
        $created = api::create_plans_from_template_cohort($tpl->get('id'), $cohort->id);

        $this->assertEquals(2, $created);

        $task = \core\task\manager::get_scheduled_task('\\core\\task\\sync_plans_from_template_cohorts_task');
        $this->assertInstanceOf('\core\task\sync_plans_from_template_cohorts_task', $task);

        // Add two more users to the cohort.
        cohort_add_member($cohort->id, $user3->id);
        cohort_add_member($cohort->id, $user4->id);

        $task->execute();

        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));

        // Test if remove user from cohort will affect plans.
        cohort_remove_member($cohort->id, $user3->id);
        cohort_remove_member($cohort->id, $user4->id);

        $task->execute();
        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));

        // The template is now hidden, and I've added a user with a missing plan. Nothing should happen.
        $tpl->set('visible', false);
        $tpl->update();
        cohort_add_member($cohort->id, $user5->id);
        $this->assertFalse(plan::record_exists_select('userid = ? AND templateid = ?', array($user5->id, $tpl->get('id'))));
        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));
        $task->execute();
        $this->assertFalse(plan::record_exists_select('userid = ? AND templateid = ?', array($user5->id, $tpl->get('id'))));
        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));

        // Now I set the template as visible again, the plan is created.
        $tpl->set('visible', true);
        $tpl->update();
        $task->execute();
        $this->assertTrue(plan::record_exists_select('userid = ? AND templateid = ?', array($user5->id, $tpl->get('id'))));
        $this->assertEquals(5, plan::count_records(array('templateid' => $tpl->get('id'))));

        // Let's unlink the plan and run the task again, it should not be recreated.
        $plan = plan::get_record(array('userid' => $user5->id, 'templateid' => $tpl->get('id')));
        \core_competency\api::unlink_plan_from_template($plan);
        $this->assertTrue(plan::record_exists_select('userid = ?', array($user5->id)));
        $this->assertFalse(plan::record_exists_select('userid = ? AND templateid = ?', array($user5->id, $tpl->get('id'))));
        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));
        $task->execute();
        $this->assertTrue(plan::record_exists_select('userid = ?', array($user5->id)));
        $this->assertFalse(plan::record_exists_select('userid = ? AND templateid = ?', array($user5->id, $tpl->get('id'))));
        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));

        // Adding users to cohort that already exist in plans.
        cohort_add_member($cohort->id, $user3->id);
        cohort_add_member($cohort->id, $user4->id);

        $task->execute();
        $this->assertEquals(4, plan::count_records(array('templateid' => $tpl->get('id'))));
    }

    public function test_sync_plans_from_cohorts_with_passed_duedate() {
        global $DB;

        $this->resetAfterTest(true);
        $this->setAdminUser();
        $dg = $this->getDataGenerator();
        $lpg = $dg->get_plugin_generator('core_competency');

        $user1 = $dg->create_user();
        $user2 = $dg->create_user();
        $cohort = $dg->create_cohort();
        $tpl = $lpg->create_template(array('duedate' => time() + 1000));
        $templatecohort = api::create_template_cohort($tpl->get('id'), $cohort->id);
        $task = \core\task\manager::get_scheduled_task('\\core\\task\\sync_plans_from_template_cohorts_task');

        // Add 1 user to the cohort.
        cohort_add_member($cohort->id, $user1->id);

        // Creating plans from template cohort.
        $task->execute();
        $this->assertEquals(1, \core_competency\plan::count_records());

        // Now add another user, but this time the template will be expired.
        cohort_add_member($cohort->id, $user2->id);
        $record = $tpl->to_record();
        $record->duedate = time() - 10000;
        $DB->update_record(\core_competency\template::TABLE, $record);
        $tpl->read();
        $task->execute();
        $this->assertEquals(1, \core_competency\plan::count_records()); // Still only one plan.

        // Pretend it wasn't expired.
        $tpl->set('duedate', time() + 100);
        $tpl->update();
        $task->execute();
        $this->assertEquals(2, \core_competency\plan::count_records()); // Now there is two.
    }

    public function test_complete_plans_task() {
        global $DB;
        $this->resetAfterTest(true);
        $this->setAdminUser();
        $dg = $this->getDataGenerator();
        $lpg = $dg->get_plugin_generator('core_competency');

        $user = $dg->create_user();

        $up1 = $lpg->create_plan(array('userid' => $user->id,
                                        'status' => \core_competency\plan::STATUS_DRAFT));
        $up2 = $lpg->create_plan(array('userid' => $user->id,
                                        'status' => \core_competency\plan::STATUS_ACTIVE));
        // Set duedate in the past.
        $date = new \DateTime('yesterday');
        $record1 = $up1->to_record();
        $record2 = $up2->to_record();

        $record1->duedate = $date->getTimestamp();
        $record2->duedate = $date->getTimestamp();
        $DB->update_record(plan::TABLE, $record1);
        $DB->update_record(plan::TABLE, $record2);

        $task = \core\task\manager::get_scheduled_task('\\core\\task\\complete_plans_task');
        $this->assertInstanceOf('\\core\\task\\complete_plans_task', $task);

        // Test that draft plan can not be completed on running task.
        $task->execute();

        $plandraft = api::read_plan($up1->get('id'));
        $this->assertEquals(\core_competency\plan::STATUS_DRAFT, $plandraft->get('status'));

        // Test that active plan can be completed on running task.
        $task->execute();

        $planactive = api::read_plan($up2->get('id'));
        $this->assertEquals(\core_competency\plan::STATUS_COMPLETE, $planactive->get('status'));
    }
}