<?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/>.
< /**
< * Unit tests for the matching question definition classes.
< *
< * @package qtype_match
< * @copyright 2009 The Open University
< * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
< */
> namespace qtype_match;
> use question_attempt_step;
> use question_classified_response;
defined('MOODLE_INTERNAL') || die();
> use question_display_options;
> use question_state;
global $CFG;
require_once($CFG->dirroot . '/question/engine/tests/helpers.php');
/**
* Unit tests for the matching question definition class.
*
> * @package qtype_match
* @copyright 2009 The Open University
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
> * @covers \qtype_match_question
*/
< class qtype_match_question_test extends advanced_testcase {
> class question_test extends \advanced_testcase {
public function test_get_expected_data() {
< $question = test_question_maker::make_question('match');
> $question = \test_question_maker::make_question('match');
$question->start_attempt(new question_attempt_step(), 1);
$this->assertEquals(array('sub0' => PARAM_INT, 'sub1' => PARAM_INT,
'sub2' => PARAM_INT, 'sub3' => PARAM_INT), $question->get_expected_data());
}
public function test_is_complete_response() {
< $question = test_question_maker::make_question('match');
> $question = \test_question_maker::make_question('match');
$question->start_attempt(new question_attempt_step(), 1);
$this->assertFalse($question->is_complete_response(array()));
$this->assertFalse($question->is_complete_response(
array('sub0' => '1', 'sub1' => '1', 'sub2' => '1', 'sub3' => '0')));
$this->assertFalse($question->is_complete_response(array('sub1' => '1')));
$this->assertTrue($question->is_complete_response(
array('sub0' => '1', 'sub1' => '1', 'sub2' => '1', 'sub3' => '1')));
}
public function test_is_gradable_response() {
< $question = test_question_maker::make_question('match');
> $question = \test_question_maker::make_question('match');
$question->start_attempt(new question_attempt_step(), 1);
$this->assertFalse($question->is_gradable_response(array()));
$this->assertFalse($question->is_gradable_response(
array('sub0' => '0', 'sub1' => '0', 'sub2' => '0', 'sub3' => '0')));
$this->assertTrue($question->is_gradable_response(
array('sub0' => '1', 'sub1' => '0', 'sub2' => '0', 'sub3' => '0')));
$this->assertTrue($question->is_gradable_response(array('sub1' => '1')));
$this->assertTrue($question->is_gradable_response(
array('sub0' => '1', 'sub1' => '1', 'sub2' => '3', 'sub3' => '1')));
}
public function test_is_same_response() {
< $question = test_question_maker::make_question('match');
> $question = \test_question_maker::make_question('match');
$question->start_attempt(new question_attempt_step(), 1);
$this->assertTrue($question->is_same_response(
array(),
array('sub0' => '0', 'sub1' => '0', 'sub2' => '0', 'sub3' => '0')));
$this->assertTrue($question->is_same_response(
array('sub0' => '0', 'sub1' => '0', 'sub2' => '0', 'sub3' => '0'),
array('sub0' => '0', 'sub1' => '0', 'sub2' => '0', 'sub3' => '0')));
$this->assertFalse($question->is_same_response(
array('sub0' => '0', 'sub1' => '0', 'sub2' => '0', 'sub3' => '0'),
array('sub0' => '1', 'sub1' => '2', 'sub2' => '3', 'sub3' => '1')));
$this->assertTrue($question->is_same_response(
array('sub0' => '1', 'sub1' => '2', 'sub2' => '3', 'sub3' => '1'),
array('sub0' => '1', 'sub1' => '2', 'sub2' => '3', 'sub3' => '1')));
$this->assertFalse($question->is_same_response(
array('sub0' => '2', 'sub1' => '2', 'sub2' => '3', 'sub3' => '1'),
array('sub0' => '1', 'sub1' => '2', 'sub2' => '3', 'sub3' => '1')));
}
public function test_grading() {
< $question = test_question_maker::make_question('match');
> $question = \test_question_maker::make_question('match');
$question->start_attempt(new question_attempt_step(), 1);
$correctresponse = $question->prepare_simulated_post_data(
array('Dog' => 'Mammal',
'Frog' => 'Amphibian',
'Toad' => 'Amphibian',
'Cat' => 'Mammal'));
$this->assertEquals(array(1, question_state::$gradedright), $question->grade_response($correctresponse));
$partialresponse = $question->prepare_simulated_post_data(array('Dog' => 'Mammal'));
$this->assertEquals(array(0.25, question_state::$gradedpartial), $question->grade_response($partialresponse));
$partiallycorrectresponse = $question->prepare_simulated_post_data(
array('Dog' => 'Mammal',
'Frog' => 'Insect',
'Toad' => 'Insect',
'Cat' => 'Amphibian'));
$this->assertEquals(array(0.25, question_state::$gradedpartial), $question->grade_response($partiallycorrectresponse));
$wrongresponse = $question->prepare_simulated_post_data(
array('Dog' => 'Amphibian',
'Frog' => 'Insect',
'Toad' => 'Insect',
'Cat' => 'Amphibian'));
$this->assertEquals(array(0, question_state::$gradedwrong), $question->grade_response($wrongresponse));
}
public function test_get_correct_response() {
< $question = test_question_maker::make_question('match');
> $question = \test_question_maker::make_question('match');
$question->start_attempt(new question_attempt_step(), 1);
$correct = $question->prepare_simulated_post_data(array('Dog' => 'Mammal',
'Frog' => 'Amphibian',
'Toad' => 'Amphibian',
'Cat' => 'Mammal'));
$this->assertEquals($correct, $question->get_correct_response());
}
public function test_get_question_summary() {
< $match = test_question_maker::make_question('match');
> $match = \test_question_maker::make_question('match');
$match->start_attempt(new question_attempt_step(), 1);
$qsummary = $match->get_question_summary();
< $this->assertRegExp('/' . preg_quote($match->questiontext, '/') . '/', $qsummary);
> $this->assertMatchesRegularExpression('/' . preg_quote($match->questiontext, '/') . '/', $qsummary);
foreach ($match->stems as $stem) {
< $this->assertRegExp('/' . preg_quote($stem, '/') . '/', $qsummary);
> $this->assertMatchesRegularExpression('/' . preg_quote($stem, '/') . '/', $qsummary);
}
foreach ($match->choices as $choice) {
< $this->assertRegExp('/' . preg_quote($choice, '/') . '/', $qsummary);
> $this->assertMatchesRegularExpression('/' . preg_quote($choice, '/') . '/', $qsummary);
}
}
public function test_summarise_response() {
< $match = test_question_maker::make_question('match');
> $match = \test_question_maker::make_question('match');
$match->start_attempt(new question_attempt_step(), 1);
$summary = $match->summarise_response($match->prepare_simulated_post_data(array('Dog' => 'Amphibian', 'Frog' => 'Mammal')));
< $this->assertRegExp('/Dog -> Amphibian/', $summary);
< $this->assertRegExp('/Frog -> Mammal/', $summary);
> $this->assertMatchesRegularExpression('/Dog -> Amphibian/', $summary);
> $this->assertMatchesRegularExpression('/Frog -> Mammal/', $summary);
}
public function test_classify_response() {
< $match = test_question_maker::make_question('match');
> $match = \test_question_maker::make_question('match');
$match->start_attempt(new question_attempt_step(), 1);
$response = $match->prepare_simulated_post_data(array('Dog' => 'Amphibian', 'Frog' => 'Insect', 'Toad' => '', 'Cat' => ''));
$this->assertEquals(array(
1 => new question_classified_response(2, 'Amphibian', 0),
2 => new question_classified_response(3, 'Insect', 0),
3 => question_classified_response::no_response(),
4 => question_classified_response::no_response(),
), $match->classify_response($response));
$response = $match->prepare_simulated_post_data(array('Dog' => 'Mammal', 'Frog' => 'Amphibian',
'Toad' => 'Amphibian', 'Cat' => 'Mammal'));
$this->assertEquals(array(
1 => new question_classified_response(1, 'Mammal', 0.25),
2 => new question_classified_response(2, 'Amphibian', 0.25),
3 => new question_classified_response(2, 'Amphibian', 0.25),
4 => new question_classified_response(1, 'Mammal', 0.25),
), $match->classify_response($response));
}
public function test_classify_response_choice_deleted_after_attempt() {
< $match = test_question_maker::make_question('match');
> $match = \test_question_maker::make_question('match');
$firststep = new question_attempt_step();
$match->start_attempt($firststep, 1);
$response = $match->prepare_simulated_post_data(array(
'Dog' => 'Amphibian', 'Frog' => 'Insect', 'Toad' => '', 'Cat' => 'Mammal'));
< $match = test_question_maker::make_question('match');
> $match = \test_question_maker::make_question('match');
unset($match->stems[4]);
< unset($match->stemsformat[4]);
> unset($match->stemformat[4]);
unset($match->right[4]);
$match->apply_attempt_state($firststep);
$this->assertEquals(array(
1 => new question_classified_response(2, 'Amphibian', 0),
2 => new question_classified_response(3, 'Insect', 0),
3 => question_classified_response::no_response(),
), $match->classify_response($response));
}
public function test_classify_response_choice_added_after_attempt() {
< $match = test_question_maker::make_question('match');
> $match = \test_question_maker::make_question('match');
$firststep = new question_attempt_step();
$match->start_attempt($firststep, 1);
$response = $match->prepare_simulated_post_data(array(
'Dog' => 'Amphibian', 'Frog' => 'Insect', 'Toad' => '', 'Cat' => 'Mammal'));
< $match = test_question_maker::make_question('match');
> $match = \test_question_maker::make_question('match');
$match->stems[5] = "Snake";
< $match->stemsformat[5] = FORMAT_HTML;
> $match->stemformat[5] = FORMAT_HTML;
$match->choices[5] = "Reptile";
$match->right[5] = 5;
$match->apply_attempt_state($firststep);
$this->assertEquals(array(
1 => new question_classified_response(2, 'Amphibian', 0),
2 => new question_classified_response(3, 'Insect', 0),
3 => question_classified_response::no_response(),
4 => new question_classified_response(1, 'Mammal', 0.20),
), $match->classify_response($response));
}
public function test_prepare_simulated_post_data() {
< $m = test_question_maker::make_question('match');
> $m = \test_question_maker::make_question('match');
$m->start_attempt(new question_attempt_step(), 1);
$postdata = $m->prepare_simulated_post_data(array('Dog' => 'Mammal', 'Frog' => 'Amphibian',
'Toad' => 'Amphibian', 'Cat' => 'Mammal'));
$this->assertEquals(array(4, 4), $m->get_num_parts_right($postdata));
}
/**
* test_get_question_definition_for_external_rendering
*/
public function test_get_question_definition_for_external_rendering() {
< $question = test_question_maker::make_question('match');
> $question = \test_question_maker::make_question('match');
$question->start_attempt(new question_attempt_step(), 1);
< $qa = test_question_maker::get_a_qa($question);
> $qa = \test_question_maker::get_a_qa($question);
$displayoptions = new question_display_options();
$options = $question->get_question_definition_for_external_rendering($qa, $displayoptions);
$this->assertEquals(1, $options['shufflestems']);
> }
}
>
}
> public function test_validate_can_regrade_with_other_version_ok() {
> $m = \test_question_maker::make_question('match');
>
> $newm = clone($m);
>
> $this->assertNull($newm->validate_can_regrade_with_other_version($m));
> }
>
> public function test_validate_can_regrade_with_other_version_bad_stems() {
> $m = \test_question_maker::make_question('match');
>
> $newm = clone($m);
> unset($newm->stems[4]);
>
> $this->assertEquals(get_string('regradeissuenumstemschanged', 'qtype_match'),
> $newm->validate_can_regrade_with_other_version($m));
> }
>
> public function test_validate_can_regrade_with_other_version_bad_choices() {
> $m = \test_question_maker::make_question('match');
>
> $newm = clone($m);
> unset($newm->choices[3]);
>
> $this->assertEquals(get_string('regradeissuenumchoiceschanged', 'qtype_match'),
> $newm->validate_can_regrade_with_other_version($m));
> }
>
> public function test_update_attempt_state_date_from_old_version_bad() {
> $m = \test_question_maker::make_question('match');
>
> $newm = clone($m);
> $newm->stems = [11 => 'Dog', 12 => 'Frog', 13 => 'Toad', 14 => 'Cat', 15 => 'Hippopotamus'];
> $newm->stemformat = [11 => FORMAT_HTML, 12 => FORMAT_HTML, 13 => FORMAT_HTML, 14 => FORMAT_HTML, 15 => FORMAT_HTML];
> $newm->choices = [11 => 'Mammal', 12 => 'Amphibian', 13 => 'Insect'];
> $newm->right = [11 => 11, 12 => 12, 13 => 12, 14 => 11, 15 => 11];
>
> $oldstep = new question_attempt_step();
> $oldstep->set_qt_var('_stemorder', '4,1,3,2');
> $oldstep->set_qt_var('_choiceorder', '2,3,1');
> $this->expectExceptionMessage(get_string('regradeissuenumstemschanged', 'qtype_match'));
> $newm->update_attempt_state_data_for_new_version($oldstep, $m);
> }
>
> public function test_update_attempt_state_date_from_old_version_ok() {
> $m = \test_question_maker::make_question('match');
>
> $newm = clone($m);
> $newm->stems = [11 => 'Dog', 12 => 'Frog', 13 => 'Toad', 14 => 'Cat'];
> $newm->stemformat = [11 => FORMAT_HTML, 12 => FORMAT_HTML, 13 => FORMAT_HTML, 14 => FORMAT_HTML];
> $newm->choices = [11 => 'Mammal', 12 => 'Amphibian', 13 => 'Insect'];
> $newm->right = [11 => 11, 12 => 12, 13 => 12, 14 => 11];
>
> $oldstep = new question_attempt_step();
> $oldstep->set_qt_var('_stemorder', '4,1,3,2');
> $oldstep->set_qt_var('_choiceorder', '2,3,1');
> $this->assertEquals(['_stemorder' => '14,11,13,12', '_choiceorder' => '12,13,11'],
> $newm->update_attempt_state_data_for_new_version($oldstep, $m));