File Manager

X7ROOT File Manager

Current Path: /home/cbholdings/pasukulu/lib/tests

home / cbholdings / pasukulu / lib / tests /

📁 ..
📄 accesslib_has_capability_test.php(29.72 KB)
📄 accesslib_test.php(240.86 KB)
📄 adminlib_test.php(4.29 KB)
📄 admintree_test.php(18.01 KB)
📄 ajaxlib_test.php(4.4 KB)
📄 analysers_test.php(12.79 KB)
📁 analytics
📄 antivirus_test.php(11.81 KB)
📄 authlib_test.php(19.04 KB)
📁 behat
📄 behat_lib_test.php(3.25 KB)
📄 blocklib_test.php(36.13 KB)
📄 check_test.php(1.77 KB)
📄 client_test.php(4.34 KB)
📄 collator_test.php(12.06 KB)
📄 completionlib_test.php(84.19 KB)
📄 component_test.php(44.1 KB)
📄 componentlib_test.php(6.91 KB)
📄 configonlylib_test.php(5.93 KB)
📁 content
📄 content_test.php(4.77 KB)
📁 context
📄 context_block_test.php(4.14 KB)
📄 context_helper_test.php(22.27 KB)
📄 context_test.php(3.38 KB)
📄 core_media_player_native_test.php(6.4 KB)
📄 core_renderer_template_exploit_test.php(16.56 KB)
📄 coverage.php(3.55 KB)
📄 cron_test.php(6.86 KB)
📄 csslib_test.php(1.56 KB)
📄 csvclass_test.php(5.62 KB)
📄 curl_security_helper_test.php(14.79 KB)
📄 customcontext_test.php(4.66 KB)
📄 dataformat_test.php(3.74 KB)
📄 datalib_test.php(48.36 KB)
📄 datalib_update_with_unique_index_test.php(6.06 KB)
📄 date_legacy_test.php(13.62 KB)
📄 date_test.php(25.77 KB)
📁 db
📄 editorlib_test.php(1.95 KB)
📄 encryption_test.php(8.68 KB)
📄 environment_test.php(8.49 KB)
📁 event
📄 event_course_module_instance_list_viewed.php(2.54 KB)
📄 event_course_module_viewed.php(3.14 KB)
📄 exporter_test.php(11.26 KB)
📁 external
📄 externallib_test.php(2.02 KB)
📄 filelib_test.php(77.16 KB)
📄 filestorage_zip_archive_test.php(2.55 KB)
📄 filetypes_test.php(10.06 KB)
📄 filter_manager_test.php(3.31 KB)
📄 filterlib_test.php(36.76 KB)
📁 fixtures
📄 formslib_test.php(39.94 KB)
📄 gdlib_test.php(5.68 KB)
📄 googlelib_test.php(1.6 KB)
📄 gradelib_test.php(11.96 KB)
📄 grades_external_test.php(15.04 KB)
📄 grading_external_test.php(26.33 KB)
📄 graphlib_test.php(4.61 KB)
📄 grouplib_test.php(109.11 KB)
📄 h5p_clean_orphaned_records_task_test.php(3.16 KB)
📄 html2text_test.php(7.54 KB)
📄 html_writer_test.php(9.65 KB)
📄 htmlpurifier_test.php(23.01 KB)
📄 http_client_test.php(14.94 KB)
📁 hub
📄 ip_utils_test.php(14.13 KB)
📄 jquery_test.php(1.58 KB)
📄 ldaplib_test.php(17.73 KB)
📄 licenselib_test.php(11.58 KB)
📁 lock
📄 lock_config_test.php(3.47 KB)
📄 lock_test.php(5.3 KB)
📄 markdown_test.php(2.24 KB)
📄 mathslib_test.php(13.42 KB)
📄 medialib_test.php(19.63 KB)
📄 message_test.php(12.25 KB)
📄 messageinbound_test.php(5.96 KB)
📄 messagelib_test.php(56.36 KB)
📄 minify_test.php(3.12 KB)
📄 modinfolib_test.php(54.43 KB)
📄 moodle_page_test.php(31.59 KB)
📄 moodle_url_test.php(15.64 KB)
📄 moodlelib_current_language_test.php(7.68 KB)
📄 moodlelib_test.php(237.46 KB)
📁 moodlenet
📄 myprofilelib_test.php(12.36 KB)
📁 navigation
📄 navigationlib_test.php(31.79 KB)
📄 notification_test.php(4.35 KB)
📁 oauth2
📄 oauth2_test.php(23.06 KB)
📁 other
📁 output
📄 outputcomponents_test.php(33.25 KB)
📄 outputfactories_test.php(6.78 KB)
📄 outputrenderers_test.php(1.62 KB)
📄 outputrequirementslib_test.php(16.29 KB)
📄 pdflib_test.php(3.18 KB)
📁 performance
📄 persistent_test.php(30.53 KB)
📄 phpxmlrpc_test.php(2.04 KB)
📄 plugin_manager_test.php(27.4 KB)
📁 plugininfo
📄 portfoliolib_test.php(8.4 KB)
📄 progress_display_test.php(3.75 KB)
📄 progress_test.php(14.48 KB)
📄 qrcode_test.php(1.68 KB)
📄 questionlib_test.php(100.67 KB)
📄 regex_test.php(1.55 KB)
📄 report_helper_test.php(2.62 KB)
📄 requirejs_test.php(2.22 KB)
📄 rsslib_test.php(7.35 KB)
📄 rtlcss_test.php(56.86 KB)
📄 sample_questions.ser(141.76 KB)
📄 sample_questions.xml(102.62 KB)
📄 sample_questions_with_old_image_tag.ser(4.85 KB)
📄 sample_questions_with_old_image_tag.xml(4.08 KB)
📄 sample_questions_wrong.xml(102.57 KB)
📄 scss_test.php(4.26 KB)
📄 session_manager_test.php(34.79 KB)
📄 session_redis_test.php(13.56 KB)
📄 sessionlib_test.php(12.32 KB)
📄 setuplib_test.php(20.17 KB)
📄 statslib_test.php(26.68 KB)
📄 string_manager_standard_test.php(10.18 KB)
📄 tablelib_test.php(25.12 KB)
📁 task
📄 text_test.php(26.53 KB)
📄 theme_config_test.php(9.94 KB)
📄 update_api_test.php(6.62 KB)
📄 update_checker_test.php(10.82 KB)
📄 update_code_manager_test.php(8.88 KB)
📄 update_validator_test.php(18.28 KB)
📄 upgrade_util_test.php(5.32 KB)
📄 upgradelib_test.php(69.6 KB)
📄 user_menu_test.php(3.75 KB)
📄 user_test.php(34.34 KB)
📄 useragent_test.php(83.82 KB)
📄 weblib_format_text_test.php(11.91 KB)
📄 weblib_test.php(43.44 KB)
📄 xhprof_test.php(3.14 KB)
📄 xhtml_container_stack_test.php(4.05 KB)
📄 xmlize_test.php(2.55 KB)

