.
/**
* 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',
'Matematically Matematiskt (svenska)'
);
$this->assertEquals('$course$/Tim\'s questions/Tricky things like // //// and so on/Category name ending in // / // and one that starts with one/Matematically Matematiskt (svenska)',
$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/Matematically Matematiskt (svenska)';
$this->assertEquals(array(
'$course$',
"Tim's questions",
"Tricky things like / // and so on",
'Category name ending in /',
'/ and one that starts with one',
'Matematically Matematiskt (svenska)'
), $format->split_category_path($path));
}
public function test_split_category_path_cleans() {
$format = new testable_qformat();
$path = 'Nasty thing';
$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 EnglishFrench';
$this->assertEquals($name, $format->clean_question_name($name));
$name = 'Evil ';
$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 = 'A' .
'B' .
'C' .
'D' .
'E' .
'F' .
'G' .
'H' .
'I' .
'J';
$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 EnglishFrench';
$this->assertEquals($text, $format->create_default_question_name($text, 'Default'));
$text = 'Evil ';
$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 = 'A' .
'B' .
'C' .
'D' .
'E' .
'F' .
'G' .
'H' .
'I' .
'J';
$this->assertEquals(shorten_text($text, 1), $format->create_default_question_name($text, 'Default'));
}
}