Enhanced PHP File Manager

⬆️ Go Up (..)

📊 Server Information

Server:

Apache

System:

Linux 5.14.0-427.33.1.el9_4.x86_64

PHP Version:

7.4.33

User:

infinio

Directory:

/home/infinio/public_html/moodle/question/tests

Free Space:

54.45 GB

🔧 Quick Actions

✏️ Editing: importexport_test.php

<?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    core_question
 * @category   test
 * @copyright  2009 The Open University
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

namespace core_question;

use qformat_default;

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 importexport_test extends \advanced_testcase {
 public function test_assemble_category_path() {
 $format = new testable_qformat();
 $pathsections = [
 '$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<//span> 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/Matematically<//span> 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',
 'Matematically Matematiskt (svenska)'
 ], $format->split_category_path($path));
 }

public function test_split_category_path_cleans() {
 $format = new testable_qformat();
 $path = '<evil>Nasty <virus //> thing<//evil>';
 $this->assertEquals(['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 <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 = '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 <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 = 'A' .
 'B' .
 'C' .
 'D' .
 'E' .
 'F' .
 'G' .
 'H' .
 'I' .
 'J';
 $this->assertEquals(shorten_text($text, 1), $format->create_default_question_name($text, 'Default'));
 }
}

❌ Cancel

🗂️ Enhanced PHP File Manager

📊 Server Information

🔧 Quick Actions

✏️ Editing: importexport_test.php

📤 Upload File

📁 Create Folder

📄 Create File

✏️ Rename Item

🗑️ Delete Confirmation