[Summary view] [Print] [Text view]

   1  <?php
   2  // This file is part of Moodle - http://moodle.org/
   3  //
   4  // Moodle is free software: you can redistribute it and/or modify
   5  // it under the terms of the GNU General Public License as published by
   6  // the Free Software Foundation, either version 3 of the License, or
   7  // (at your option) any later version.
   8  //
   9  // Moodle is distributed in the hope that it will be useful,
  10  // but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  // GNU General Public License for more details.
  13  //
  14  // You should have received a copy of the GNU General Public License
  15  // along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
  16  
  17  /**
  18   * Test helpers for the match question type.
  19   *
  20   * @package    qtype_match
  21   * @copyright  2013 The Open University
  22   * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  23   */
  24  
  25  
  26  defined('MOODLE_INTERNAL') || die();
  27  
  28  global $CFG;
  29  require_once($CFG->dirroot . '/question/type/match/question.php');
  30  
  31  
  32  /**
  33   * Test helper class for the match question type.
  34   *
  35   * @copyright  2013 The Open University
  36   * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  37   */
  38  class qtype_match_test_helper extends question_test_helper {
  39      public function get_test_questions() {
  40          return array('foursubq');
  41      }
  42  
  43  
  44      /**
  45       * Makes a match question about completing two blanks in some text.
  46       * @return object the question definition data, as it might be returned from
  47       * get_question_options.
  48       */
  49      public function get_match_question_data_foursubq() {
  50          global $USER;
  51          $q = new stdClass();
  52          test_question_maker::initialise_question_data($q);
  53          $q->name = 'Matching question';
  54          $q->qtype = 'match';
  55          $q->parent = 0;
  56          $q->questiontext = 'Classify the animals.';
  57          $q->questiontextformat = FORMAT_HTML;
  58          $q->generalfeedback = 'General feedback.';
  59          $q->generalfeedbackformat = FORMAT_HTML;
  60          $q->defaultmark = 1;
  61          $q->penalty = 0.3333333;
  62          $q->length = 1;
  63          $q->hidden = 0;
  64          $q->createdby = $USER->id;
  65          $q->modifiedby = $USER->id;
  66  
  67          $q->options = new stdClass();
  68          $q->options->shuffleanswers = 1;
  69          test_question_maker::set_standard_combined_feedback_fields($q->options);
  70  
  71          $q->options->subquestions = array(
  72              14 => (object) array(
  73                  'id' => 14,
  74                  'questiontext' => 'frog',
  75                  'questiontextformat' => FORMAT_HTML,
  76                  'answertext' => 'amphibian'),
  77              15 => (object) array(
  78                  'id' => 15,
  79                  'questiontext' => 'cat',
  80                  'questiontextformat' => FORMAT_HTML,
  81                  'answertext' => 'mammal'),
  82              16 => (object) array(
  83                  'id' => 16,
  84                  'questiontext' => 'newt',
  85                  'questiontextformat' => FORMAT_HTML,
  86                  'answertext' => 'amphibian'),
  87              17 => (object) array(
  88                  'id' => 17,
  89                  'questiontext' => '',
  90                  'questiontextformat' => FORMAT_HTML,
  91                  'answertext' => 'insect'),
  92          );
  93  
  94          return $q;
  95      }
  96  
  97      /**
  98       * Makes a match question about completing two blanks in some text.
  99       * @return object the question definition data, as it might be returned from
 100       *      the question editing form.
 101       */
 102      public function get_match_question_form_data_foursubq() {
 103          $q = new stdClass();
 104          $q->name = 'Matching question';
 105          $q->questiontext = array('text' => 'Classify the animals.', 'format' => FORMAT_HTML);
 106          $q->generalfeedback = array('text' => 'General feedback.', 'format' => FORMAT_HTML);
 107          $q->defaultmark = 1;
 108          $q->penalty = 0.3333333;
 109  
 110          $q->shuffleanswers = 1;
 111          test_question_maker::set_standard_combined_feedback_form_data($q);
 112  
 113          $q->subquestions = array(
 114              0 => array('text' => 'frog', 'format' => FORMAT_HTML),
 115              1 => array('text' => 'cat', 'format' => FORMAT_HTML),
 116              2 => array('text' => 'newt', 'format' => FORMAT_HTML),
 117              3 => array('text' => '', 'format' => FORMAT_HTML));
 118  
 119          $q->subanswers = array(
 120              0 => 'amphibian',
 121              1 => 'mammal',
 122              2 => 'amphibian',
 123              3 => 'insect'
 124          );
 125  
 126          $q->noanswers = 4;
 127  
 128          return $q;
 129      }
 130  
 131  }