Merge branch 'install_310_STABLE' of https://git.in.moodle.com/amosbot/moodle-install...
[moodle.git] / question / engine / tests / walkthrough_test.php
CommitLineData
2d708a73
TH
1<?php
2// This file is part of Moodle - http://moodle.org/
3//
4// Moodle is free software: you can redistribute it and/or modify
5// it under the terms of the GNU General Public License as published by
6// the Free Software Foundation, either version 3 of the License, or
7// (at your option) any later version.
8//
9// Moodle is distributed in the hope that it will be useful,
10// but WITHOUT ANY WARRANTY; without even the implied warranty of
11// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12// GNU General Public License for more details.
13//
14// You should have received a copy of the GNU General Public License
15// along with Moodle. If not, see <http://www.gnu.org/licenses/>.
16
17/**
18 * This file contains tests that walks a question through a whole attempt.
19 *
20 * @package core_question
21 * @copyright 2017 The Open University
22 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
23 */
24
25
26defined('MOODLE_INTERNAL') || die();
27
28global $CFG;
29require_once(__DIR__ . '/..//lib.php');
30require_once(__DIR__ . '/helpers.php');
31
32
33/**
34 * End-to-end tests of attempting a question.
35 *
36 * @copyright 2017 The Open University
37 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
38 */
39class core_question_walkthrough_testcase extends qbehaviour_walkthrough_test_base {
40
41 public function test_regrade_does_not_lose_flag() {
42
43 // Create a true-false question with correct answer true.
44 $tf = test_question_maker::make_question('truefalse', 'true');
45 $this->start_attempt_at_question($tf, 'deferredfeedback', 2);
46
47 // Process a true answer.
48 $this->process_submission(array('answer' => 1));
49
50 // Finish the attempt.
51 $this->quba->finish_all_questions();
52
53 // Flag the question.
54 $this->get_question_attempt()->set_flagged(true);
55
56 // Now change the correct answer to the question, and regrade.
57 $tf->rightanswer = false;
58 $this->quba->regrade_all_questions();
59
60 // Verify the flag has not been lost.
61 $this->assertTrue($this->get_question_attempt()->is_flagged());
62 }
63}