Editing: ip_utils_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/>.

namespace core;

/**
 * This tests the static helper functions contained in the class '\core\ip_utils'.
 *
 * @package    core
 * @covers     \core\ip_utils
 * @copyright  2016 Jake Dallimore <jrhdallimore@gmail.com>
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */
class ip_utils_test extends \basic_testcase {
    /**
     * Test for \core\ip_utils::is_domain_name().
     *
     * @param string $domainname the domain name to validate.
     * @param bool $expected the expected result.
     * @dataProvider domain_name_data_provider
     */
    public function test_is_domain_name($domainname, $expected) {
        $this->assertEquals($expected, \core\ip_utils::is_domain_name($domainname));
    }

/**
     * Data provider for test_is_domain_name().
     *
     * @return array
     */
    public function domain_name_data_provider() {
        return [
            ["com", true],
            ["i.net", true], // Single char, alpha tertiary domain.
            ["0.org", true], // Single char, non-alpha tertiary domain.
            ["0.a", true], // Single char, alpha top level domain.
            ["0.1", false], // Single char, non-alpha top level domain.
            ["example.com", true],
            ["sub.example.com", true],
            ["sub-domain.example-domain.net", true],
            ["123.com", true],
            ["123.a11", true],
            [str_repeat('sub.', 60) . "1-example.com", true], // Max length without null label is 253 octets = 253 ascii chars.
            [str_repeat('example', 9) . ".com", true], // Max number of octets per label is 63  = 63 ascii chars.
            ["localhost", true],
            [" example.com", false],
            ["example.com ", false],
            ["example.com/", false],
            ["*.example.com", false],
            ["*example.com", false],
            ["example.123", false],
            ["-example.com", false],
            ["example-.com", false],
            [".example.com", false],
            ["127.0.0.1", false],
            [str_repeat('sub.', 60) . "11-example.com", false], // Name length is 254 chars, which exceeds the max allowed.
            [str_repeat('example', 9) . "1.com", false], // Label length is 64 chars, which exceed the max allowed.
            ["example.com.", true], // Null label explicitly provided - this is valid.
            [".example.com.", false],
            ["見.香港", false], // IDNs are invalid.
            [null, false], // Non-strings are invalid.
        ];
    }

/**
     * Test for \core\ip_utils::is_domain_matching_pattern().
     *
     * @param string $str the string to evaluate.
     * @param bool $expected the expected result.
     * @dataProvider domain_matching_patterns_data_provider
     */
    public function test_is_domain_matching_pattern($str, $expected) {
        $this->assertEquals($expected, \core\ip_utils::is_domain_matching_pattern($str));
    }

/**
     * Data provider for test_is_domain_matching_pattern().
     *
     * @return array
     */
    public function domain_matching_patterns_data_provider() {
        return [
            ["*.com", true],
            ["*.example.com", true],
            ["*.example.com", true],
            ["*.sub.example.com", true],
            ["*.sub-domain.example-domain.com", true],
            ["*." . str_repeat('sub.', 60) . "example.com", true], // Max number of domain name chars = 253.
            ["*." . str_repeat('example', 9) . ".com", true], // Max number of domain name label chars = 63.
            ["*com", false],
            ["*example.com", false],
            [" *.example.com", false],
            ["*.example.com ", false],
            ["*-example.com", false],
            ["*.-example.com", false],
            ["*.example.com/", false],
            ["sub.*.example.com", false],
            ["sub.*example.com", false],
            ["*.*.example.com", false],
            ["example.com", false],
            ["*." . str_repeat('sub.', 60) . "1example.com", false], // Name length is 254 chars, which exceeds the max allowed.
            ["*." . str_repeat('example', 9) . "1.com", false], // Label length is 64 chars, which exceed the max allowed.
            ["*.example.com.", true], // Null label explicitly provided - this is valid.
            [".*.example.com.", false],
            ["*.香港", false], // IDNs are invalid.
            [null, false], // None-strings are invalid.
        ];
    }

/**
     * Test for \core\ip_utils::is_ip_address().
     *
     * @param string $address the address to validate.
     * @param bool $expected the expected result.
     * @dataProvider ip_address_data_provider
     */
    public function test_is_ip_address($address, $expected) {
        $this->assertEquals($expected, \core\ip_utils::is_ip_address($address));
    }

/**
     * Data provider for test_is_ip_address().
     *
     * @return array
     */
    public function ip_address_data_provider() {
        return [
            ["127.0.0.1", true],
            ["10.1", false],
            ["0.0.0.0", true],
            ["255.255.255.255", true],
            ["256.0.0.1", false],
            ["256.0.0.1", false],
            ["127.0.0.0/24", false],
            ["127.0.0.0-255", false],
            ["::", true],
            ["::0", true],
            ["0::", true],
            ["0::0", true],
            ["fe80:fe80:fe80:fe80:fe80:fe80:fe80:fe80", true],
            ["fe80::ffff", true],
            ["fe80::f", true],
            ["fe80::", true],
            ["0", false],
            ["127.0.0.0/24", false],
            ["fe80::fe80/128", false],
            ["fe80:fe80:fe80:fe80:fe80:fe80:fe80:fe80/128", false],
            ["fe80:", false],
            ["fe80:: ", false],
            [" fe80::", false],
            ["fe80::ddddd", false],
            ["fe80::gggg", false],
            ["fe80:fe80:fe80:fe80:fe80:fe80:fe80:fe80:fe80", false],
        ];
    }

/**
     * Test for \core\ip_utils::is_ipv4_address().
     *
     * @param string $address the address to validate.
     * @param bool $expected the expected result.
     * @dataProvider ipv4_address_data_provider
     */
    public function test_is_ipv4_address($address, $expected) {
        $this->assertEquals($expected, \core\ip_utils::is_ipv4_address($address));
    }

/**
     * Data provider for test_is_ipv4_address().
     *
     * @return array
     */
    public function ipv4_address_data_provider() {
        return [
            ["127.0.0.1", true],
            ["0.0.0.0", true],
            ["255.255.255.255", true],
            [" 127.0.0.1", false],
            ["127.0.0.1 ", false],
            ["-127.0.0.1", false],
            ["127.0.1", false],
            ["127.0.0.0.1", false],
            ["a.b.c.d", false],
            ["localhost", false],
            ["fe80::1", false],
            ["256.0.0.1", false],
            ["256.0.0.1", false],
            ["127.0.0.0/24", false],
            ["127.0.0.0-255", false],
        ];
    }

/**
     * Test for \core\ip_utils::is_ipv4_range().
     *
     * @param string $addressrange the address range to validate.
     * @param bool $expected the expected result.
     * @dataProvider ipv4_range_data_provider
     */
    public function test_is_ipv4_range($addressrange, $expected) {
        $this->assertEquals($expected, \core\ip_utils::is_ipv4_range($addressrange));
    }

/**
     * Data provider for test_is_ipv4_range().
     *
     * @return array
     */
    public function ipv4_range_data_provider() {
        return [
            ["127.0.0.1/24", true],
            ["127.0.0.20-20", true],
            ["127.0.0.20-50", true],
            ["127.0.0.0-255", true],
            ["127.0.0.1-1", true],
            ["255.255.255.0-255", true],
            ["127.0.0.1", false],
            ["127.0", false],
            [" 127.0.0.0/24", false],
            ["127.0.0.0/24 ", false],
            ["a.b.c.d/24", false],
            ["256.0.0.0-80", false],
            ["127.0.0.0/a", false],
            ["256.0.0.0/24", false],
            ["127.0.0.0/-1", false],
            ["127.0.0.0/33", false],
            ["127.0.0.0-127.0.0.10", false],
            ["127.0.0.30-20", false],
            ["127.0.0.0-256", false],
            ["fe80::fe80/64", false],
        ];
    }

/**
     * Test for \core\ip_utils::is_ipv6_address().
     *
     * @param string $address the address to validate.
     * @param bool $expected the expected result.
     * @dataProvider ipv6_address_data_provider
     */
    public function test_is_ipv6_address($address, $expected) {
        $this->assertEquals($expected, \core\ip_utils::is_ipv6_address($address));
    }

/**
     * Data provider for test_is_ipv6_address().
     *
     * @return array
     */
    public function ipv6_address_data_provider() {
        return [
            ["::", true],
            ["::0", true],
            ["0::", true],
            ["0::0", true],
            ["fe80:fe80:fe80:fe80:fe80:fe80:fe80:fe80", true],
            ["fe80::ffff", true],
            ["fe80::f", true],
            ["fe80::", true],
            ["0", false],
            ["127.0.0.0", false],
            ["127.0.0.0/24", false],
            ["fe80::fe80/128", false],
            ["fe80:fe80:fe80:fe80:fe80:fe80:fe80:fe80/128", false],
            ["fe80:", false],
            ["fe80:: ", false],
            [" fe80::", false],
            ["fe80::ddddd", false],
            ["fe80::gggg", false],
            ["fe80:fe80:fe80:fe80:fe80:fe80:fe80:fe80:fe80", false],
        ];
    }

/**
     * Test for \core\ip_utils::is_ipv6_range().
     *
     * @param string $addressrange the address range to validate.
     * @param bool $expected the expected result.
     * @dataProvider ipv6_range_data_provider
     */
    public function test_is_ipv6_range($addressrange, $expected) {
        $this->assertEquals($expected, \core\ip_utils::is_ipv6_range($addressrange));
    }

/**
     * Data provider for test_is_ipv6_range().
     *
     * @return array
     */
    public function ipv6_range_data_provider() {
        return [
            ["::/128", true],
            ["::1/128", true],
            ["fe80:fe80:fe80:fe80:fe80:fe80:fe80:fe80/128", true],
            ["fe80::dddd/128", true],
            ["fe80::/64", true],
            ["fe80::dddd-ffff", true],
            ["::0-ffff", true],
            ["::a-ffff", true],
            ["0", false],
            ["::1", false],
            ["fe80::fe80", false],
            ["::/128 ", false],
            [" ::/128", false],
            ["::/a", false],
            ["::/-1", false],
            ["fe80::fe80/129", false],
            ["fe80:fe80:fe80:fe80:fe80:fe80:fe80:fe80", false],
            ["fe80::bbbb-aaaa", false],
            ["fe80::0-fffg", false],
            ["fe80::0-fffff", false],
            ["fe80::0 - ffff", false],
            [" fe80::0-ffff", false],
            ["fe80::0-ffff ", false],
            ["192.0.0.0/24", false],
            ["fe80:::fe80/128", false],
            ["fe80:::aaaa-dddd", false],
        ];
    }

/**
     * Test checking domains against a list of allowed domains.
     *
     * @param  bool $expected Expected result
     * @param  string $domain domain address
     * @dataProvider data_domain_addresses
     */
    public function test_check_domain_against_allowed_domains($expected, $domain) {
        $alloweddomains = ['example.com',
                           '*.moodle.com',
                           '*.per.this.penny-arcade.com',
                           'bad.*.url.com',
                           ' trouble.com.au'];
        $this->assertEquals($expected, \core\ip_utils::is_domain_in_allowed_list($domain, $alloweddomains));
    }

/**
     * Data provider for test_check_domain_against_allowed_domains.
     *
     * @return array
     */
    public function data_domain_addresses() {
        return [
            [true, 'example.com'],
            [true, 'ExAmPle.com'],
            [false, 'sub.example.com'],
            [false, 'example.com.au'],
            [false, ' example.com'], // A space at the front of the domain is invalid.
            [false, 'example.123'], // Numbers at the end is invalid.
            [false, 'test.example.com'],
            [false, 'moodle.com'],
            [true, 'test.moodle.com'],
            [true, 'TeSt.moodle.com'],
            [true, 'test.MoOdLe.com'],
            [false, 'test.moodle.com.au'],
            [true, 'nice.address.per.this.penny-arcade.com'],
            [false, 'normal.per.this.penny-arcade.com.au'],
            [false, 'bad.thing.url.com'], // The allowed domain (above) has a bad wildcard and so this address will return false.
            [false, 'trouble.com.au'] // The allowed domain (above) has a space at the front and so will return false.
        ];
    }

/**
     * Data provider for test_is_ip_in_subnet_list.
     *
     * @return array
     */
    public function data_is_ip_in_subnet_list() {
        return [
            [true, '1.1.1.1', '1.1.1.1', "\n"],
            [false, '1.1.1.1', '2.2.2.2', "\n"],
            [true, '1.1.1.1', "1.1.1.5\n1.1.1.1", "\n"],
            [true, '1.1.1.1', "1.1.1.5,1.1.1.1", ","],
        ];
    }

/**
     * Test checking ips against a list of allowed domains.
     *
     * @param  bool $expected Expected result
     * @param  string $ip IP address
     * @param  string $list list of  IP subnets
     * @param  string $delim delimiter of list
     * @dataProvider data_is_ip_in_subnet_list
     */
    public function test_is_ip_in_subnet_list($expected, $ip, $list, $delim) {
        $this->assertEquals($expected, \core\ip_utils::is_ip_in_subnet_list($ip, $list, $delim));
    }

}

X7ROOT File Manager

Editing: ip_utils_test.php

Upload File

Create Folder