Merge branch 'MDL-57841-master' of git://github.com/damyon/moodle
[moodle.git] / question / engine / tests / walkthrough_test.php
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/>.
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  */
26 defined('MOODLE_INTERNAL') || die();
28 global $CFG;
29 require_once(__DIR__ . '/..//lib.php');
30 require_once(__DIR__ . '/helpers.php');
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  */
39 class core_question_walkthrough_testcase extends qbehaviour_walkthrough_test_base {
41     public function test_regrade_does_not_lose_flag() {
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);
47         // Process a true answer.
48         $this->process_submission(array('answer' => 1));
50         // Finish the attempt.
51         $this->quba->finish_all_questions();
53         // Flag the question.
54         $this->get_question_attempt()->set_flagged(true);
56         // Now change the correct answer to the question, and regrade.
57         $tf->rightanswer = false;
58         $this->quba->regrade_all_questions();
60         // Verify the flag has not been lost.
61         $this->assertTrue($this->get_question_attempt()->is_flagged());
62     }
63 }