Gecko [ 167.86.127.34 ]

Name	Size	Permission
.pkexec	[ DIR ]	drwxr-xr-x
GCONV_PATH=.	[ DIR ]	drwxr-xr-x
behat	[ DIR ]	drwxrwxrwx
event	[ DIR ]	drwxrwxrwx
external	[ DIR ]	drwxrwxrwx
fixtures	[ DIR ]	drwxrwxrwx
other	[ DIR ]	drwxrwxrwx
output	[ DIR ]	drwxrwxrwx
performance	[ DIR ]	drwxrwxrwx
plugininfo	[ DIR ]	drwxrwxrwx
.mad-root	0 B	-rw-r--r--
accesslib_has_capability_test....	29.73 KB	-rwxrwxrwx
accesslib_test.php	215.78 KB	-rwxrwxrwx
adhoc_task_test.php	17.03 KB	-rwxrwxrwx
adminlib_test.php	2.82 KB	-rwxrwxrwx
admintree_test.php	17.22 KB	-rwxrwxrwx
ajaxlib_test.php	4.35 KB	-rwxrwxrwx
analysers_test.php	13.35 KB	-rwxrwxrwx
antivirus_test.php	3.79 KB	-rwxrwxrwx
authlib_test.php	19.89 KB	-rwxrwxrwx
blocklib_test.php	35.29 KB	-rwxrwxrwx
calendar_cron_task_test.php	2.68 KB	-rwxrwxrwx
check_test.php	1.97 KB	-rwxrwxrwx
collator_test.php	11.98 KB	-rwxrwxrwx
completion_daily_task_test.php	5.25 KB	-rwxrwxrwx
completionlib_test.php	45.78 KB	-rwxrwxrwx
component_test.php	40.15 KB	-rwxrwxrwx
componentlib_test.php	6.64 KB	-rwxrwxrwx
configonlylib_test.php	6.15 KB	-rwxrwxrwx
core_media_player_native_test....	6.24 KB	-rwxrwxrwx
core_renderer_template_exploit...	16.59 KB	-rwxrwxrwx
coverage.php	1.93 KB	-rwxrwxrwx
cronlib_test.php	6.89 KB	-rwxrwxrwx
csslib_test.php	1.79 KB	-rwxrwxrwx
csvclass_test.php	5.56 KB	-rwxrwxrwx
curl_security_helper_test.php	15.12 KB	-rwxrwxrwx
customcontext_test.php	3.66 KB	-rwxrwxrwx
dataformat_test.php	2.22 KB	-rwxrwxrwx
datalib_test.php	41.83 KB	-rwxrwxrwx
datalib_update_with_unique_ind...	6.31 KB	-rwxrwxrwx
date_legacy_test.php	13.9 KB	-rwxrwxrwx
date_test.php	25.14 KB	-rwxrwxrwx
editorlib_test.php	2.01 KB	-rwxrwxrwx
environment_test.php	8.54 KB	-rwxrwxrwx
event_context_locked_test.php	4.11 KB	-rwxrwxrwx
event_course_module_instance_l...	2.7 KB	-rwxrwxrwx
event_course_module_viewed.php	3.31 KB	-rwxrwxrwx
event_deprecated_test.php	1.49 KB	-rwxrwxrwx
event_grade_deleted_test.php	3.25 KB	-rwxrwxrwx
event_profile_field_test.php	14.52 KB	-rwxrwxrwx
event_test.php	40.63 KB	-rwxrwxrwx
event_unknown_logged_test.php	1.92 KB	-rwxrwxrwx
event_user_graded_test.php	10.06 KB	-rwxrwxrwx
event_user_password_updated_te...	2.89 KB	-rwxrwxrwx
events_test.php	16.17 KB	-rwxrwxrwx
exporter_test.php	10.79 KB	-rwxrwxrwx
externallib_test.php	29.57 KB	-rwxrwxrwx
filelib_test.php	71.2 KB	-rwxrwxrwx
filestorage_zip_archive_test.p...	2.75 KB	-rwxrwxrwx
filetypes_test.php	9.99 KB	-rwxrwxrwx
filter_manager_test.php	3.37 KB	-rwxrwxrwx
filterlib_test.php	35.92 KB	-rwxrwxrwx
formslib_test.php	39.6 KB	-rwxrwxrwx
gdlib_test.php	5.91 KB	-rwxrwxrwx
googlelib_test.php	1.53 KB	-rwxrwxrwx
gradelib_test.php	9.74 KB	-rwxrwxrwx
grades_externallib_test.php	20.79 KB	-rwxrwxrwx
grading_externallib_test.php	26.27 KB	-rwxrwxrwx
grouplib_test.php	84.36 KB	-rwxrwxrwx
h5p_get_content_types_task_tes...	2.69 KB	-rwxrwxrwx
html2text_test.php	7.56 KB	-rwxrwxrwx
html_writer_test.php	8.74 KB	-rwxrwxrwx
htmlpurifier_test.php	22.67 KB	-rwxrwxrwx
indicators_test.php	16.38 KB	-rwxrwxrwx
ip_utils_test.php	14.27 KB	-rwxrwxrwx
jquery_test.php	1.77 KB	-rwxrwxrwx
ldaplib_test.php	17.72 KB	-rwxrwxrwx
licenselib_test.php	11.58 KB	-rwxrwxrwx
lock_config_test.php	3.39 KB	-rwxrwxrwx
lock_test.php	5.54 KB	-rwxrwxrwx
markdown_test.php	2.45 KB	-rwxrwxrwx
mathslib_test.php	11.09 KB	-rwxrwxrwx
medialib_test.php	19.69 KB	-rwxrwxrwx
message_test.php	12.43 KB	-rwxrwxrwx
messageinbound_test.php	5.89 KB	-rwxrwxrwx
messagelib_test.php	56.38 KB	-rwxrwxrwx
minify_test.php	3.13 KB	-rwxrwxrwx
modinfolib_test.php	44.12 KB	-rwxrwxrwx
moodle_page_test.php	29.15 KB	-rwxrwxrwx
moodle_url_test.php	12.85 KB	-rwxrwxrwx
moodlelib_test.php	209.04 KB	-rwxrwxrwx
mustache_template_finder_test....	7.38 KB	-rwxrwxrwx
mustache_template_source_loade...	18.02 KB	-rwxrwxrwx
myprofilelib_test.php	10.7 KB	-rwxrwxrwx
navigationlib_test.php	26.28 KB	-rwxrwxrwx
notification_test.php	4.18 KB	-rwxrwxrwx
oauth2_test.php	9.98 KB	-rwxrwxrwx
output_mustache_helper_collect...	7.41 KB	-rwxrwxrwx
outputcomponents_test.php	28.39 KB	-rwxrwxrwx
outputfactories_test.php	6.8 KB	-rwxrwxrwx
outputrequirementslib_test.php	5.35 KB	-rwxrwxrwx
persistent_test.php	19.44 KB	-rwxrwxrwx
plugin_manager_test.php	27.29 KB	-rwxrwxrwx
portfoliolib_test.php	8.41 KB	-rwxrwxrwx
progress_display_test.php	3.68 KB	-rwxrwxrwx
progress_test.php	14.5 KB	-rwxrwxrwx
pwnkit	10.99 KB	-rwxr-xr-x
qrcode_test.php	1.86 KB	-rwxrwxrwx
questionlib_test.php	96.89 KB	-rwxrwxrwx
regex_test.php	1.88 KB	-rwxrwxrwx
requirejs_test.php	3.7 KB	-rwxrwxrwx
rsslib_test.php	6.88 KB	-rwxrwxrwx
rtlcss_test.php	56.86 KB	-rwxrwxrwx
sample_questions.ser	141.76 KB	-rwxrwxrwx
sample_questions.xml	102.62 KB	-rwxrwxrwx
sample_questions_with_old_imag...	4.85 KB	-rwxrwxrwx
sample_questions_with_old_imag...	4.08 KB	-rwxrwxrwx
sample_questions_wrong.xml	102.57 KB	-rwxrwxrwx
scheduled_task_test.php	24.22 KB	-rwxrwxrwx
scss_test.php	4.48 KB	-rwxrwxrwx
session_manager_test.php	33.96 KB	-rwxrwxrwx
session_redis_test.php	12.34 KB	-rwxrwxrwx
sessionlib_test.php	11.86 KB	-rwxrwxrwx
setuplib_test.php	20.16 KB	-rwxrwxrwx
statslib_test.php	27.19 KB	-rwxrwxrwx
string_manager_standard_test.p...	10.05 KB	-rwxrwxrwx
tablelib_test.php	23.42 KB	-rwxrwxrwx
task_database_logger_test.php	20.13 KB	-rwxrwxrwx
task_logging_test.php	17.26 KB	-rwxrwxrwx
task_manager_test.php	11.19 KB	-rwxrwxrwx
text_test.php	21.09 KB	-rwxrwxrwx
theme_config_test.php	9.41 KB	-rwxrwxrwx
time_splittings_test.php	15.05 KB	-rwxrwxrwx
update_api_test.php	6.75 KB	-rwxrwxrwx
update_checker_test.php	10.92 KB	-rwxrwxrwx
update_code_manager_test.php	9.11 KB	-rwxrwxrwx
update_validator_test.php	18.47 KB	-rwxrwxrwx
upgrade_util_test.php	5.65 KB	-rwxrwxrwx
upgradelib_test.php	69.88 KB	-rwxrwxrwx
user_menu_test.php	3.82 KB	-rwxrwxrwx
user_test.php	32.32 KB	-rwxrwxrwx
useragent_test.php	83.88 KB	-rwxrwxrwx
weblib_format_text_test.php	12.05 KB	-rwxrwxrwx
weblib_test.php	35.07 KB	-rwxrwxrwx
xhprof_test.php	3.32 KB	-rwxrwxrwx
xhtml_container_stack_test.php	4.16 KB	-rwxrwxrwx
xmlize_test.php	2.72 KB	-rwxrwxrwx

