.
/**
* Unit tests for the drag-and-drop words into sentences question definition class.
*
* @package qtype_ddwtos
* @copyright 2012 The Open University
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
*/
defined('MOODLE_INTERNAL') || die();
global $CFG;
require_once($CFG->dirroot . '/question/engine/tests/helpers.php');
require_once($CFG->dirroot . '/question/type/ddwtos/tests/helper.php');
/**
* Unit tests for the drag-and-drop words into sentences question definition class.
*
* @copyright 2012 The Open University
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
*/
class qtype_ddwtos_test extends question_testcase {
/** @var qtype_ddwtos instance of the question type class to test. */
protected $qtype;
protected function setUp() {
$this->qtype = question_bank::get_qtype('ddwtos');;
}
protected function tearDown() {
$this->qtype = null;
}
public function assert_same_xml($expectedxml, $xml) {
$this->assertEquals(str_replace("\r\n", "\n", $expectedxml),
str_replace("\r\n", "\n", $xml));
}
/**
* Get some test question data.
*
* @return object the data to construct a question like
* {@link qtype_ddwtos_test_helper::make_ddwtos_question_fox()}.
*/
protected function get_test_question_data() {
global $USER;
$dd = new stdClass();
$dd->id = 0;
$dd->category = 0;
$dd->contextid = 0;
$dd->parent = 0;
$dd->questiontextformat = FORMAT_HTML;
$dd->generalfeedbackformat = FORMAT_HTML;
$dd->defaultmark = 1;
$dd->penalty = 0.3333333;
$dd->length = 1;
$dd->stamp = make_unique_id_code();
$dd->version = make_unique_id_code();
$dd->hidden = 0;
$dd->timecreated = time();
$dd->timemodified = time();
$dd->createdby = $USER->id;
$dd->modifiedby = $USER->id;
$dd->name = 'Drag-and-drop words into sentences question';
$dd->questiontext = 'The [[1]] brown [[2]] jumped over the [[3]] dog.';
$dd->generalfeedback = 'This sentence uses each letter of the alphabet.';
$dd->qtype = 'ddwtos';
$dd->options = new stdClass();
$dd->options->shuffleanswers = true;
test_question_maker::set_standard_combined_feedback_fields($dd->options);
$dd->options->answers = array(
(object) array('answer' => 'quick', 'feedback' =>
'O:8:"stdClass":2:{s:9:"draggroup";s:1:"1";s:8:"infinite";i:0;}'),
(object) array('answer' => 'fox', 'feedback' =>
'O:8:"stdClass":2:{s:9:"draggroup";s:1:"2";s:8:"infinite";i:0;}'),
(object) array('answer' => 'lazy', 'feedback' =>
'O:8:"stdClass":2:{s:9:"draggroup";s:1:"3";s:8:"infinite";i:0;}'),
(object) array('answer' => 'assiduous', 'feedback' =>
'O:8:"stdClass":2:{s:9:"draggroup";s:1:"3";s:8:"infinite";i:0;}'),
(object) array('answer' => 'dog', 'feedback' =>
'O:8:"stdClass":2:{s:9:"draggroup";s:1:"2";s:8:"infinite";i:0;}'),
(object) array('answer' => 'slow', 'feedback' =>
'O:8:"stdClass":2:{s:9:"draggroup";s:1:"1";s:8:"infinite";i:0;}'),
);
return $dd;
}
public function test_name() {
$this->assertEquals($this->qtype->name(), 'ddwtos');
}
public function test_can_analyse_responses() {
$this->assertTrue($this->qtype->can_analyse_responses());
}
public function test_initialise_question_instance() {
$qdata = $this->get_test_question_data();
$expected = test_question_maker::make_question('ddwtos');
$expected->stamp = $qdata->stamp;
$expected->version = $qdata->version;
$q = $this->qtype->make_question($qdata);
$this->assertEquals($expected, $q);
}
public function test_get_random_guess_score() {
$q = $this->get_test_question_data();
$this->assertEquals(0.5, $this->qtype->get_random_guess_score($q), '', 0.0000001);
}
public function test_get_possible_responses() {
$q = $this->get_test_question_data();
$this->assertEquals(array(
1 => array(
1 => new question_possible_response('quick', 1 / 3),
2 => new question_possible_response('slow', 0),
null => question_possible_response::no_response()),
2 => array(
1 => new question_possible_response('fox', 1 / 3),
2 => new question_possible_response('dog', 0),
null => question_possible_response::no_response()),
3 => array(
1 => new question_possible_response('lazy', 1 / 3),
2 => new question_possible_response('assiduous', 0),
null => question_possible_response::no_response()),
), $this->qtype->get_possible_responses($q));
}
public function test_xml_import() {
$xml = '
A drag-and-drop question
Put these in order: [[1]], [[2]], [[3]].
The answer is Alpha, Beta, Gamma.
3
0.3333333
0
1
Your answer is correct.]]>
Your answer is partially correct.]]>
Your answer is incorrect.]]>
Alpha
1
Beta
1
Gamma
1
Try again.
These are the first three letters of the Greek alphabet.
';
$xmldata = xmlize($xml);
$importer = new qformat_xml();
$q = $importer->try_importing_using_qtypes(
$xmldata['question'], null, null, 'ddwtos');
$expectedq = new stdClass();
$expectedq->qtype = 'ddwtos';
$expectedq->name = 'A drag-and-drop question';
$expectedq->questiontext = 'Put these in order: [[1]], [[2]], [[3]].';
$expectedq->questiontextformat = FORMAT_MOODLE;
$expectedq->generalfeedback = 'The answer is Alpha, Beta, Gamma.';
$expectedq->defaultmark = 3;
$expectedq->length = 1;
$expectedq->penalty = 0.3333333;
$expectedq->shuffleanswers = 1;
$expectedq->correctfeedback = array('text' => 'Your answer is correct.
',
'format' => FORMAT_MOODLE);
$expectedq->partiallycorrectfeedback = array(
'text' => 'Your answer is partially correct.
',
'format' => FORMAT_MOODLE);
$expectedq->shownumcorrect = true;
$expectedq->incorrectfeedback = array('text' => 'Your answer is incorrect.
',
'format' => FORMAT_MOODLE);
$expectedq->choices = array(
array('answer' => 'Alpha', 'choicegroup' => 1, 'infinite' => false),
array('answer' => 'Beta', 'choicegroup' => 1, 'infinite' => false),
array('answer' => 'Gamma', 'choicegroup' => 1, 'infinite' => true),
);
$expectedq->hint = array(
array('text' => 'Try again.', 'format' => FORMAT_MOODLE),
array('text' => 'These are the first three letters of the Greek alphabet.',
'format' => FORMAT_MOODLE));
$expectedq->hintshownumcorrect = array(true, true);
$expectedq->hintclearwrong = array(false, true);
$this->assert(new question_check_specified_fields_expectation($expectedq), $q);
$this->assertEquals($expectedq->hint, $q->hint);
}
public function test_xml_import_legacy() {
$xml = '
QDandD1 Base definition
<p>Drag and drop the words from the list below to fill the blank spaces ' .
'and correctly complete the sentence.</p> <p>At 25°C all aqueous basic ' .
'solutions have [[1]] ion concentrations less than [[8]]<br />mol ' .
'litre<sup>-1</sup> and pH values [[9]] than [[6]].</p> ' .
'<!--DONOTCLEAN-->
<p>At 25 °C all aqueous basic solutions have hydrogen ion ' .
'concentrations less than 10<sup>−7</sup> mol ' .
'litre<sup>−1</sup> and pH values greater than 7.</p> ' .
'<p>See Section 9 of S103 <em class="italic">Discovering ' .
'Science</em> Block 8.</p>
1
0.33
0
0
false
1
hydrogen
O:8:"stdClass":2:{s:9:"draggroup";s:1:"1";s:8:"infinite";i:0;}
0
positive
O:8:"stdClass":2:{s:9:"draggroup";s:1:"1";s:8:"infinite";i:0;}
0
hydroxide
O:8:"stdClass":2:{s:9:"draggroup";s:1:"1";s:8:"infinite";i:0;}
0
negative
O:8:"stdClass":2:{s:9:"draggroup";s:1:"1";s:8:"infinite";i:0;}
0
10<sup>7</sup>
O:8:"stdClass":2:{s:9:"draggroup";s:1:"2";s:8:"infinite";i:0;}
1
7
O:8:"stdClass":2:{s:9:"draggroup";s:1:"2";s:8:"infinite";i:0;}
0
1
O:8:"stdClass":2:{s:9:"draggroup";s:1:"2";s:8:"infinite";i:0;}
1
10<sup>-7</sup>
O:8:"stdClass":2:{s:9:"draggroup";s:1:"2";s:8:"infinite";i:0;}
1
greater
O:8:"stdClass":2:{s:9:"draggroup";s:1:"3";s:8:"infinite";i:0;}
0
less
O:8:"stdClass":2:{s:9:"draggroup";s:1:"3";s:8:"infinite";i:0;}
Your answer is correct.
1
Your answer is partially correct.
Your answer is incorrect.
0
0.33
1
0
You may wish to read Section 9 of <em ' .
'class="italic">Discovering Science</em> Block 8.
1
1
Any incorrect choices will be removed before your final try.
';
$xmldata = xmlize($xml);
$importer = new qformat_xml();
$q = $importer->try_importing_using_qtypes(
$xmldata['question'], null, null, 'ddwtos');
$expectedq = new stdClass();
$expectedq->qtype = 'ddwtos';
$expectedq->name = 'QDandD1 Base definition';
$expectedq->questiontext = 'Drag and drop the words from the list below ' .
'to fill the blank spaces and correctly complete the sentence.
' .
'At 25°C all aqueous basic solutions have [[1]] ion concentrations ' .
'less than [[8]]
mol litre-1 and pH values [[9]] than [[6]].
' .
'';
$expectedq->questiontextformat = FORMAT_HTML;
$expectedq->generalfeedback = 'At 25 °C all aqueous basic solutions ' .
'have hydrogen ion concentrations less than 10−7 ' .
'mol litre−1 and pH values greater than 7.
See ' .
'Section 9 of S103 Discovering Science Block 8.
';
$expectedq->defaultmark = 1;
$expectedq->length = 1;
$expectedq->penalty = 0.3333333;
$expectedq->shuffleanswers = 0;
$expectedq->correctfeedback = array('text' => 'Your answer is correct.',
'format' => FORMAT_HTML);
$expectedq->partiallycorrectfeedback = array(
'text' => 'Your answer is partially correct.',
'format' => FORMAT_HTML);
$expectedq->shownumcorrect = true;
$expectedq->incorrectfeedback = array('text' => 'Your answer is incorrect.',
'format' => FORMAT_HTML);
$expectedq->choices = array(
array('answer' => array('text' => 'hydrogen', 'format' => FORMAT_PLAIN),
'choicegroup' => 1, 'infinite' => false),
array('answer' => array('text' => 'positive', 'format' => FORMAT_PLAIN),
'choicegroup' => 1, 'infinite' => false),
array('answer' => array('text' => 'hydroxide', 'format' => FORMAT_PLAIN),
'choicegroup' => 1, 'infinite' => false),
array('answer' => array('text' => 'negative', 'format' => FORMAT_PLAIN),
'choicegroup' => 1, 'infinite' => false),
array('answer' => array('text' => '107', 'format' => FORMAT_PLAIN),
'choicegroup' => 2, 'infinite' => false),
array('answer' => array('text' => '7', 'format' => FORMAT_PLAIN),
'choicegroup' => 2, 'infinite' => false),
array('answer' => array('text' => '1', 'format' => FORMAT_PLAIN),
'choicegroup' => 2, 'infinite' => false),
array('answer' => array('text' => '10-7', 'format' => FORMAT_PLAIN),
'choicegroup' => 2, 'infinite' => false),
array('answer' => array('text' => 'greater', 'format' => FORMAT_PLAIN),
'choicegroup' => 3, 'infinite' => false),
array('answer' => array('text' => 'less', 'format' => FORMAT_PLAIN),
'choicegroup' => 3, 'infinite' => false),
);
$expectedq->hint = array(array('text' => 'You may wish to read Section 9 of ' .
'Discovering Science Block 8.',
'format' => FORMAT_HTML),
array('text' => 'Any incorrect choices will be removed before your final try.',
'format' => FORMAT_HTML),
);
$expectedq->hintshownumcorrect = array(true, true);
$expectedq->hintclearwrong = array(false, true);
$this->assert(new question_check_specified_fields_expectation($expectedq), $q);
$this->assertEquals($expectedq->choices, $q->choices);
$this->assertEquals($expectedq->hint, $q->hint);
}
public function test_xml_export() {
$qdata = new stdClass();
$qdata->id = 123;
$qdata->contextid = 0;
$qdata->qtype = 'ddwtos';
$qdata->name = 'A drag-and-drop question';
$qdata->questiontext = 'Put these in order: [[1]], [[2]], [[3]].';
$qdata->questiontextformat = FORMAT_MOODLE;
$qdata->generalfeedback = 'The answer is Alpha, Beta, Gamma.';
$qdata->generalfeedbackformat = FORMAT_MOODLE;
$qdata->defaultmark = 3;
$qdata->length = 1;
$qdata->penalty = 0.3333333;
$qdata->hidden = 0;
$qdata->options = new stdClass();
$qdata->options->shuffleanswers = 1;
$qdata->options->correctfeedback = 'Your answer is correct.
';
$qdata->options->correctfeedbackformat = FORMAT_MOODLE;
$qdata->options->partiallycorrectfeedback = 'Your answer is partially correct.
';
$qdata->options->partiallycorrectfeedbackformat = FORMAT_MOODLE;
$qdata->options->shownumcorrect = 1;
$qdata->options->incorrectfeedback = 'Your answer is incorrect.
';
$qdata->options->incorrectfeedbackformat = FORMAT_MOODLE;
$qdata->options->answers = array(
13 => new question_answer(13, 'Alpha', 0,
'O:8:"stdClass":2:{s:9:"draggroup";s:1:"1";s:8:"infinite";b:0;}',
FORMAT_MOODLE),
14 => new question_answer(14, 'Beta', 0,
'O:8:"stdClass":2:{s:9:"draggroup";s:1:"1";s:8:"infinite";b:0;}',
FORMAT_MOODLE),
15 => new question_answer(15, 'Gamma', 0,
'O:8:"stdClass":2:{s:9:"draggroup";s:1:"1";s:8:"infinite";b:1;}',
FORMAT_MOODLE),
);
$qdata->hints = array(
1 => new question_hint_with_parts(1, 'Try again.', FORMAT_MOODLE, true, false),
2 => new question_hint_with_parts(2,
'These are the first three letters of the Greek alphabet.',
FORMAT_MOODLE, true, true),
);
$exporter = new qformat_xml();
$xml = $exporter->writequestion($qdata);
$expectedxml = '
A drag-and-drop question
Put these in order: [[1]], [[2]], [[3]].
The answer is Alpha, Beta, Gamma.
3
0.3333333
0
1
Your answer is correct.]]>
Your answer is partially correct.]]>
Your answer is incorrect.]]>
Alpha
1
Beta
1
Gamma
1
Try again.
These are the first three letters of the Greek alphabet.
';
$this->assert_same_xml($expectedxml, $xml);
}
}