<?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/>.

namespace core\event;

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

global $CFG;

require_once($CFG->libdir . '/mathslib.php');

/**
 * Tests for event \core\event\user_graded
 *
 * @package    core
 * @category   test
 * @copyright  2014 Petr Skoda
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */
final class user_graded_test extends \advanced_testcase {

    /**
     * Tests set up.
     */
    public function setUp(): void {
        parent::setUp();
        $this->resetAfterTest();
    }

    /**
     * Tests the event details.
     */
    public function test_event(): void {
        global $CFG;
        require_once("$CFG->libdir/gradelib.php");

        $course = $this->getDataGenerator()->create_course();
        $user = $this->getDataGenerator()->create_user();
        $this->getDataGenerator()->enrol_user($user->id, $course->id);

        $grade_category = \grade_category::fetch_course_category($course->id);
        $grade_category->load_grade_item();
        $grade_item = $grade_category->grade_item;

        $grade_item->update_final_grade($user->id, 10, 'gradebook');

        $grade_grade = new \grade_grade(array('userid' => $user->id, 'itemid' => $grade_item->id), true);
        $grade_grade->grade_item = $grade_item;

        $event = \core\event\user_graded::create_from_grade($grade_grade);

        $this->assertEquals(\context_course::instance($course->id), $event->get_context());
        $this->assertSame($event->objecttable, 'grade_grades');
        $this->assertEquals($event->objectid, $grade_grade->id);
        $this->assertEquals($event->other['itemid'], $grade_item->id);
        $this->assertTrue($event->other['overridden']);
        $this->assertEquals(10, $event->other['finalgrade']);

        // Trigger the events.
        $sink = $this->redirectEvents();
        $event->trigger();
        $result = $sink->get_events();
        $sink->close();

        $this->assertCount(1, $result);

        $event = reset($result);
        $this->assertEventContextNotUsed($event);

        $grade = $event->get_grade();
        $this->assertInstanceOf('grade_grade', $grade);
        $this->assertEquals($grade_grade->id, $grade->id);
    }

