Proyectos de Subversion Moodle

<?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/>.

/**

 * Test helper for the ordering question type.

 *

 * @package   qtype_ordering

 * @copyright 2018 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/type/ordering/question.php');

/**

 * Test helper for the ordering question type.

 *

 * The class has code to generate question data structures for sample ordering questions.

 *

 * @copyright  2018 The Open University

 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later

 */

class qtype_ordering_test_helper extends question_test_helper {

    /**

     * Get the question types that this helper can handle.

     *

     * @return array the question types.

     */

    public function get_test_questions(): array {

        return ['moodle'];

    }

    /**

     * Makes an ordering question to sort the words Modular Object Oriented Dynamic Learning Environment.

     *

     * @return qtype_ordering_question the question instance.

     */

    public function make_ordering_question_moodle(): qtype_ordering_question {

        question_bank::load_question_definition_classes('ordering');

        $q = new qtype_ordering_question();

        $q->hints = [

            [

                'text' => 'Hint 1',

                'format' => FORMAT_HTML,

            ],

            [

                'text' => 'Hint 2',

                'format' => FORMAT_HTML,

            ],

        ];

        test_question_maker::initialise_a_question($q);

        $q->qtype = question_bank::get_qtype('ordering');

        $q->name = 'Moodle';

        $q->questiontext = 'Put these words in order';

        $q->generalfeedback = 'The correct answer is "Modular Object Oriented Dynamic Learning Environment".';

        test_question_maker::set_standard_combined_feedback_fields($q);

        $q->answers = [

            13 => $this->make_answer(13, 'Modular', FORMAT_HTML, 1, true),

            14 => $this->make_answer(14, 'Object', FORMAT_HTML, 2, true),

            15 => $this->make_answer(15, 'Oriented', FORMAT_HTML, 3, true),

            16 => $this->make_answer(16, 'Dynamic', FORMAT_HTML, 4, true),

            17 => $this->make_answer(17, 'Learning', FORMAT_HTML, 5, true),

            18 => $this->make_answer(18, 'Environment', FORMAT_HTML, 6, true),

        ];

        $q->layouttype = qtype_ordering_question::LAYOUT_HORIZONTAL;

        $q->selecttype = qtype_ordering_question::SELECT_ALL;

        $q->selectcount = qtype_ordering_question::MIN_SUBSET_ITEMS;

        $q->gradingtype = qtype_ordering_question::GRADING_RELATIVE_ALL_PREVIOUS_AND_NEXT;

        $q->showgrading = true;

        $q->numberingstyle = qtype_ordering_question::NUMBERING_STYLE_DEFAULT;

        $q->shownumcorrect = 1;

        return $q;

    }

    /**

     * Create an answer record to use in a test question.

     *

     * @param int $id the id to set.

     * @param string $text

     * @param int $textformat one of the FORMAT_... constants.

     * @param int $order the position in order, numbered from 1.

     * @param bool $addmd5 whether to add the md5key property.

     * @return stdClass the answer.

     */

    public function make_answer(int $id, string $text, int $textformat, int $order, bool $addmd5 = false): stdClass {

        global $CFG;

        $answer = new stdClass();

        $answer->id = $id;

        $answer->question = 0;

        $answer->answer = $text;

        $answer->answerformat = $textformat;

        $answer->fraction = $order;

        $answer->feedback = '';

        $answer->feedbackformat = FORMAT_MOODLE;

        if ($addmd5) {

            if (isset($CFG->passwordsaltmain)) {

                $salt = $CFG->passwordsaltmain;

            } else {

                $salt = '';

            }

            $answer->md5key = 'ordering_item_' . md5($salt . $answer->answer);

        }

        return $answer;

    }

    /**

     * Get the form data that corresponds an ordering question.

     *

     * The question is to sort the words Modular Object Oriented Dynamic Learning Environment.

     *

     * @return stdClass simulated question form data.

     */

