Gecko [ v3.cesa.co.za ]

Name	Size	Permission	Date
behat	[ DIR ]	drwxr-sr-x	2017-06-22 15:51
fixtures	[ DIR ]	drwxr-sr-x	2017-06-22 15:52
other	[ DIR ]	drwxr-sr-x	2017-06-22 15:52
performance	[ DIR ]	drwxr-sr-x	2017-06-22 15:52
accesslib_test.php	155.23 KB	-rw-r--r--	2017-06-22 15:51
adhoc_task_test.php	3.6 KB	-rw-r--r--	2017-06-22 15:51
admintree_test.php	12.62 KB	-rw-r--r--	2017-06-22 15:51
ajaxlib_test.php	4.35 KB	-rw-r--r--	2017-06-22 15:51
antivirus_test.php	3.63 KB	-rw-r--r--	2017-06-22 15:51
authlib_test.php	11.49 KB	-rw-r--r--	2017-06-22 15:51
blocklib_test.php	24.65 KB	-rw-r--r--	2017-06-22 15:51
collator_test.php	11.98 KB	-rw-r--r--	2017-06-22 15:51
completionlib_test.php	37.83 KB	-rw-r--r--	2017-06-22 15:51
component_test.php	37.04 KB	-rw-r--r--	2017-06-22 15:51
componentlib_test.php	6.64 KB	-rw-r--r--	2017-06-22 15:51
configonlylib_test.php	6.15 KB	-rw-r--r--	2017-06-22 15:51
coursecatlib_test.php	39.89 KB	-rw-r--r--	2017-06-22 15:51
cronlib_test.php	6.44 KB	-rw-r--r--	2017-06-22 15:51
csslib_test.php	8.57 KB	-rw-r--r--	2017-06-22 15:51
csvclass_test.php	5.56 KB	-rw-r--r--	2017-06-22 15:51
curl_security_helper_test.php	12.96 KB	-rw-r--r--	2017-06-22 15:51
customcontext_test.php	3.66 KB	-rw-r--r--	2017-06-22 15:51
datalib_test.php	28.64 KB	-rw-r--r--	2017-06-22 15:51
datalib_update_with_unique_index_test.php	6.31 KB	-rw-r--r--	2017-06-22 15:51
date_legacy_test.php	13.9 KB	-rw-r--r--	2017-06-22 15:51
date_test.php	24.13 KB	-rw-r--r--	2017-06-22 15:51
editorlib_test.php	2.01 KB	-rw-r--r--	2017-06-22 15:51
environment_test.php	7.66 KB	-rw-r--r--	2017-06-22 15:51
event_course_module_instance_list_viewed.php	2.7 KB	-rw-r--r--	2017-06-22 15:51
event_course_module_viewed.php	3.31 KB	-rw-r--r--	2017-06-22 15:51
event_deprecated_test.php	1.49 KB	-rw-r--r--	2017-06-22 15:51
event_grade_deleted_test.php	3.25 KB	-rw-r--r--	2017-06-22 15:51
event_test.php	40.93 KB	-rw-r--r--	2017-06-22 15:51
event_unknown_logged_test.php	1.92 KB	-rw-r--r--	2017-06-22 15:51
event_user_graded_test.php	10.06 KB	-rw-r--r--	2017-06-22 15:51
event_user_password_updated_test.php	2.89 KB	-rw-r--r--	2017-06-22 15:51
events_test.php	15.29 KB	-rw-r--r--	2017-06-22 15:51
eventslib_test.php	11.8 KB	-rw-r--r--	2017-06-22 15:51
externallib_test.php	22.73 KB	-rw-r--r--	2017-06-22 15:51
filelib_test.php	50.67 KB	-rw-r--r--	2017-06-22 15:51
filetypes_test.php	9.99 KB	-rw-r--r--	2017-06-22 15:51
filter_manager_test.php	3.1 KB	-rw-r--r--	2017-06-22 15:51
filterlib_test.php	28.43 KB	-rw-r--r--	2017-06-22 15:51
formslib_test.php	39.82 KB	-rw-r--r--	2017-06-22 15:52
gdlib_test.php	5.91 KB	-rw-r--r--	2017-06-22 15:52
gradelib_test.php	2.05 KB	-rw-r--r--	2017-06-22 15:52
grades_externallib_test.php	20.79 KB	-rw-r--r--	2017-06-22 15:52
grading_externallib_test.php	26.27 KB	-rw-r--r--	2017-06-22 15:52
grouplib_test.php	62.33 KB	-rw-r--r--	2017-06-22 15:52
html2text_test.php	7.56 KB	-rw-r--r--	2017-06-22 15:52
html_writer_test.php	8.74 KB	-rw-r--r--	2017-06-22 15:52
htmlpurifier_test.php	21.25 KB	-rw-r--r--	2017-06-22 15:52
ip_utils_test.php	13.4 KB	-rw-r--r--	2017-06-22 15:52
jquery_test.php	1.77 KB	-rw-r--r--	2017-06-22 15:52
ldaplib_test.php	7.14 KB	-rw-r--r--	2017-06-22 15:52
lock_config_test.php	2.33 KB	-rw-r--r--	2017-06-22 15:52
lock_test.php	3.96 KB	-rw-r--r--	2017-06-22 15:52
markdown_test.php	2.2 KB	-rw-r--r--	2017-06-22 15:52
mathslib_test.php	8.14 KB	-rw-r--r--	2017-06-22 15:52
medialib_test.php	20.95 KB	-rw-r--r--	2017-06-22 15:52
message_test.php	10.32 KB	-rw-r--r--	2017-06-22 15:52
messageinbound_test.php	5.92 KB	-rw-r--r--	2017-06-22 15:52
messagelib_test.php	39.51 KB	-rw-r--r--	2017-06-22 15:52
minify_test.php	3.13 KB	-rw-r--r--	2017-06-22 15:52
modinfolib_test.php	44.04 KB	-rw-r--r--	2017-06-22 15:52
moodle_page_test.php	25.52 KB	-rw-r--r--	2017-06-22 15:52
moodlelib_test.php	153.62 KB	-rw-r--r--	2017-06-22 15:52
mustache_template_finder_test.php	3.35 KB	-rw-r--r--	2017-06-22 15:52
myprofilelib_test.php	10.7 KB	-rw-r--r--	2017-06-22 15:52
navigationlib_test.php	26.04 KB	-rw-r--r--	2017-06-22 15:52
notification_test.php	4.18 KB	-rw-r--r--	2017-06-22 15:52
outputcomponents_test.php	19.33 KB	-rw-r--r--	2017-06-22 15:52
outputfactories_test.php	6.8 KB	-rw-r--r--	2017-06-22 15:52
outputrequirementslib_test.php	4.05 KB	-rw-r--r--	2017-06-22 15:52
plugin_manager_test.php	22.2 KB	-rw-r--r--	2017-06-22 15:52
portfoliolib_test.php	8.41 KB	-rw-r--r--	2017-06-22 15:52
progress_display_test.php	3.68 KB	-rw-r--r--	2017-06-22 15:52
progress_test.php	14.5 KB	-rw-r--r--	2017-06-22 15:52
questionlib_test.php	19.87 KB	-rw-r--r--	2017-06-22 15:52
regex_test.php	1.88 KB	-rw-r--r--	2017-06-22 15:52
requirejs_test.php	3.7 KB	-rw-r--r--	2017-06-22 15:52
rsslib_test.php	6.7 KB	-rw-r--r--	2017-06-22 15:52
scheduled_task_test.php	19.09 KB	-rw-r--r--	2017-06-22 15:52
scss_test.php	2.53 KB	-rw-r--r--	2017-06-22 15:52
session_manager_test.php	25.54 KB	-rw-r--r--	2017-06-22 15:52
session_redis_test.php	10.77 KB	-rw-r--r--	2017-06-22 15:52
sessionlib_test.php	12.57 KB	-rw-r--r--	2017-06-22 15:52
setuplib_test.php	18.57 KB	-rw-r--r--	2017-06-22 15:52
statslib_test.php	24.88 KB	-rw-r--r--	2017-06-22 15:52
string_manager_standard_test.php	6.91 KB	-rw-r--r--	2017-06-22 15:52
tablelib_test.php	18.07 KB	-rw-r--r--	2017-06-22 15:52
text_test.php	20.06 KB	-rw-r--r--	2017-06-22 15:52
theme_config_test.php	7.45 KB	-rw-r--r--	2017-06-22 15:52
unoconv_test.php	4 KB	-rw-r--r--	2017-06-22 15:52
update_api_test.php	6.75 KB	-rw-r--r--	2017-06-22 15:52
update_checker_test.php	10.92 KB	-rw-r--r--	2017-06-22 15:52
update_code_manager_test.php	9.11 KB	-rw-r--r--	2017-06-22 15:52
update_validator_test.php	18.47 KB	-rw-r--r--	2017-06-22 15:52
upgrade_util_test.php	5.65 KB	-rw-r--r--	2017-06-22 15:52
upgradelib_test.php	43.23 KB	-rw-r--r--	2017-06-22 15:52
user_menu_test.php	3.73 KB	-rw-r--r--	2017-06-22 15:52
user_test.php	17.23 KB	-rw-r--r--	2017-06-22 15:52
useragent_test.php	79.88 KB	-rw-r--r--	2017-06-22 15:52
weblib_format_text_test.php	8.43 KB	-rw-r--r--	2017-06-22 15:52
weblib_test.php	27.29 KB	-rw-r--r--	2017-06-22 15:52
xhtml_container_stack_test.php	4.16 KB	-rw-r--r--	2017-06-22 15:52