    /**
     * Tests that the event is fired in the correct locations in core.
     */
    public function test_event_is_triggered(): void {
        global $DB;

        // Create the items we need to test with.
        $course = $this->getDataGenerator()->create_course();
        $user = $this->getDataGenerator()->create_user();
        $this->getDataGenerator()->enrol_user($user->id, $course->id);
        $quiz = $this->getDataGenerator()->create_module('quiz', array('course' => $course->id));
        $quizitemparams = array('itemtype' => 'mod', 'itemmodule' => 'quiz', 'iteminstance' => $quiz->id,
            'courseid' => $course->id);
        $gradeitem = \grade_item::fetch($quizitemparams);
        $courseitem = \grade_item::fetch_course_item($course->id);

        // Now mark the quiz using grade_update as this is the function that modules use.
        $grade = array();
        $grade['userid'] = $user->id;
        $grade['rawgrade'] = 60;

        $sink = $this->redirectEvents();
        grade_update('mod/quiz', $course->id, 'mod', 'quiz', $quiz->id, 0, $grade);
        $events = $sink->get_events();
        $sink->close();

        // Ensure we have two user_graded events, one for the item, one for the course.
        $this->assertEquals(2, count($events));
        $this->assertInstanceOf('\core\event\user_graded', $events[0]);
        $this->assertEquals($gradeitem->id, $events[0]->other['itemid']);
        $this->assertInstanceOf('\core\event\user_graded', $events[1]);
        $this->assertEquals($courseitem->id, $events[1]->other['itemid']);

        // Remove the grades, force the regrading and re-fetch the item. This is needed because the item
        // will be set as needing an update when the grades are deleted.
        $gradeitem->delete_all_grades();
        grade_regrade_final_grades($course->id);
        $gradeitem = \grade_item::fetch($quizitemparams);

        // Now, create a grade using \grade_item::update_final_grade().
        $sink = $this->redirectEvents();
        $gradeitem->update_raw_grade($user->id, 10);
        $events = $sink->get_events();
        $sink->close();

        // Ensure we have two user_graded events, one for the item, one for the course.
        $this->assertEquals(2, count($events));
        $this->assertInstanceOf('\core\event\user_graded', $events[0]);
        $this->assertEquals($gradeitem->id, $events[0]->other['itemid']);
        $this->assertInstanceOf('\core\event\user_graded', $events[1]);
        $this->assertEquals($courseitem->id, $events[1]->other['itemid']);

        // Now, update this grade using \grade_item::update_raw_grade().
        $sink = $this->redirectEvents();
        $gradeitem->update_raw_grade($user->id, 20);
        $events = $sink->get_events();
        $sink->close();

        // Ensure we have two user_graded events, one for the item, one for the course.
        $this->assertEquals(2, count($events));
        $this->assertInstanceOf('\core\event\user_graded', $events[0]);
        $this->assertEquals($gradeitem->id, $events[0]->other['itemid']);
        $this->assertInstanceOf('\core\event\user_graded', $events[1]);
        $this->assertEquals($courseitem->id, $events[1]->other['itemid']);

        // Remove the grades, force the regrading and re-fetch the item. This is needed because the item
        // will be set as needing an update when the grades are deleted.
        $gradeitem->delete_all_grades();
        grade_regrade_final_grades($course->id);
        $gradeitem = \grade_item::fetch($quizitemparams);

        // Now, create a grade using \grade_item::update_final_grade().
        $sink = $this->redirectEvents();
        $gradeitem->update_final_grade($user->id, 30);
        $events = $sink->get_events();
        $sink->close();

        // Ensure we have two user_graded events, one for the item, one for the course.
        $this->assertEquals(2, count($events));
        $this->assertInstanceOf('\core\event\user_graded', $events[0]);
        $this->assertEquals($gradeitem->id, $events[0]->other['itemid']);
        $this->assertInstanceOf('\core\event\user_graded', $events[1]);
        $this->assertEquals($courseitem->id, $events[1]->other['itemid']);

        // Now, update this grade using \grade_item::update_final_grade().
        $sink = $this->redirectEvents();
        $gradeitem->update_final_grade($user->id, 40);
        $events = $sink->get_events();
        $sink->close();

        // Ensure we have two user_graded events, one for the item, one for the course.
        $this->assertEquals(2, count($events));
        $this->assertInstanceOf('\core\event\user_graded', $events[0]);
        $this->assertEquals($gradeitem->id, $events[0]->other['itemid']);
        $this->assertInstanceOf('\core\event\user_graded', $events[1]);
        $this->assertEquals($courseitem->id, $events[1]->other['itemid']);

        // Remove the overridden flag from the grade, this was set by \grade_item::update_final_grade().
        $gradegrade = \grade_grade::fetch(array('itemid' => $gradeitem->id, 'userid' => $user->id));
        $gradegrade->set_overridden(false, false);

        // Let's change the calculation to anything that won't cause an error.
        $calculation = \calc_formula::unlocalize("=3");
        $gradeitem->set_calculation($calculation);

        // Now force the computation of the grade.
        $sink = $this->redirectEvents();
        grade_regrade_final_grades($course->id);
        $events = $sink->get_events();
        $sink->close();

        // Ensure we have two user_graded events, one for the item, one for the course.
        $this->assertEquals(2, count($events));
        $this->assertInstanceOf('\core\event\user_graded', $events[0]);
        $this->assertEquals($gradeitem->id, $events[0]->other['itemid']);
        $this->assertInstanceOf('\core\event\user_graded', $events[1]);
        $this->assertEquals($courseitem->id, $events[1]->other['itemid']);

        // Now, let's trick the gradebook, we manually update a grade, and flag the grade item as
        // needing a regrading, so we can trigger the event in \grade_item::regrade_final_grades().
        $gradeitem = \grade_item::fetch($quizitemparams);
        $gradeitem->set_calculation('');
        $gradegrade = \grade_grade::fetch(array('itemid' => $gradeitem->id, 'userid' => $user->id));
        $gradegrade->rawgrade = 50;
        $gradegrade->update();

        $sink = $this->redirectEvents();
        grade_regrade_final_grades($course->id);
        $events = $sink->get_events();
        $sink->close();

        // Ensure we have two user_graded events, one for the item, one for the course.
        $this->assertEquals(2, count($events));
        $this->assertInstanceOf('\core\event\user_graded', $events[0]);
        $this->assertEquals($gradeitem->id, $events[0]->other['itemid']);
        $this->assertInstanceOf('\core\event\user_graded', $events[1]);
        $this->assertEquals($courseitem->id, $events[1]->other['itemid']);
    }
}
