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

namespace qtype_randomsamatch;

use question_attempt_step;

use question_state;

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

global $CFG;

require_once($CFG->dirroot . '/question/engine/tests/helpers.php');

/**

 * Unit tests for the random shortanswer matching question definition class.

 *

 * @package   qtype_randomsamatch

 * @copyright 2013 Jean-Michel Vedrine

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

 */

final class question_test extends \advanced_testcase {

    public function test_get_expected_data(): void {

        $question = \test_question_maker::make_question('randomsamatch');

        $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(): void {

        $question = \test_question_maker::make_question('randomsamatch');

        $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(): void {

        $question = \test_question_maker::make_question('randomsamatch');

        $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(): void {

        $question = \test_question_maker::make_question('randomsamatch');

        $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(): void {

        $question = \test_question_maker::make_question('randomsamatch');

        $question->start_attempt(new question_attempt_step(), 1);

        $choiceorder = $question->get_choice_order();

        $orderforchoice = array_combine(array_values($choiceorder), array_keys($choiceorder));

        $this->assertEquals(array(1, question_state::$gradedright),

                $question->grade_response(array('sub0' => $orderforchoice[13],

                        'sub1' => $orderforchoice[16], 'sub2' => $orderforchoice[16],

                        'sub3' => $orderforchoice[13])));

        $this->assertEquals(array(0.25, question_state::$gradedpartial),

                $question->grade_response(array('sub0' => $orderforchoice[13])));

        $this->assertEquals(array(0, question_state::$gradedwrong),

                $question->grade_response(array('sub0' => $orderforchoice[16],

                        'sub1' => $orderforchoice[13], 'sub2' => $orderforchoice[13],

                        'sub3' => $orderforchoice[16])));

    }

    public function test_get_correct_response(): void {

        $question = \test_question_maker::make_question('randomsamatch');

        $question->start_attempt(new question_attempt_step(), 1);

        $choiceorder = $question->get_choice_order();

        $orderforchoice = array_combine(array_values($choiceorder), array_keys($choiceorder));

        $this->assertEquals(array('sub0' => $orderforchoice[13], 'sub1' => $orderforchoice[16],

                'sub2' => $orderforchoice[16], 'sub3' => $orderforchoice[13]),

                $question->get_correct_response());

    }

    public function test_get_question_summary(): void {

        $question = \test_question_maker::make_question('randomsamatch');

        $question->start_attempt(new question_attempt_step(), 1);

        $qsummary = $question->get_question_summary();

        $this->assertMatchesRegularExpression('/' . preg_quote($question->questiontext, '/') . '/', $qsummary);

        foreach ($question->stems as $stem) {

            $this->assertMatchesRegularExpression('/' . preg_quote($stem, '/') . '/', $qsummary);

        }

        foreach ($question->choices as $choice) {

            $this->assertMatchesRegularExpression('/' . preg_quote($choice, '/') . '/', $qsummary);

        }

    }

    public function test_summarise_response(): void {

        $question = \test_question_maker::make_question('randomsamatch');

        $question->shufflestems = false;

        $question->start_attempt(new question_attempt_step(), 1);

        $summary = $question->summarise_response(array('sub0' => 2, 'sub1' => 1));

        $this->assertMatchesRegularExpression('/Dog -> \w+; Frog -> \w+/', $summary);

    }

}