You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
158 lines
7.5 KiB
158 lines
7.5 KiB
2 years ago
|
<?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 question import and export system.
|
||
|
|
*
|
||
|
|
* @package moodlecore
|
||
|
|
* @subpackage questionbank
|
||
|
|
* @copyright 2009 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->libdir . '/questionlib.php');
|
||
|
|
require_once($CFG->dirroot . '/question/format.php');
|
||
|
|
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Subclass to make it easier to test qformat_default.
|
||
|
|
*
|
||
|
|
* @copyright 2009 The Open University
|
||
|
|
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
|
||
|
|
*/
|
||
|
|
class testable_qformat extends qformat_default {
|
||
|
|
public function assemble_category_path($names) {
|
||
|
|
return parent::assemble_category_path($names);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function split_category_path($names) {
|
||
|
|
return parent::split_category_path($names);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Unit tests for the matching question definition class.
|
||
|
|
*
|
||
|
|
* @copyright 2009 The Open University
|
||
|
|
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
|
||
|
|
*/
|
||
|
|
class qformat_default_test extends advanced_testcase {
|
||
|
|
public function test_assemble_category_path() {
|
||
|
|
$format = new testable_qformat();
|
||
|
|
$pathsections = array(
|
||
|
|
'$course$',
|
||
|
|
"Tim's questions",
|
||
|
|
"Tricky things like / // and so on",
|
||
|
|
'Category name ending in /',
|
||
|
|
'/ and one that starts with one',
|
||
|
|
'<span lang="en" class="multilang">Matematically</span> <span lang="sv" class="multilang">Matematiskt (svenska)</span>'
|
||
|
|
);
|
||
|
|
$this->assertEquals('$course$/Tim\'s questions/Tricky things like // //// and so on/Category name ending in // / // and one that starts with one/<span lang="en" class="multilang">Matematically<//span> <span lang="sv" class="multilang">Matematiskt (svenska)<//span>',
|
||
|
|
$format->assemble_category_path($pathsections));
|
||
|
|
}
|
||
|
|
|
||
|
|
public function test_split_category_path() {
|
||
|
|
$format = new testable_qformat();
|
||
|
|
$path = '$course$/Tim\'s questions/Tricky things like // //// and so on/Category name ending in // / // and one that starts with one/<span lang="en" class="multilang">Matematically<//span> <span lang="sv" class="multilang">Matematiskt (svenska)<//span>';
|
||
|
|
$this->assertEquals(array(
|
||
|
|
'$course$',
|
||
|
|
"Tim's questions",
|
||
|
|
"Tricky things like / // and so on",
|
||
|
|
'Category name ending in /',
|
||
|
|
'/ and one that starts with one',
|
||
|
|
'<span lang="en" class="multilang">Matematically</span> <span lang="sv" class="multilang">Matematiskt (svenska)</span>'
|
||
|
|
), $format->split_category_path($path));
|
||
|
|
}
|
||
|
|
|
||
|
|
public function test_split_category_path_cleans() {
|
||
|
|
$format = new testable_qformat();
|
||
|
|
$path = '<evil>Nasty <virus //> thing<//evil>';
|
||
|
|
$this->assertEquals(array('Nasty thing'), $format->split_category_path($path));
|
||
|
|
}
|
||
|
|
|
||
|
|
public function test_clean_question_name() {
|
||
|
|
$format = new testable_qformat();
|
||
|
|
|
||
|
|
$name = 'Nice simple name';
|
||
|
|
$this->assertEquals($name, $format->clean_question_name($name));
|
||
|
|
|
||
|
|
$name = 'Question in <span lang="en" class="multilang">English</span><span lang="fr" class="multilang">French</span>';
|
||
|
|
$this->assertEquals($name, $format->clean_question_name($name));
|
||
|
|
|
||
|
|
$name = 'Evil <script type="text/javascrip">alert("You have been hacked!");</script>';
|
||
|
|
$this->assertEquals('Evil alert("You have been hacked!");', $format->clean_question_name($name));
|
||
|
|
|
||
|
|
$name = 'This is a very long question name. It goes on and on and on. ' .
|
||
|
|
'I wonder if it will ever stop. The quetsion name field in the database is only ' .
|
||
|
|
'two hundred and fifty five characters wide, so if the import file contains a ' .
|
||
|
|
'name longer than that, the code had better truncate it!';
|
||
|
|
$this->assertEquals(shorten_text($name, 251), $format->clean_question_name($name));
|
||
|
|
|
||
|
|
// The worst case scenario is a whole lot of single charaters in separate multilang tags.
|
||
|
|
$name = '<span lang="en" class="multilang">A</span>' .
|
||
|
|
'<span lang="fr" class="multilang">B</span>' .
|
||
|
|
'<span lang="fr_ca" class="multilang">C</span>' .
|
||
|
|
'<span lang="en_us" class="multilang">D</span>' .
|
||
|
|
'<span lang="de" class="multilang">E</span>' .
|
||
|
|
'<span lang="cz" class="multilang">F</span>' .
|
||
|
|
'<span lang="it" class="multilang">G</span>' .
|
||
|
|
'<span lang="es" class="multilang">H</span>' .
|
||
|
|
'<span lang="pt" class="multilang">I</span>' .
|
||
|
|
'<span lang="ch" class="multilang">J</span>';
|
||
|
|
$this->assertEquals(shorten_text($name, 1), $format->clean_question_name($name));
|
||
|
|
}
|
||
|
|
|
||
|
|
public function test_create_default_question_name() {
|
||
|
|
$format = new testable_qformat();
|
||
|
|
|
||
|
|
$text = 'Nice simple name';
|
||
|
|
$this->assertEquals($text, $format->create_default_question_name($text, 'Default'));
|
||
|
|
|
||
|
|
$this->assertEquals('Default', $format->create_default_question_name('', 'Default'));
|
||
|
|
|
||
|
|
$text = 'Question in <span lang="en" class="multilang">English</span><span lang="fr" class="multilang">French</span>';
|
||
|
|
$this->assertEquals($text, $format->create_default_question_name($text, 'Default'));
|
||
|
|
|
||
|
|
$text = 'Evil <script type="text/javascrip">alert("You have been hacked!");</script>';
|
||
|
|
$this->assertEquals('Evil alert("You have been hacked!");',
|
||
|
|
$format->create_default_question_name($text, 'Default'));
|
||
|
|
|
||
|
|
$text = 'This is a very long question text. It goes on and on and on. ' .
|
||
|
|
'I wonder if it will ever stop. The question name field in the database is only ' .
|
||
|
|
'two hundred and fifty five characters wide, so if the import file contains a ' .
|
||
|
|
'name longer than that, the code had better truncate it!';
|
||
|
|
$this->assertEquals(shorten_text($text, 80), $format->create_default_question_name($text, 'Default'));
|
||
|
|
|
||
|
|
// The worst case scenario is a whole lot of single charaters in separate multilang tags.
|
||
|
|
$text = '<span lang="en" class="multilang">A</span>' .
|
||
|
|
'<span lang="fr" class="multilang">B</span>' .
|
||
|
|
'<span lang="fr_ca" class="multilang">C</span>' .
|
||
|
|
'<span lang="en_us" class="multilang">D</span>' .
|
||
|
|
'<span lang="de" class="multilang">E</span>' .
|
||
|
|
'<span lang="cz" class="multilang">F</span>' .
|
||
|
|
'<span lang="it" class="multilang">G</span>' .
|
||
|
|
'<span lang="es" class="multilang">H</span>' .
|
||
|
|
'<span lang="pt" class="multilang">I</span>' .
|
||
|
|
'<span lang="ch" class="multilang">J</span>';
|
||
|
|
$this->assertEquals(shorten_text($text, 1), $format->create_default_question_name($text, 'Default'));
|
||
|
|
}
|
||
|
|
}
|