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 helpers for the shortanswer question type.

 *

 * @package    qtype_shortanswer

 * @copyright  2012 The Open University

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

 */

defined('MOODLE_INTERNAL') || die();

/**

 * Test helper class for the shortanswer question type.

 *

 * @copyright  2011 The Open University

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

 */

class qtype_shortanswer_test_helper extends question_test_helper {

    public function get_test_questions() {

        return array('frogtoad', 'frogonly', 'escapedwildcards');

    }

    /**

     * Makes a shortanswer question with correct ansewer 'frog', partially

     * correct answer 'toad' and defaultmark 1. This question also has a

     * '*' match anything answer.

     * @return qtype_shortanswer_question

     */

    public function make_shortanswer_question_frogtoad() {

        question_bank::load_question_definition_classes('shortanswer');

        $sa = new qtype_shortanswer_question();

        test_question_maker::initialise_a_question($sa);

        $sa->name = 'Short answer question';

        $sa->questiontext = 'Name an amphibian: __________';

        $sa->generalfeedback = 'Generalfeedback: frog or toad would have been OK.';

        $sa->usecase = false;

        $sa->answers = array(

            13 => new question_answer(13, 'frog', 1.0, 'Frog is a very good answer.', FORMAT_HTML),

            14 => new question_answer(14, 'toad', 0.8, 'Toad is an OK good answer.', FORMAT_HTML),

            15 => new question_answer(15, '*', 0.0, 'That is a bad answer.', FORMAT_HTML),

        );

        $sa->qtype = question_bank::get_qtype('shortanswer');

        return $sa;

    }

    /**

     * Gets the question data for a shortanswer question with with correct

     * ansewer 'frog', partially correct answer 'toad' and defaultmark 1.

     * This question also has a '*' match anything answer.

     * @return stdClass

     */

    public function get_shortanswer_question_data_frogtoad() {

        $qdata = new stdClass();

        test_question_maker::initialise_question_data($qdata);

        $qdata->qtype = 'shortanswer';

        $qdata->name = 'Short answer question';

        $qdata->questiontext = 'Name an amphibian: __________';

        $qdata->generalfeedback = 'Generalfeedback: frog or toad would have been OK.';

        $qdata->status = \core_question\local\bank\question_version_status::QUESTION_STATUS_READY;

        $qdata->options = new stdClass();

        $qdata->options->usecase = 0;

        $qdata->options->answers = array(

            13 => new question_answer(13, 'frog', 1.0, 'Frog is a very good answer.', FORMAT_HTML),

            14 => new question_answer(14, 'toad', 0.8, 'Toad is an OK good answer.', FORMAT_HTML),

            15 => new question_answer(15, '*', 0.0, 'That is a bad answer.', FORMAT_HTML),

        );

        return $qdata;

    }

    /**

     * Gets the question form data for a shortanswer question with with correct

     * answer 'frog', partially correct answer 'toad' and defaultmark 1.

     * This question also has a '*' match anything answer.

     * @return stdClass

     */

    public function get_shortanswer_question_form_data_frogtoad() {

        $form = new stdClass();

        $form->name = 'Short answer question';

        $form->questiontext = array('text' => 'Name an amphibian: __________', 'format' => FORMAT_HTML);

        $form->defaultmark = 1.0;

        $form->generalfeedback = array('text' => 'Generalfeedback: frog or toad would have been OK.', 'format' => FORMAT_HTML);

        $form->usecase = false;

        $form->answer = array('frog', 'toad', '*');

        $form->fraction = array('1.0', '0.8', '0.0');

        $form->feedback = array(

            array('text' => 'Frog is a very good answer.', 'format' => FORMAT_HTML),

            array('text' => 'Toad is an OK good answer.', 'format' => FORMAT_HTML),

            array('text' => 'That is a bad answer.', 'format' => FORMAT_HTML),

        );

        $form->status = \core_question\local\bank\question_version_status::QUESTION_STATUS_READY;

        return $form;

    }

    /**

     * Makes a shortanswer question with just the correct ansewer 'frog', and

     * no other answer matching.

     * @return qtype_shortanswer_question

     */

    public function make_shortanswer_question_frogonly() {

        question_bank::load_question_definition_classes('shortanswer');

        $sa = new qtype_shortanswer_question();

        test_question_maker::initialise_a_question($sa);

        $sa->name = 'Short answer question';

        $sa->questiontext = 'Name the best amphibian: __________';

        $sa->generalfeedback = 'Generalfeedback: you should have said frog.';

        $sa->usecase = false;

        $sa->answers = array(

            13 => new question_answer(13, 'frog', 1.0, 'Frog is right.', FORMAT_HTML),

        );

        $sa->qtype = question_bank::get_qtype('shortanswer');

        return $sa;

    }

    /**

     * Gets the question data for a shortanswer questionwith just the correct

     * ansewer 'frog', and no other answer matching.

     * @return stdClass

     */

    public function get_shortanswer_question_data_frogonly() {

        $qdata = new stdClass();

        test_question_maker::initialise_question_data($qdata);

        $qdata->qtype = 'shortanswer';

        $qdata->name = 'Short answer question';

        $qdata->questiontext = 'Name the best amphibian: __________';

        $qdata->generalfeedback = 'Generalfeedback: you should have said frog.';

        $qdata->status = \core_question\local\bank\question_version_status::QUESTION_STATUS_READY;

        $qdata->options = new stdClass();

        $qdata->options->usecase = false;

        $qdata->options->answers = array(

            13 => new question_answer(13, 'frog', 1.0, 'Frog is right.', FORMAT_HTML),

        );

        return $qdata;

    }

    /**

     * Makes a shortanswer question with just the correct ansewer 'frog', and

     * no other answer matching.

     * @return qtype_shortanswer_question

     */

    public function make_shortanswer_question_escapedwildcards() {

        question_bank::load_question_definition_classes('shortanswer');

        $sa = new qtype_shortanswer_question();

        test_question_maker::initialise_a_question($sa);

        $sa->name = 'Question with escaped * in the answer.';

        $sa->questiontext = 'How to you write x times y in C? __________';

        $sa->generalfeedback = 'In C, this expression is written x * y.';

        $sa->usecase = false;

        $sa->answers = array(

            13 => new question_answer(13, '*x\*y*', 1.0, 'Well done.', FORMAT_HTML),

        );

        $sa->qtype = question_bank::get_qtype('shortanswer');

        return $sa;

    }

}