    public function get_ordering_question_form_data_moodle(): stdClass {

        $form = new stdClass();

        $form->name = 'Moodle';

        $form->questiontext = ['text' => 'Put these words in order.', 'format' => FORMAT_HTML];

        $form->defaultmark = 1;

        $form->generalfeedback = [

            'text' => 'The correct answer is "Modular Object Oriented Dynamic Learning Environment".',

            'format' => FORMAT_HTML,

        ];

        $form->layouttype = qtype_ordering_question::LAYOUT_HORIZONTAL;

        $form->selecttype = qtype_ordering_question::SELECT_ALL;

        $form->selectcount = qtype_ordering_question::MIN_SUBSET_ITEMS;

        $form->gradingtype = qtype_ordering_question::GRADING_RELATIVE_ALL_PREVIOUS_AND_NEXT;

        $form->showgrading = true;

        $form->numberingstyle = qtype_ordering_question::NUMBERING_STYLE_DEFAULT;

        $form->countanswers = 6;

        $form->answer = [

            ['text' => 'Modular', 'format' => FORMAT_HTML],

            ['text' => 'Object', 'format' => FORMAT_HTML],

            ['text' => 'Oriented', 'format' => FORMAT_HTML],

            ['text' => 'Dynamic', 'format' => FORMAT_HTML],

            ['text' => 'Learning', 'format' => FORMAT_HTML],

            ['text' => 'Environment', 'format' => FORMAT_HTML],

        ];

        test_question_maker::set_standard_combined_feedback_form_data($form);

        $form->penalty = '0.3333333';

        // Build the expected hint base.

        $form->numhints = 2;

        $form->hint = [

            [

                'text' => 'Hint 1',

                'format' => FORMAT_HTML,

            ],

            [

                'text' => 'Hint 2',

                'format' => FORMAT_HTML,

            ],

        ];;

        $form->qtype = 'ordering';

        return $form;

    }

    /**

     * Get the raw data that corresponds an ordering question.

     *

     * The question is to sort the words Modular Object Oriented Dynamic Learning Environment.

     *

     * @return stdClass simulated question form data.

     */

    public function get_ordering_question_data_moodle(): stdClass {

        $questiondata = new stdClass();

        test_question_maker::initialise_question_data($questiondata);

        $questiondata->qtype = 'ordering';

        $questiondata->name = 'Moodle';

        $questiondata->questiontext = 'Put these words in order';

        $questiondata->generalfeedback = 'The correct answer is "Modular Object Oriented Dynamic Learning Environment".';

        $questiondata->options = new stdClass();

        test_question_maker::set_standard_combined_feedback_fields($questiondata->options);

        $questiondata->options->layouttype = qtype_ordering_question::LAYOUT_HORIZONTAL;

        $questiondata->options->selecttype = qtype_ordering_question::SELECT_ALL;

        $questiondata->options->selectcount = qtype_ordering_question::MIN_SUBSET_ITEMS;

        $questiondata->options->gradingtype = qtype_ordering_question::GRADING_RELATIVE_ALL_PREVIOUS_AND_NEXT;

        $questiondata->options->showgrading = true;

        $questiondata->options->numberingstyle = qtype_ordering_question::NUMBERING_STYLE_DEFAULT;

        $questiondata->options->answers = [

            13 => $this->make_answer(13, 'Modular', FORMAT_HTML, 1),

            14 => $this->make_answer(14, 'Object', FORMAT_HTML, 2),

            15 => $this->make_answer(15, 'Oriented', FORMAT_HTML, 3),

            16 => $this->make_answer(16, 'Dynamic', FORMAT_HTML, 4),

            17 => $this->make_answer(17, 'Learning', FORMAT_HTML, 5),

            18 => $this->make_answer(18, 'Environment', FORMAT_HTML, 6),

        ];

        return $questiondata;

    }

    /**

     * Return an array of answer codes in the order of given response.

     *

     * @param question_definition $question The question object.

     * @param array $items The array of input items.

     * @return array The array of answer codes in the order of given response.

     */

    public static function get_response(question_definition $question, array $items): array {

        $md5keys = [];

        foreach ($items as $item) {

            foreach ($question->answers as $answer) {

                if ($item === $answer->answer) {

                    $md5keys[] = $answer->md5key;

                    break;

                }

            }

        }

        return ['response_' . $question->id => implode(',', $md5keys)];

    }

}