Rename

<?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/>.

/**
 * Tests for the block_manager class in ../blocklib.php.
 *
 * @package   core
 * @category  phpunit
 * @copyright 2009 Tim Hunt
 * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

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

global $CFG;
require_once($CFG->libdir . '/pagelib.php');
require_once($CFG->libdir . '/blocklib.php');
require_once($CFG->dirroot . '/blocks/moodleblock.class.php');

/**
 * Test various block related classes.
 */
class core_blocklib_testcase extends advanced_testcase {
    protected $testpage;
    protected $blockmanager;
    protected $isediting = null;

protected function setUp() {
        parent::setUp();
        $this->testpage = new moodle_page();
        $this->testpage->set_context(context_system::instance());
        $this->testpage->set_pagetype('phpunit-block-test');
        $this->blockmanager = new testable_block_manager($this->testpage);
    }

protected function tearDown() {
        $this->testpage = null;
        $this->blockmanager = null;
        parent::tearDown();
    }

protected function purge_blocks() {
        global $DB;
        $this->resetAfterTest();

$bis = $DB->get_records('block_instances');
        foreach ($bis as $instance) {
            blocks_delete_instance($instance);
        }
    }

public function test_no_regions_initially() {
        // Exercise SUT & Validate.
        $this->assertEquals(array(), $this->blockmanager->get_regions());
    }

public function test_add_region() {
        // Exercise SUT.
        $this->blockmanager->add_region('a-region-name', false);
        // Validate.
        $this->assertEquals(array('a-region-name'), $this->blockmanager->get_regions());
    }

public function test_add_regions() {
        // Set up fixture.
        $regions = array('a-region', 'another-region');
        // Exercise SUT.
        $this->blockmanager->add_regions($regions, false);
        // Validate.
        $this->assertEquals($regions, $this->blockmanager->get_regions(), '', 0, 10, true);
    }

public function test_add_region_twice() {
        // Exercise SUT.
        $this->blockmanager->add_region('a-region-name', false);
        $this->blockmanager->add_region('another-region', false);
        // Validate.
        $this->assertEquals(array('a-region-name', 'another-region'), $this->blockmanager->get_regions(), '', 0, 10, true);
    }

/**
     * @expectedException coding_exception
     */
    public function test_cannot_add_region_after_loaded() {
        // Set up fixture.
        $this->blockmanager->mark_loaded();
        // Exercise SUT.
        $this->blockmanager->add_region('too-late', false);
    }

/**
     * Testing adding a custom region.
     */
    public function test_add_custom_region() {
        global $SESSION;
        // Exercise SUT.
        $this->blockmanager->add_region('a-custom-region-name');
        // Validate.
        $this->assertEquals(array('a-custom-region-name'), $this->blockmanager->get_regions());
        $this->assertTrue(isset($SESSION->custom_block_regions));
        $this->assertArrayHasKey('phpunit-block-test', $SESSION->custom_block_regions);
        $this->assertTrue(in_array('a-custom-region-name', $SESSION->custom_block_regions['phpunit-block-test']));

}

/**
     * Test adding two custom regions using add_regions method.
     */
    public function test_add_custom_regions() {
        global $SESSION;
        // Set up fixture.
        $regions = array('a-region', 'another-custom-region');
        // Exercise SUT.
        $this->blockmanager->add_regions($regions);
        // Validate.
        $this->assertEquals($regions, $this->blockmanager->get_regions(), '', 0, 10, true);
        $this->assertTrue(isset($SESSION->custom_block_regions));
        $this->assertArrayHasKey('phpunit-block-test', $SESSION->custom_block_regions);
        $this->assertTrue(in_array('another-custom-region', $SESSION->custom_block_regions['phpunit-block-test']));
    }

/**
     * Test adding two custom block regions.
     */
    public function test_add_custom_region_twice() {
        // Exercise SUT.
        $this->blockmanager->add_region('a-custom-region-name');
        $this->blockmanager->add_region('another-custom-region');
        // Validate.
        $this->assertEquals(
            array('a-custom-region-name', 'another-custom-region'),
            $this->blockmanager->get_regions(),
            '', 0, 10, true
        );
    }

/**
     * Test to ensure that we cannot add a region after the blocks have been loaded.
     * @expectedException coding_exception
     */
    public function test_cannot_add_custom_region_after_loaded() {
        // Set up fixture.
        $this->blockmanager->mark_loaded();
        // Exercise SUT.
        $this->blockmanager->add_region('too-late');
    }

public function test_set_default_region() {
        // Set up fixture.
        $this->blockmanager->add_region('a-region-name', false);
        // Exercise SUT.
        $this->blockmanager->set_default_region('a-region-name');
        // Validate.
        $this->assertEquals('a-region-name', $this->blockmanager->get_default_region());
    }

/**
     * @expectedException coding_exception
     */
    public function test_cannot_set_unknown_region_as_default() {
        // Exercise SUT.
        $this->blockmanager->set_default_region('a-region-name');
    }

/**
     * @expectedException coding_exception
     */
    public function test_cannot_change_default_region_after_loaded() {
        // Set up fixture.
        $this->blockmanager->mark_loaded();
        // Exercise SUT.
        $this->blockmanager->set_default_region('too-late');
    }

public function test_matching_page_type_patterns() {
        $this->assertEquals(array('site-index', 'site-index-*', 'site-*', '*'),
            matching_page_type_patterns('site-index'), '', 0, 10, true);

$this->assertEquals(array('mod-quiz-report-overview', 'mod-quiz-report-overview-*', 'mod-quiz-report-*', 'mod-quiz-*', 'mod-*', '*'),
            matching_page_type_patterns('mod-quiz-report-overview'), '', 0, 10, true);

$this->assertEquals(array('mod-forum-view', 'mod-*-view', 'mod-forum-view-*', 'mod-forum-*', 'mod-*', '*'),
            matching_page_type_patterns('mod-forum-view'), '', 0, 10, true);

$this->assertEquals(array('mod-forum-index', 'mod-*-index', 'mod-forum-index-*', 'mod-forum-*', 'mod-*', '*'),
            matching_page_type_patterns('mod-forum-index'), '', 0, 10, true);
    }

protected function get_a_page_and_block_manager($regions, $context, $pagetype, $subpage = '') {
        $page = new moodle_page;
        $page->set_context($context);
        $page->set_pagetype($pagetype);
        $page->set_subpage($subpage);

$blockmanager = new testable_block_manager($page);
        $blockmanager->add_regions($regions, false);
        $blockmanager->set_default_region($regions[0]);

return array($page, $blockmanager);
    }

protected function get_a_known_block_type() {
        global $DB;
        $block = new stdClass;
        $block->name = 'ablocktype';
        $DB->insert_record('block', $block);
        return $block->name;
    }

protected function assertContainsBlocksOfType($typearray, $blockarray) {
        if (!$this->assertEquals(count($typearray), count($blockarray), "Blocks array contains the wrong number of elements %s.")) {
            return;
        }
        $types = array_values($typearray);
        $i = 0;
        foreach ($blockarray as $block) {
            $blocktype = $types[$i];
            $this->assertEquals($blocktype, $block->name(), "Block types do not match at postition $i %s.");
            $i++;
        }
    }

public function test_empty_initially() {
        $this->purge_blocks();

// Set up fixture.
        list($page, $blockmanager) = $this->get_a_page_and_block_manager(array('a-region'),
            context_system::instance(), 'page-type');
        // Exercise SUT.
        $blockmanager->load_blocks();
        // Validate.
        $blocks = $blockmanager->get_loaded_blocks();
        $this->assertEquals(array('a-region' => array()), $blocks);
    }

public function test_adding_and_retrieving_one_block() {
        $this->purge_blocks();

// Set up fixture.
        $regionname = 'a-region';
        $blockname = $this->get_a_known_block_type();
        $context = context_system::instance();

list($page, $blockmanager) = $this->get_a_page_and_block_manager(array($regionname),
            $context, 'page-type');

// Exercise SUT.
        $blockmanager->add_block($blockname, $regionname, 0, false);
        $blockmanager->load_blocks();
        // Validate.
        $blocks = $blockmanager->get_blocks_for_region($regionname);
        $this->assertContainsBlocksOfType(array($blockname), $blocks);
    }

public function test_adding_and_retrieving_two_blocks() {
        $this->purge_blocks();

// Set up fixture.
        $regionname = 'a-region';
        $blockname = $this->get_a_known_block_type();
        $context = context_system::instance();

list($page, $blockmanager) = $this->get_a_page_and_block_manager(array($regionname),
            $context, 'page-type');

// Exercise SUT.
        $blockmanager->add_block($blockname, $regionname, 0, false);
        $blockmanager->add_block($blockname, $regionname, 1, false);
        $blockmanager->load_blocks();
        // Validate.
        $blocks = $blockmanager->get_blocks_for_region($regionname);
        $this->assertContainsBlocksOfType(array($blockname, $blockname), $blocks);
    }

public function test_adding_blocks() {
        $this->purge_blocks();

// Set up fixture.
        $regionname = 'a-region';
        $blockname = $this->get_a_known_block_type();
        $context = context_system::instance();

list($page, $blockmanager) = $this->get_a_page_and_block_manager(array($regionname),
            $context, 'page-type');

$blockmanager->add_blocks(array($regionname => array($blockname, $blockname)), null, null, false, 3);
        $blockmanager->load_blocks();

$blocks = $blockmanager->get_blocks_for_region($regionname);

$this->assertEquals('3', $blocks[0]->instance->weight);
        $this->assertEquals('4', $blocks[1]->instance->weight);
    }

public function test_block_not_included_in_different_context() {
        $this->purge_blocks();

// Set up fixture.
        $syscontext = context_system::instance();
        $cat = $this->getDataGenerator()->create_category(array('name' => 'testcategory'));
        $fakecontext = context_coursecat::instance($cat->id);
        $regionname = 'a-region';
        $blockname = $this->get_a_known_block_type();

list($addpage, $addbm) = $this->get_a_page_and_block_manager(array($regionname), $fakecontext, 'page-type');
        list($viewpage, $viewbm) = $this->get_a_page_and_block_manager(array($regionname), $syscontext, 'page-type');

$addbm->add_block($blockname, $regionname, 0, false);

// Exercise SUT.
        $viewbm->load_blocks();
        // Validate.
        $blocks = $viewbm->get_blocks_for_region($regionname);
        $this->assertContainsBlocksOfType(array(), $blocks);
    }

public function test_block_included_in_sub_context() {
        $this->purge_blocks();

// Set up fixture.
        $syscontext = context_system::instance();
        $childcontext = context_coursecat::instance(1);
        $regionname = 'a-region';
        $blockname = $this->get_a_known_block_type();

list($addpage, $addbm) = $this->get_a_page_and_block_manager(array($regionname), $syscontext, 'page-type');
        list($viewpage, $viewbm) = $this->get_a_page_and_block_manager(array($regionname), $childcontext, 'page-type');

$addbm->add_block($blockname, $regionname, 0, true);

// Exercise SUT.
        $viewbm->load_blocks();
        // Validate.
        $blocks = $viewbm->get_blocks_for_region($regionname);
        $this->assertContainsBlocksOfType(array($blockname), $blocks);
    }

public function test_block_not_included_on_different_page_type() {
        $this->purge_blocks();

// Set up fixture.
        $syscontext = context_system::instance();
        $regionname = 'a-region';
        $blockname = $this->get_a_known_block_type();

$addbm->add_block($blockname, $regionname, 0, true);

// Exercise SUT.
        $viewbm->load_blocks();
        // Validate.
        $blocks = $viewbm->get_blocks_for_region($regionname);
        $this->assertContainsBlocksOfType(array(), $blocks);
    }

public function test_block_not_included_on_different_sub_page() {
        $this->purge_blocks();

// Set up fixture.
        $regionname = 'a-region';
        $blockname = $this->get_a_known_block_type();
        $syscontext = context_system::instance();

list($page, $blockmanager) = $this->get_a_page_and_block_manager(array($regionname),
            $syscontext, 'page-type', 'sub-page');

$blockmanager->add_block($blockname, $regionname, 0, true, $page->pagetype, 'other-sub-page');

// Exercise SUT.
        $blockmanager->load_blocks();
        // Validate.
        $blocks = $blockmanager->get_blocks_for_region($regionname);
        $this->assertContainsBlocksOfType(array(), $blocks);
    }

public function test_block_included_with_explicit_sub_page() {
        $this->purge_blocks();

// Set up fixture.
        $regionname = 'a-region';
        $blockname = $this->get_a_known_block_type();
        $syscontext = context_system::instance();

list($page, $blockmanager) = $this->get_a_page_and_block_manager(array($regionname),
            $syscontext, 'page-type', 'sub-page');

$blockmanager->add_block($blockname, $regionname, 0, true, $page->pagetype, $page->subpage);

public function test_block_included_with_page_type_pattern() {
        $this->purge_blocks();

// Set up fixture.
        $regionname = 'a-region';
        $blockname = $this->get_a_known_block_type();
        $syscontext = context_system::instance();

list($page, $blockmanager) = $this->get_a_page_and_block_manager(array($regionname),
            $syscontext, 'page-type', 'sub-page');

$blockmanager->add_block($blockname, $regionname, 0, true, 'page-*', $page->subpage);

public function test_matching_page_type_patterns_from_pattern() {
        $pattern = '*';
        $expected = array('*');
        $this->assertEquals($expected, array_values(matching_page_type_patterns_from_pattern($pattern)));

$pattern = 'admin-*';
        $expected = array('admin-*', 'admin', '*');
        $this->assertEquals($expected, array_values(matching_page_type_patterns_from_pattern($pattern)));

$pattern = 'blog-index';
        $expected = array('blog-index', 'blog-index-*', 'blog-*', '*');
        $this->assertEquals($expected, array_values(matching_page_type_patterns_from_pattern($pattern)));

$pattern = 'course-index-*';
        $expected = array('course-index-*', 'course-index', 'course-*', '*');
        $this->assertEquals($expected, array_values(matching_page_type_patterns_from_pattern($pattern)));

$pattern = 'course-index-category';
        $expected = array('course-index-category', 'course-index-category-*', 'course-index-*', 'course-*', '*');
        $this->assertEquals($expected, array_values(matching_page_type_patterns_from_pattern($pattern)));

$pattern = 'mod-assign-view';
        $expected = array('mod-assign-view', 'mod-*-view', 'mod-assign-view-*', 'mod-assign-*', 'mod-*', '*');
        $this->assertEquals($expected, array_values(matching_page_type_patterns_from_pattern($pattern)));

$pattern = 'mod-assign-index';
        $expected = array('mod-assign-index', 'mod-*-index', 'mod-assign-index-*', 'mod-assign-*', 'mod-*', '*');
        $this->assertEquals($expected, array_values(matching_page_type_patterns_from_pattern($pattern)));

$pattern = 'mod-forum-*';
        $expected = array('mod-forum-*', 'mod-forum', 'mod-*', '*');
        $this->assertEquals($expected, array_values(matching_page_type_patterns_from_pattern($pattern)));

$pattern = 'mod-*-view';
        $expected = array('mod-*-view', 'mod', 'mod-*', '*');
        $this->assertEquals($expected, array_values(matching_page_type_patterns_from_pattern($pattern)));

$pattern = 'mod-*-index';
        $expected = array('mod-*-index', 'mod', 'mod-*', '*');
        $this->assertEquals($expected, array_values(matching_page_type_patterns_from_pattern($pattern)));

$pattern = 'my-index';
        $expected = array('my-index', 'my-index-*', 'my-*', '*');
        $this->assertEquals($expected, array_values(matching_page_type_patterns_from_pattern($pattern)));

$pattern = 'user-profile';
        $expected = array('user-profile', 'user-profile-*', 'user-*', '*');
        $this->assertEquals($expected, array_values(matching_page_type_patterns_from_pattern($pattern)));
    }

public function test_delete_instances() {
        global $DB;
        $this->purge_blocks();
        $this->setAdminUser();

$regionname = 'a-region';
        $blockname = $this->get_a_known_block_type();
        $context = context_system::instance();

list($page, $blockmanager) = $this->get_a_page_and_block_manager(array($regionname),
            $context, 'page-type');

$blockmanager->add_blocks(array($regionname => array($blockname, $blockname, $blockname)), null, null, false, 3);
        $blockmanager->load_blocks();

$blocks = $blockmanager->get_blocks_for_region($regionname);
        $blockids = array();
        $preferences = array();

// Create block related data.
        foreach ($blocks as $block) {
            $instance = $block->instance;
            $pref = 'block' . $instance->id . 'hidden';
            set_user_preference($pref, '123', 123);
            $preferences[] = $pref;
            $pref = 'docked_block_instance_' . $instance->id;
            set_user_preference($pref, '123', 123);
            $preferences[] = $pref;
            blocks_set_visibility($instance, $page, 1);
            $blockids[] = $instance->id;
        }

// Confirm what has been set.
        $this->assertCount(3, $blockids);
        list($insql, $inparams) = $DB->get_in_or_equal($blockids);
        $this->assertEquals(3, $DB->count_records_select('block_positions', "blockinstanceid $insql", $inparams));
        list($insql, $inparams) = $DB->get_in_or_equal($preferences);
        $this->assertEquals(6, $DB->count_records_select('user_preferences', "name $insql", $inparams));

// Keep a block on the side.
        $allblockids = $blockids;
        $tokeep = array_pop($blockids);

// Delete and confirm what should have happened.
        blocks_delete_instances($blockids);

// Reload the manager.
        list($page, $blockmanager) = $this->get_a_page_and_block_manager(array($regionname),
            $context, 'page-type');
        $blockmanager->load_blocks();
        $blocks = $blockmanager->get_blocks_for_region($regionname);

$this->assertCount(1, $blocks);
        list($insql, $inparams) = $DB->get_in_or_equal($allblockids);
        $this->assertEquals(1, $DB->count_records_select('block_positions', "blockinstanceid $insql", $inparams));
        list($insql, $inparams) = $DB->get_in_or_equal($preferences);
        $this->assertEquals(2, $DB->count_records_select('user_preferences', "name $insql", $inparams));

$this->assertFalse(context_block::instance($blockids[0], IGNORE_MISSING));
        $this->assertFalse(context_block::instance($blockids[1], IGNORE_MISSING));
        context_block::instance($tokeep);   // Would throw an exception if it was deleted.
    }

public function test_create_all_block_instances() {
        global $CFG, $PAGE, $DB;

$this->setAdminUser();
        $this->resetAfterTest();
        $regionname = 'side-pre';
        $context = context_system::instance();

$PAGE->reset_theme_and_output();
        $CFG->theme = 'boost';

$PAGE->reset_theme_and_output();
        // Change to a theme with undeletable blocks.
        $CFG->theme = 'clean';

list($page, $blockmanager) = $this->get_a_page_and_block_manager(array($regionname),
            $context, 'page-type');

$blockmanager->show_only_fake_blocks(true);
        $blockmanager->load_blocks();
        $blockmanager->create_all_block_instances();
        $blocks = $blockmanager->get_blocks_for_region($regionname);
        // Assert that we no auto created blocks when viewing a fake blocks only page.
        $this->assertEmpty($blocks);

$PAGE->reset_theme_and_output();
        list($page, $blockmanager) = $this->get_a_page_and_block_manager(array($regionname),
            $context, 'page-type');

$blockmanager->show_only_fake_blocks(false);
        $blockmanager->load_blocks();
        $blockmanager->create_all_block_instances();
        $blocks = $blockmanager->get_blocks_for_region($regionname);
        // Assert that we get the required block for this theme auto-created.
        $this->assertCount(2, $blocks);

$PAGE->reset_theme_and_output();
        list($page, $blockmanager) = $this->get_a_page_and_block_manager(array($regionname),
            $context, 'page-type');

$blockmanager->protect_block('html');
        $blockmanager->load_blocks();
        $blockmanager->create_all_block_instances();
        $blocks = $blockmanager->get_blocks_for_region($regionname);
        // Assert that protecting a block does not make it auto-created.
        $this->assertCount(2, $blocks);

$requiredbytheme = block_manager::get_required_by_theme_block_types();
        foreach ($requiredbytheme as $blockname) {
            $instance = $DB->get_record('block_instances', array('blockname' => $blockname));
            $this->assertEquals(1, $instance->requiredbytheme);
        }

// Switch back and those auto blocks should not be returned.
        $PAGE->reset_theme_and_output();
        $CFG->theme = 'boost';

list($page, $blockmanager) = $this->get_a_page_and_block_manager(array($regionname),
            $context, 'page-type');
        $blockmanager->load_blocks();
        $blockmanager->create_all_block_instances();
        $blocks = $blockmanager->get_blocks_for_region($regionname);
        // Assert that we do not return requiredbytheme blocks when they are not required.
        $this->assertEmpty($blocks);
        // But they should exist in the DB.
        foreach ($requiredbytheme as $blockname) {
            $count = $DB->count_records('block_instances', array('blockname' => $blockname));
            $this->assertEquals(1, $count);
        }
    }

}

/**
 * Test-specific subclass to make some protected things public.
 */
class testable_block_manager extends block_manager {

public function mark_loaded() {
        $this->birecordsbyregion = array();
    }
    public function get_loaded_blocks() {
        return $this->birecordsbyregion;
    }
}

/**
 * Test-specific subclass to make some protected things public.
 */
class block_ablocktype extends block_base {
    public function init() {
    }
}