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


< /**
<  * This file contains tests that walks a question through a whole attempt.
<  *
<  * @package core_question
<  * @copyright 2017 The Open University
<  * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
<  */



> namespace core_question;




> use question_bank;

> use question_display_options;
defined('MOODLE_INTERNAL') || die();
> use question_state;

> use test_question_maker;



< global $CFG;
< require_once(__DIR__ . '/..//lib.php');



> require_once(__DIR__ . '/../lib.php');


require_once(__DIR__ . '/helpers.php');


/**
 * End-to-end tests of attempting a question.
 *

>  * @package    core_question


 * @copyright  2017 The Open University
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

< class core_question_walkthrough_testcase extends qbehaviour_walkthrough_test_base {



> class walkthrough_test extends \qbehaviour_walkthrough_test_base {



    public function test_regrade_does_not_lose_flag() {

        // Create a true-false question with correct answer true.
        $tf = test_question_maker::make_question('truefalse', 'true');
        $this->start_attempt_at_question($tf, 'deferredfeedback', 2);

        // Process a true answer.
        $this->process_submission(array('answer' => 1));

        // Finish the attempt.
        $this->quba->finish_all_questions();

        // Flag the question.
        $this->get_question_attempt()->set_flagged(true);

        // Now change the correct answer to the question, and regrade.
        $tf->rightanswer = false;
        $this->quba->regrade_all_questions();

        // Verify the flag has not been lost.
        $this->assertTrue($this->get_question_attempt()->is_flagged());

>     }
    }
> 
}
>     /**
>      * Test action_author function.
>      */
>     public function test_action_author_with_display_options_testcase() {
>         $this->resetAfterTest(true);
>         $generator = $this->getDataGenerator()->get_plugin_generator('core_question');
>         $teacher = $this->getDataGenerator()->create_user();
>         $student = $this->getDataGenerator()->create_user();
> 
>         // Create an essay question in the DB.
>         $cat = $generator->create_question_category();
>         $essay = $generator->create_question('essay', 'editorfilepicker', ['category' => $cat->id]);
> 
>         // Start attempt at the question.
>         $q = question_bank::load_question($essay->id);
> 
>         // Student attempt the question.
>         $this->setUser($student);
>         $this->start_attempt_at_question($q, 'deferredfeedback', 10, 1);
> 
>         // Simulate some data submitted by the student.
>         $this->process_submission(['answer' => 'This is my wonderful essay!', 'answerformat' => FORMAT_HTML]);
>         $this->finish();
> 
>         // Process a manual comment.
>         $this->setUser($teacher);
>         $this->manual_grade('Not good enough!', 10, FORMAT_HTML);
>         $this->render();
>         $this->save_quba();
> 
>         // Set display option userinfoinhistory to HIDDEN.
>         $displayoptions = new question_display_options();
>         $displayoptions->history = question_display_options::VISIBLE;
>         $displayoptions->userinfoinhistory = question_display_options::HIDDEN;
> 
>         $this->load_quba();
>         $result = $this->quba->render_question($this->slot, $displayoptions);
> 
>         // The profile user link should not display.
>         preg_match("/<a ?.*>(.*)<\/a>/", $result, $matches);
>         $this->assertEquals(false, isset($matches[0]));
> 
>         // Set display option userinfoinhistory to SHOW_ALL.
>         $displayoptions = new question_display_options();
>         $displayoptions->history = question_display_options::VISIBLE;
>         $displayoptions->userinfoinhistory = question_display_options::SHOW_ALL;
> 
>         $this->load_quba();
>         $result = $this->quba->render_question($this->slot, $displayoptions);
>         $numsteps = $this->quba->get_question_attempt($this->slot)->get_num_steps();
> 
>         // All steps in the result should contain user profile link.
>         preg_match_all("/<a ?.*>(.*)<\/a>/", $result, $matches);
>         $this->assertEquals($numsteps, count($matches[0]));
> 
>         // Set the userinfoinhistory to student id.
>         $displayoptions = new question_display_options();
>         $displayoptions->history = question_display_options::VISIBLE;
>         $displayoptions->userinfoinhistory = $student->id;
> 
>         $this->load_quba();
>         $result = $this->quba->render_question($this->slot, $displayoptions);
> 
>         // The step just show the user profile link if the step's userid is different with student id.
>         preg_match_all("/<a ?.*>(.*)<\/a>/", $result, $matches);
>         $this->assertEquals(1, count($matches[0]));
>     }
> 
>     /**
>      * @covers \question_usage_by_activity::regrade_question
>      * @covers \question_attempt::regrade
>      * @covers \question_attempt::get_attempt_state_data_to_regrade_with_version
>      */
>     public function test_regrading_an_interactive_attempt_while_in_progress() {
> 
>         // Start an attempt at a matching question.
>         $q = test_question_maker::make_question('match');
>         $this->start_attempt_at_question($q, 'interactive', 1);
>         $this->save_quba();
> 
>         // Verify.
>         $this->check_current_state(question_state::$todo);
>         $this->check_current_mark(null);
>         $this->check_step_count(1);
>         $this->check_current_output($this->get_tries_remaining_expectation(1));
> 
>         // Regrade the attempt.
>         // Duplicating the question here essential to triggering the bug we are trying to reproduce.
>         $reloadedquestion = clone($q);
>         $this->quba->regrade_question($this->slot, false, null, $reloadedquestion);
> 
>         // Verify.
>         $this->check_current_state(question_state::$todo);
>         $this->check_current_mark(null);
>         $this->check_step_count(1);
>         $this->check_current_output($this->get_tries_remaining_expectation(1));
>     }
> 
>     /**
>      * @covers \question_usage_by_activity::regrade_question
>      * @covers \question_attempt::regrade
>      * @covers \question_attempt::get_attempt_state_data_to_regrade_with_version
>      */
>     public function test_regrading_does_not_lose_metadata() {
> 
>         // Start an attempt at a matching question.
>         $q = test_question_maker::make_question('match');
>         $this->start_attempt_at_question($q, 'interactive', 1);
>         // Like in process_redo_question in mod_quiz.
>         $this->quba->set_question_attempt_metadata($this->slot, 'originalslot', 42);
>         $this->save_quba();
> 
>         // Verify.
>         $this->check_current_state(question_state::$todo);
>         $this->check_current_mark(null);
>         $this->check_step_count(1);
>         $this->check_current_output($this->get_tries_remaining_expectation(1));
> 
>         // Regrade the attempt.
>         $reloadedquestion = clone($q);
>         $this->quba->regrade_question($this->slot, false, null, $reloadedquestion);
> 
>         // Verify.
>         $this->check_current_state(question_state::$todo);
>         $this->check_current_mark(null);
>         $this->check_step_count(1);
>         $this->check_current_output($this->get_tries_remaining_expectation(1));
>         $this->assertEquals(42, $this->quba->get_question_attempt_metadata($this->slot, 'originalslot'));