mirror of
https://github.com/moodle/moodle.git
synced 2025-07-26 08:50:30 +02:00
1a3897d1ba
This is very similar to MDL-77090, but at the time, I missed that this also needed to be handled. (Question metadata is, I think, only used by the quiz 'Try another question like this one' feature.)
192 lines
7.4 KiB
PHP
192 lines
7.4 KiB
PHP
<?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_question;
|
|
|
|
use question_bank;
|
|
use question_display_options;
|
|
use question_state;
|
|
use test_question_maker;
|
|
|
|
defined('MOODLE_INTERNAL') || die();
|
|
|
|
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 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'));
|
|
}
|
|
}
|