From 3058afd4296c7ef4638a9c1b28d7673774159120 Mon Sep 17 00:00:00 2001 From: tjhunt Date: Mon, 13 Apr 2009 07:06:44 +0000 Subject: [PATCH] filters: MDL-7336 performance testing script --- .../filtersettingsperformancetester.php | 237 ++++++++++++++++++ 1 file changed, 237 insertions(+) create mode 100644 lib/simpletest/filtersettingsperformancetester.php diff --git a/lib/simpletest/filtersettingsperformancetester.php b/lib/simpletest/filtersettingsperformancetester.php new file mode 100644 index 0000000000..6ccad54c3d --- /dev/null +++ b/lib/simpletest/filtersettingsperformancetester.php @@ -0,0 +1,237 @@ +libdir . '/ddllib.php'); + +require_login(); +$syscontext = get_context_instance(CONTEXT_SYSTEM); +require_capability('moodle/site:config', $syscontext); + +$baseurl = $CFG->wwwroot . '/lib/simpletest/filtersettingsperformancetester.php'; + +$title = 'filter_get_active_in_context performance test'; +print_header($title, $title, build_navigation($title)); + +// Complain if we get this far and $CFG->unittestprefix is not set. +if (empty($CFG->unittestprefix)) { + throw new coding_exception('This page requires $CFG->unittestprefix to be set in config.php.'); +} + +$requiredtables = array('context', 'filter_active', 'filter_config'); +$realdb = $DB; +$testdb = moodle_database::get_driver_instance($CFG->dbtype, $CFG->dblibrary); +$testdb->connect($CFG->dbhost, $CFG->dbuser, $CFG->dbpass, $CFG->dbname, $CFG->unittestprefix); +$DB = $testdb; +$dbman = $testdb->get_manager(); +$issetup = 0; +foreach ($requiredtables as $table) { + if ($dbman->table_exists(new xmldb_table($table))) { + $issetup++; + } +} + +switch (optional_param('action', '', PARAM_ACTION)) { + case 'setup': + if ($issetup == 0) { + foreach ($requiredtables as $table) { + $dbman->install_one_table_from_xmldb_file($CFG->dirroot . '/lib/db/install.xml', $table); + $issetup++; + } + flush(); + populate_test_database($syscontext, 10, 100, 1000, 5000, 5000); + notify('Test tables created.', 'notifysuccess'); + } else if ($issetup == count($requiredtables)) { + notify('Test tables are already set up.', 'notifysuccess'); + } else { + notify('Something is wrong, please delete the test tables and try again.'); + } + break; + + case 'teardown': + foreach ($requiredtables as $tablename) { + $table = new xmldb_table($tablename); + if ($dbman->table_exists($table)) { + $dbman->drop_table($table); + } + } + $issetup = 0; + notify('Test tables dropped.', 'notifysuccess'); + break; + + case 'test': + if ($issetup != count($requiredtables)) { + notify('Something is wrong, please delete the test tables and try again.'); + } else { + $contexts = $DB->get_records('context'); + $numcalls = 1000; + $basetime = run_tests('noop', $contexts, $numcalls, 0); + run_tests('simple_get_record_by_id', $contexts, $numcalls, $basetime); + run_tests('filter_get_active_in_context', $contexts, $numcalls, $basetime); + } + break; +} + +if ($issetup == count($requiredtables)) { + echo '

Total of ' . $DB->count_records('context') . ' contexts, ' . + $DB->count_records('filter_active') . ' filter_active and ' . + $DB->count_records('filter_config') . ' filter_config rows in the database.

'; +} + +$DB = $realdb; + +echo '
'; +print_single_button($baseurl, array('action' => 'setup'), 'Set up test tables', 'get', '', false, '', $issetup > 0); +print_single_button($baseurl, array('action' => 'teardown'), 'Drop test tables', 'get', '', false, '', $issetup == 0); +print_single_button($baseurl, array('action' => 'test'), 'Run tests', 'get', '', false, '', $issetup != count($requiredtables)); +echo '
'; + +print_footer(); + +function noop($context) { +} + +function simple_get_record_by_id($context) { + global $DB; + $DB->get_record('context', array('id' => $context->id)); +} + +function run_tests($function, $contexts, $numcalls, $basetime) { + set_time_limit(120); + $startime = microtime(true); + for ($j = 0; $j < $numcalls; $j++) { + $function($contexts[array_rand($contexts)]); + } + $duration = microtime(true) - $startime; + print_result_line($duration, $basetime, $numcalls, 'calls to ' . $function); + return $duration; +} + +function print_result_line($duration, $basetime, $numcalls, $action1, $action2 = 'calls per second') { + echo '

