WebSVN – Moodle – Diff – /question/tests/generator/lib.php

  * @copyright  2013 The Open University
  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  */
+use core_question\local\bank\question_version_status;
-use core_question\local\bank\question_version_status;
+use core\exception\coding_exception;
 /**
  * Class core_question_generator for generating question data.
         $defaults = [
             'name'       => 'Test question category ' . $this->categorycount,
             'info'       => '',
             'infoformat' => FORMAT_HTML,
             'stamp'      => make_unique_id_code(),
-            'sortorder'  => 999,
-            'idnumber'   => null
+            'idnumber'   => null,
         ];
         $record = $this->datagenerator->combine_defaults_and_record($defaults, $record);
         if (!isset($record['contextid'])) {
             if (isset($record['parent'])) {
+                $record['contextid'] = $DB->get_field('question_categories', 'contextid', ['id' => $record['parent']]);
-                $record['contextid'] = $DB->get_field('question_categories', 'contextid', ['id' => $record['parent']]);
+            } else {
-            } else {
+                $qbank = $this->datagenerator->create_module('qbank', ['course' => SITEID]);
+                $record['contextid'] = context_module::instance($qbank->cmid)->id;
+            }
+        } else {
+            // Any requests for a question category in a contextlevel that is no longer supported
+            // will have a qbank instance created on the associated context and then the category
+            // will be made for that context instead.
+            $context = context::instance_by_id($record['contextid']);
+            if ($context->contextlevel !== CONTEXT_MODULE) {
+                $course = match ($context->contextlevel) {
+                    CONTEXT_COURSE => get_course($context->instanceid),
+                    CONTEXT_SYSTEM => get_site(),
+                    CONTEXT_COURSECAT => $this->datagenerator->create_course(['category' => $context->instanceid]),
+                    default => throw new \Exception('Invalid context to infer a question bank from.'),
+                };
+                $qbank = \core_question\local\bank\question_bank_helper::get_default_open_instance_system_type($course, true);
+                $bankcontext = context_module::instance($qbank->id);
+            } else {
+                $bankcontext = $context;
                 $record['contextid'] = context_system::instance()->id;
+            $record['contextid'] = $bankcontext->id;
+        }
         if (!isset($record['parent'])) {
+            $record['parent'] = question_get_top_category($record['contextid'], true)->id;
+        }
+        if (!isset($record['sortorder'])) {
+            $manager = new \core_question\category_manager();
-            $record['parent'] = question_get_top_category($record['contextid'], true)->id;
+            $record['sortorder'] = $manager->get_max_sortorder($record['parent']) + 1;
+        }
         $record['id'] = $DB->insert_record('question_categories', $record);
         return (object) $record;
         $fromform = (object) $this->datagenerator->combine_defaults_and_record((array) $fromform, $overrides);
         $fromform->status = $fromform->status ?? $question->status;
+        $question = question_bank::get_qtype($qtype)->save_question($question, $fromform);
-        $question = question_bank::get_qtype($qtype)->save_question($question, $fromform);
+        $validoverrides = ['createdby', 'modifiedby', 'timemodified'];
-        if ($overrides && (array_key_exists('createdby', $overrides) || array_key_exists('modifiedby', $overrides))) {
+        if ($overrides && !empty(array_intersect($validoverrides, array_keys($overrides)))) {
+            // Manually update the createdby, modifiedby and timemodified because questiontypebase forces
-            // Manually update the createdby and modifiedby because questiontypebase forces
+            // current user and time and some tests require a specific user or time.
-            // current user and some tests require a specific user.
+            foreach ($validoverrides as $validoverride) {
-            if (array_key_exists('createdby', $overrides)) {
+                if (array_key_exists($validoverride, $overrides)) {
-                $question->createdby = $overrides['createdby'];
-            }
-            if (array_key_exists('modifiedby', $overrides)) {
+                    $question->{$validoverride} = $overrides[$validoverride];
                 $question->modifiedby = $overrides['modifiedby'];
+            }
             $DB->update_record('question', $question);
+        }
         return $question;
+    }
     /**
-     * Setup a course category, course, a question category, and 2 questions
+     * Set up a course category, a course, a mod_qbank instance, a question category for the mod_qbank instance,
-     * for testing.
-     *
+     * and 2 questions for testing.
      * @param string $type The type of question category to create.
-     * @return array The created data objects
+     * @return array of the data objects mentioned above
      */
-    public function setup_course_and_questions($type = 'course') {
+    public function setup_course_and_questions() {
         $datagenerator = $this->datagenerator;
         $category = $datagenerator->create_category();
         $course = $datagenerator->create_course([
             'numsections' => 5,
-            'category' => $category->id
-        ]);
-        switch ($type) {
+            'category' => $category->id
-            case 'category':
-                $context = context_coursecat::instance($category->id);
-                break;
-            case 'system':
-                $context = context_system::instance();
-                break;
+        ]);
-            default:
-                $context = context_course::instance($course->id);
-                break;
+        $qbank = $datagenerator->create_module('qbank', ['course' => $course->id]);
         $context = context_module::instance($qbank->cmid);
         $qcat = $this->create_question_category(['contextid' => $context->id]);
         $questions = [
                 $this->create_question('shortanswer', null, ['category' => $qcat->id]),
                 $this->create_question('shortanswer', null, ['category' => $qcat->id]),
         ];
             $postdata[$qa->get_behaviour_field_name('submit')] = 1;
+        }
         return $postdata;
+    }
+    /**
+     * Given a context and a structure of categories and questions, generate that structure.
+     *
+     * The $structure parameter takes a multi-dimensional array of categories and questions, like this:
+     * [
+     *    'categoryname' => [
+     *        'question1name' => 'questiontype',
+     *        'question2name' => 'questiontype',
+     *        'subcategoryname' => [
+     *            'subquestion1name' => 'questiontype',
+     *        ],
+     *    ],
+     * ]
+     * Arrays are treated as categories, strings are treated as questions. The key in each case is used for the name of the category
+     * or question. For subcategories, the method is called recursively to create all descendants.
+     * The 'questiontype' string is the type of question to be generated, and will be passed to create_question.
+     *
+     * @param context $context The context to create the structure in.
+     * @param array $structure The array of categories and questions, see above.
+     * @param ?int $parentid The category to create the category or question within.
+     * @return array The input structure, with the generated questions in place of the question types.
+     */
+    public function create_categories_and_questions(context $context, array $structure, ?int $parentid = null) {
+        $createdcategories = [];
+        foreach ($structure as $name => $item) {
+            if (is_array($item)) {
+                $categorydata = [
+                    'name' => $name,
+                    'contextid' => $context->id,
+                ];
+                if ($parentid) {
+                    $categorydata['parent'] = $parentid;
+                }
+                $category = $this->create_question_category($categorydata);
+                $createdcategories[$name] = $this->create_categories_and_questions($context, $item, $category->id);
+            } else if (is_string($item)) {
+                if (!$parentid) {
+                    throw new coding_exception('You cannot create questions in a top-level category.');
+                }
+                $createdcategories[$name] = $this->create_question($item, null, ['name' => $name, 'category' => $parentid]);
+            } else {
+                throw new coding_exception('Structure items must be arrays or strings, ' . gettype($item) . ' found.');
+            }
+        }
+        return $createdcategories;
+    }

Proyectos de Subversion Moodle

(root)/question/tests/generator/lib.php – Rev 1 → 1441