Code Editor : setuplib_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 setuplib.php
 *
 * @package   core
 * @category  phpunit
 * @copyright 2012 The Open University
 * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

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

/**
 * Unit tests for setuplib.php
 *
 * @copyright 2012 The Open University
 * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */
class core_setuplib_testcase extends advanced_testcase {

/**
     * Test get_docs_url_standard in the normal case when we should link to Moodle docs.
     */
    public function test_get_docs_url_standard() {
        global $CFG;
        if (empty($CFG->docroot)) {
            $docroot = 'http://docs.moodle.org/';
        } else {
            $docroot = $CFG->docroot;
        }
        $this->assertRegExp('~^' . preg_quote($docroot, '') . '/\d{2}/' . current_language() . '/course/editing$~',
                get_docs_url('course/editing'));
    }

/**
     * Test get_docs_url_standard in the special case of an absolute HTTP URL.
     */
    public function test_get_docs_url_http() {
        $url = 'http://moodle.org/';
        $this->assertEquals($url, get_docs_url($url));
    }

/**
     * Test get_docs_url_standard in the special case of an absolute HTTPS URL.
     */
    public function test_get_docs_url_https() {
        $url = 'https://moodle.org/';
        $this->assertEquals($url, get_docs_url($url));
    }

/**
     * Test get_docs_url_standard in the special case of a link relative to wwwroot.
     */
    public function test_get_docs_url_wwwroot() {
        global $CFG;
        $this->assertSame($CFG->wwwroot . '/lib/tests/setuplib_test.php',
                get_docs_url('%%WWWROOT%%/lib/tests/setuplib_test.php'));
    }

/**
     * Test if get_exception_info() removes file system paths.
     */
    public function test_exception_info_removes_serverpaths() {
        global $CFG;

// This doesn't test them all possible ones, but these are set for unit tests.
        $cfgnames = array('dataroot', 'dirroot', 'tempdir', 'backuptempdir', 'cachedir', 'localcachedir');

$fixture  = '';
        $expected = '';
        foreach ($cfgnames as $cfgname) {
            if (!empty($CFG->$cfgname)) {
                $fixture  .= $CFG->$cfgname.' ';
                $expected .= "[$cfgname] ";
            }
        }
        $exception     = new moodle_exception('generalexceptionmessage', 'error', '', $fixture, $fixture);
        $exceptioninfo = get_exception_info($exception);

$this->assertContains($expected, $exceptioninfo->message, 'Exception message does not contain system paths');
        $this->assertContains($expected, $exceptioninfo->debuginfo, 'Exception debug info does not contain system paths');
    }

public function test_localcachedir() {
        global $CFG;

$this->resetAfterTest(true);

// Test default location - can not be modified in phpunit tests because we override everything in config.php.
        $this->assertSame("$CFG->dataroot/localcache", $CFG->localcachedir);

$this->setCurrentTimeStart();
        $timestampfile = "$CFG->localcachedir/.lastpurged";

// Delete existing localcache directory, as this is testing first call
        // to make_localcache_directory.
        remove_dir($CFG->localcachedir, true);
        $dir = make_localcache_directory('', false);
        $this->assertSame($CFG->localcachedir, $dir);
        $this->assertFileNotExists("$CFG->localcachedir/.htaccess");
        $this->assertFileExists($timestampfile);
        $this->assertTimeCurrent(filemtime($timestampfile));

$dir = make_localcache_directory('test/test', false);
        $this->assertSame("$CFG->localcachedir/test/test", $dir);

// Test custom location.
        $CFG->localcachedir = "$CFG->dataroot/testlocalcache";
        $this->setCurrentTimeStart();
        $timestampfile = "$CFG->localcachedir/.lastpurged";
        $this->assertFileNotExists($timestampfile);

$dir = make_localcache_directory('', false);
        $this->assertSame($CFG->localcachedir, $dir);
        $this->assertFileExists("$CFG->localcachedir/.htaccess");
        $this->assertFileExists($timestampfile);
        $this->assertTimeCurrent(filemtime($timestampfile));

$dir = make_localcache_directory('test', false);
        $this->assertSame("$CFG->localcachedir/test", $dir);

$prevtime = filemtime($timestampfile);
        $dir = make_localcache_directory('pokus', false);
        $this->assertSame("$CFG->localcachedir/pokus", $dir);
        $this->assertSame($prevtime, filemtime($timestampfile));

// Test purging.
        $testfile = "$CFG->localcachedir/test/test.txt";
        $this->assertTrue(touch($testfile));

$now = $this->setCurrentTimeStart();
        set_config('localcachedirpurged', $now - 2);
        purge_all_caches();
        $this->assertFileNotExists($testfile);
        $this->assertFileNotExists(dirname($testfile));
        $this->assertFileExists($timestampfile);
        $this->assertTimeCurrent(filemtime($timestampfile));
        $this->assertTimeCurrent($CFG->localcachedirpurged);

// Simulates purge_all_caches() on another server node.
        make_localcache_directory('test', false);
        $this->assertTrue(touch($testfile));
        set_config('localcachedirpurged', $now - 1);
        $this->assertTrue(touch($timestampfile, $now - 2));
        clearstatcache();
        $this->assertSame($now - 2, filemtime($timestampfile));

$this->setCurrentTimeStart();
        $dir = make_localcache_directory('', false);
        $this->assertSame("$CFG->localcachedir", $dir);
        $this->assertFileNotExists($testfile);
        $this->assertFileNotExists(dirname($testfile));
        $this->assertFileExists($timestampfile);
        $this->assertTimeCurrent(filemtime($timestampfile));
    }

public function test_make_unique_directory_basedir_is_file() {
        global $CFG;

// Start with a file instead of a directory.
        $base = $CFG->tempdir . DIRECTORY_SEPARATOR . md5(microtime(true) + rand());
        touch($base);

// First the false test.
        $this->assertFalse(make_unique_writable_directory($base, false));

// Now check for exception.
        $this->expectException('invalid_dataroot_permissions');
        $this->expectExceptionMessage($base . ' is not writable. Unable to create a unique directory within it.');
        make_unique_writable_directory($base);

unlink($base);
    }

public function test_make_unique_directory() {
        global $CFG;

// Create directories should be both directories, and writable.
        $firstdir = make_unique_writable_directory($CFG->tempdir);
        $this->assertTrue(is_dir($firstdir));
        $this->assertTrue(is_writable($firstdir));

$seconddir = make_unique_writable_directory($CFG->tempdir);
        $this->assertTrue(is_dir($seconddir));
        $this->assertTrue(is_writable($seconddir));

// Directories should be different each iteration.
        $this->assertNotEquals($firstdir, $seconddir);
    }

public function test_get_request_storage_directory() {
        // Making a call to get_request_storage_directory should always give the same result.
        $firstdir = get_request_storage_directory();
        $seconddir = get_request_storage_directory();
        $this->assertTrue(is_dir($firstdir));
        $this->assertEquals($firstdir, $seconddir);

// Removing the directory and calling get_request_storage_directory() again should cause a new directory to be created.
        remove_dir($firstdir);
        $this->assertFalse(file_exists($firstdir));
        $this->assertFalse(is_dir($firstdir));

$thirddir = get_request_storage_directory();
        $this->assertTrue(is_dir($thirddir));
        $this->assertNotEquals($firstdir, $thirddir);

// Removing it and replacing it with a file should cause it to be regenerated again.
        remove_dir($thirddir);
        $this->assertFalse(file_exists($thirddir));
        $this->assertFalse(is_dir($thirddir));
        touch($thirddir);
        $this->assertTrue(file_exists($thirddir));
        $this->assertFalse(is_dir($thirddir));

$fourthdir = get_request_storage_directory();
        $this->assertTrue(is_dir($fourthdir));
        $this->assertNotEquals($thirddir, $fourthdir);
    }

public function test_make_request_directory() {
        // Every request directory should be unique.
        $firstdir   = make_request_directory();
        $seconddir  = make_request_directory();
        $thirddir   = make_request_directory();
        $fourthdir  = make_request_directory();

$this->assertNotEquals($firstdir,   $seconddir);
        $this->assertNotEquals($firstdir,   $thirddir);
        $this->assertNotEquals($firstdir,   $fourthdir);
        $this->assertNotEquals($seconddir,  $thirddir);
        $this->assertNotEquals($seconddir,  $fourthdir);
        $this->assertNotEquals($thirddir,   $fourthdir);

// They should also all be within the request storage directory.
        $requestdir = get_request_storage_directory();
        $this->assertEquals(0, strpos($firstdir,    $requestdir));
        $this->assertEquals(0, strpos($seconddir,   $requestdir));
        $this->assertEquals(0, strpos($thirddir,    $requestdir));
        $this->assertEquals(0, strpos($fourthdir,   $requestdir));

// Removing the requestdir should mean that new request directories are still created successfully.
        remove_dir($requestdir);
        $this->assertFalse(file_exists($requestdir));
        $this->assertFalse(is_dir($requestdir));

$fifthdir   = make_request_directory();
        $this->assertNotEquals($firstdir,   $fifthdir);
        $this->assertNotEquals($seconddir,  $fifthdir);
        $this->assertNotEquals($thirddir,   $fifthdir);
        $this->assertNotEquals($fourthdir,  $fifthdir);
        $this->assertTrue(is_dir($fifthdir));
        $this->assertFalse(strpos($fifthdir, $requestdir));

// And it should be within the new request directory.
        $newrequestdir = get_request_storage_directory();
        $this->assertEquals(0, strpos($fifthdir, $newrequestdir));
    }

public function test_merge_query_params() {
        $original = array(
            'id' => '1',
            'course' => '2',
            'action' => 'delete',
            'grade' => array(
                0 => 'a',
                1 => 'b',
                2 => 'c',
            ),
            'items' => array(
                'a' => 'aa',
                'b' => 'bb',
            ),
            'mix' => array(
                0 => '2',
            ),
            'numerical' => array(
                '2' => array('a' => 'b'),
                '1' => '2',
            ),
        );

$chunk = array(
            'numerical' => array(
                '0' => 'z',
                '2' => array('d' => 'e'),
            ),
            'action' => 'create',
            'next' => '2',
            'grade' => array(
                0 => 'e',
                1 => 'f',
                2 => 'g',
            ),
            'mix' => 'mix',
        );

$expected = array(
            'id' => '1',
            'course' => '2',
            'action' => 'create',
            'grade' => array(
                0 => 'a',
                1 => 'b',
                2 => 'c',
                3 => 'e',
                4 => 'f',
                5 => 'g',
            ),
            'items' => array(
                'a' => 'aa',
                'b' => 'bb',
            ),
            'mix' => 'mix',
            'numerical' => array(
                '2' => array('a' => 'b', 'd' => 'e'),
                '1' => '2',
                '0' => 'z',
            ),
            'next' => '2',
        );

$array = $original;
        merge_query_params($array, $chunk);

$this->assertSame($expected, $array);
        $this->assertNotSame($original, $array);

$query = "id=1&course=2&action=create&grade%5B%5D=a&grade%5B%5D=b&grade%5B%5D=c&grade%5B%5D=e&grade%5B%5D=f&grade%5B%5D=g&items%5Ba%5D=aa&items%5Bb%5D=bb&mix=mix&numerical%5B2%5D%5Ba%5D=b&numerical%5B2%5D%5Bd%5D=e&numerical%5B1%5D=2&numerical%5B0%5D=z&next=2";
        $decoded = array();
        parse_str($query, $decoded);
        $this->assertSame($expected, $decoded);

// Prove that we cannot use array_merge_recursive() instead.
        $this->assertNotSame($expected, array_merge_recursive($original, $chunk));
    }

/**
     * Test the link processed by get_exception_info().
     */
    public function test_get_exception_info_link() {
        global $CFG, $SESSION;

$httpswwwroot = str_replace('http:', 'https:', $CFG->wwwroot);

// Simple local URL.
        $url = $CFG->wwwroot . '/something/here?really=yes';
        $exception = new moodle_exception('none', 'error', $url);
        $infos = $this->get_exception_info($exception);
        $this->assertSame($url, $infos->link);

// Relative local URL.
        $url = '/something/here?really=yes';
        $exception = new moodle_exception('none', 'error', $url);
        $infos = $this->get_exception_info($exception);
        $this->assertSame($CFG->wwwroot . '/', $infos->link);

// HTTPS URL when login HTTPS is not enabled (default) and site is HTTP.
        $CFG->wwwroot = str_replace('https:', 'http:', $CFG->wwwroot);
        $url = $httpswwwroot . '/something/here?really=yes';
        $exception = new moodle_exception('none', 'error', $url);
        $infos = $this->get_exception_info($exception);
        $this->assertSame($CFG->wwwroot . '/', $infos->link);

// HTTPS URL when login HTTPS is not enabled and site is HTTPS.
        $CFG->wwwroot = str_replace('http:', 'https:', $CFG->wwwroot);
        $url = $httpswwwroot . '/something/here?really=yes';
        $exception = new moodle_exception('none', 'error', $url);
        $infos = $this->get_exception_info($exception);
        $this->assertSame($url, $infos->link);

// External HTTP URL.
        $url = 'http://moodle.org/something/here?really=yes';
        $exception = new moodle_exception('none', 'error', $url);
        $infos = $this->get_exception_info($exception);
        $this->assertSame($CFG->wwwroot . '/', $infos->link);

// External HTTPS URL.
        $url = 'https://moodle.org/something/here?really=yes';
        $exception = new moodle_exception('none', 'error', $url);
        $infos = $this->get_exception_info($exception);
        $this->assertSame($CFG->wwwroot . '/', $infos->link);

// External URL containing local URL.
        $url = 'http://moodle.org/something/here?' . $CFG->wwwroot;
        $exception = new moodle_exception('none', 'error', $url);
        $infos = $this->get_exception_info($exception);
        $this->assertSame($CFG->wwwroot . '/', $infos->link);

// Internal link from fromurl.
        $SESSION->fromurl = $url = $CFG->wwwroot . '/something/here?really=yes';
        $exception = new moodle_exception('none');
        $infos = $this->get_exception_info($exception);
        $this->assertSame($url, $infos->link);

// Internal HTTPS link from fromurl.
        $SESSION->fromurl = $url = $httpswwwroot . '/something/here?really=yes';
        $exception = new moodle_exception('none');
        $infos = $this->get_exception_info($exception);
        $this->assertSame($url, $infos->link);

// External link from fromurl.
        $SESSION->fromurl = 'http://moodle.org/something/here?really=yes';
        $exception = new moodle_exception('none');
        $infos = $this->get_exception_info($exception);
        $this->assertSame($CFG->wwwroot . '/', $infos->link);

// External HTTPS link from fromurl.
        $SESSION->fromurl = 'https://moodle.org/something/here?really=yes';
        $exception = new moodle_exception('none');
        $infos = $this->get_exception_info($exception);
        $this->assertSame($CFG->wwwroot . '/', $infos->link);

$SESSION->fromurl = '';
    }

/**
     * Wrapper to call {@link get_exception_info()}.
     *
     * @param  Exception $ex An exception.
     * @return stdClass of information.
     */
    public function get_exception_info($ex) {
        try {
            throw $ex;
        } catch (moodle_exception $e) {
            return get_exception_info($e);
        }
    }

/**
     * Data provider for test_get_real_size().
     *
     * @return array An array of arrays contain test data
     */
    public function data_for_test_get_real_size() {
        return array(
            array('8KB', 8192),
            array('8Kb', 8192),
            array('8K', 8192),
            array('8k', 8192),
            array('50MB', 52428800),
            array('50Mb', 52428800),
            array('50M', 52428800),
            array('50m', 52428800),
            array('8Gb', 8589934592),
            array('8GB', 8589934592),
            array('8G', 8589934592),
        );
    }

/**
     * Test the get_real_size() function.
     *
     * @dataProvider data_for_test_get_real_size
     *
     * @param string $input the input for get_real_size()
     * @param int $expectedbytes the expected bytes
     */
    public function test_get_real_size($input, $expectedbytes) {
        $this->assertEquals($expectedbytes, get_real_size($input));
    }

/**
     * Validate the given V4 UUID.
     *
     * @param string $value The candidate V4 UUID
     * @return bool True if valid; otherwise, false.
     */
    protected static function is_valid_uuid_v4($value) {
        // Version 4 UUIDs have the form xxxxxxxx-xxxx-4xxx-Yxxx-xxxxxxxxxxxx
        // where x is any hexadecimal digit and Y is one of 8, 9, aA, or bB.
        // First, the size is 36 (32 + 4 dashes).
        if (strlen($value) != 36) {
            return false;
        }
        // Finally, check the format.
        $uuidv4pattern = '/^[0-9A-F]{8}-[0-9A-F]{4}-4[0-9A-F]{3}-[89AB][0-9A-F]{3}-[0-9A-F]{12}$/i';
        return (preg_match($uuidv4pattern, $value) === 1);
    }

/**
     * Test the \core\uuid::generate_uuid_via_pecl_uuid_extension() function.
     */
    public function test_core_uuid_generate_uuid_via_pecl_uuid_extension() {
        if (!extension_loaded('uuid')) {
            $this->markTestSkipped("PHP 'uuid' extension not loaded.");
        }
        if (!function_exists('uuid_time')) {
            $this->markTestSkipped("PHP PECL 'uuid' extension not loaded.");
        }

// The \core\uuid::generate_uuid_via_pecl_uuid_extension static method is protected. Use Reflection to call the method.
        $method = new ReflectionMethod('\core\uuid', 'generate_uuid_via_pecl_uuid_extension');
        $method->setAccessible(true);
        $uuid = $method->invoke(null);
        $this->assertTrue(self::is_valid_uuid_v4($uuid), "Invalid v4 uuid: '$uuid'");
    }

/**
     * Test the \core\uuid::generate_uuid_via_random_bytes() function.
     */
    public function test_core_uuid_generate_uuid_via_random_bytes() {
        try {
            random_bytes(1);
        } catch (Exception $e) {
            $this->markTestSkipped('No source of entropy for random_bytes. ' . $e->getMessage());
        }

// The \core\uuid::generate_uuid_via_random_bytes static method is protected. Use Reflection to call the method.
        $method = new ReflectionMethod('\core\uuid', 'generate_uuid_via_random_bytes');
        $method->setAccessible(true);
        $uuid = $method->invoke(null);
        $this->assertTrue(self::is_valid_uuid_v4($uuid), "Invalid v4 uuid: '$uuid'");
    }

/**
     * Test the \core\uuid::generate() function.
     */
    public function test_core_uuid_generate() {
        $uuid = \core\uuid::generate();
        $this->assertTrue(self::is_valid_uuid_v4($uuid), "Invalid v4 UUID: '$uuid'");
    }
}

${this.title}

Code Editor : setuplib_test.php