Time for ' . format_float($numcalls, 0) . ' ' . $action1 . ': ' . + format_float($duration - $basetime, 3) . 's (' . format_float($duration, 3) . ' - ' . + format_float($basetime, 3) . 's) which is ' . + format_float(($numcalls / ($duration - $basetime)), 0) . ' ' . $action2 . ".

\n"; + flush(); +} + +function populate_test_database($syscontext, $numcategories, $numcourses, $nummodules, $numoverrides, $numconfigs) { + global $DB; + set_time_limit(600); + $syscontext->id = $DB->insert_record('context', $syscontext); + + // Category contexts. + $categoryparents = array($syscontext); + $categories = array(); + for ($i = 0; $i < $numcategories; $i++) { + $context = insert_context(CONTEXT_COURSECAT, $i, $categoryparents[array_rand($categoryparents)]); + $categoryparents[] = $context; + $categories[$context->id] = $context; + } + notify('Created ' . $numcategories . ' course category contexts.', 'notifysuccess'); flush(); + + // Course contexts. + $courses = array(); + for ($i = 0; $i < $numcourses; $i++) { + $context = insert_context(CONTEXT_COURSE, $i, $categories[array_rand($categories)]); + $courses[$context->id] = $context; + } + notify('Created ' . $numcourses . ' course contexts.', 'notifysuccess'); flush(); + + // Activities contexts. + $mods = array(); + $prog = new progress_bar('modbar', 500, true); + $DB->begin_sql(); + for ($i = 0; $i < $nummodules; $i++) { + $context = insert_context(CONTEXT_MODULE, $i, $courses[array_rand($courses)]); + $mods[$context->id] = $context; + if ($i % 50) { + $prog->update($i, $nummodules, ''); + } + } + $DB->commit_sql(); + notify('Created ' . $nummodules . ' module contexts.', 'notifysuccess'); flush(); + + $contexts = $categories + $courses + $mods; + + // Global settings. + $installedfilters = filter_get_all_installed(); + $counts = array(TEXTFILTER_DISABLED => 0, TEXTFILTER_OFF => 0, TEXTFILTER_ON => 0); + foreach ($installedfilters as $filter => $notused) { + $state = array_rand($counts); + filter_set_global_state($filter, $state); + $counts[$state]++; + } + notify('Set global setting: ' . $counts[TEXTFILTER_DISABLED] . ' disabled, ' . + $counts[TEXTFILTER_OFF] . ' off and ' . $counts[TEXTFILTER_ON] . ' on.', 'notifysuccess'); flush(); + + // Local overrides. + $localstates = array(TEXTFILTER_OFF => 0, TEXTFILTER_ON => 0); + $prog = new progress_bar('locbar', 500, true); + $DB->begin_sql(); + for ($i = 0; $i < $numoverrides; $i++) { + filter_set_local_state(array_rand($installedfilters), array_rand($contexts), array_rand($localstates)); + if ($i % 50) { + $prog->update($i, $numoverrides, ''); + } + } + $DB->commit_sql(); + notify('Set ' . $numoverrides . ' local overrides.', 'notifysuccess'); flush(); + + // Local config. + $variablenames = array('frog' => 0, 'toad' => 0, 'elver' => 0, 'eft' => 0, 'tadpole' => 0); + $prog = new progress_bar('confbar', 500, true); + $DB->begin_sql(); + for ($i = 0; $i < $numconfigs; $i++) { + filter_set_local_config(array_rand($installedfilters), array_rand($contexts), + array_rand($variablenames), random_string(rand(20, 40))); + if ($i % 50) { + $prog->update($i, $numconfigs, ''); + } + } + $DB->commit_sql(); + notify('Set ' . $numconfigs . ' local configs.', 'notifysuccess'); flush(); +} + +function insert_context($contextlevel, $instanceid, $parent) { + global $DB; + $context = new stdClass; + $context->contextlevel = $contextlevel; + $context->instanceid = $instanceid; + $context->depth = $parent->depth + 1; + $context->id = $DB->insert_record('context', $context); + $context->path = $parent->path . '/' . $context->id; + $DB->set_field('context', 'path', $context->path, array('id' => $context->id)); + return $context; +} + -- 2.39.5