From: tjhunt <tjhunt>
Date: Tue, 1 Jul 2008 10:54:55 +0000 (+0000)
Subject: Another unit test.
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=7ddafd1bc81082e36c279cd9e7681a9e02c7449b;p=moodle.git

Another unit test.
---

diff --git a/question/type/shortanswer/simpletest/testquestiontype.php b/question/type/shortanswer/simpletest/testquestiontype.php
index 571b9ec0a6..00cffdc99f 100644
--- a/question/type/shortanswer/simpletest/testquestiontype.php
+++ b/question/type/shortanswer/simpletest/testquestiontype.php
@@ -68,6 +68,21 @@ class question_shortanswer_qtype_test extends UnitTestCase {
         $this->assertTrue($this->qtype->compare_string_with_wildcard('\{}/', '\{}/', true));
     }
 
+    function test_test_response() {
+        $answer = new stdClass;
+        $answer->id = 1;
+        $answer->answer = 'entrance';
+        $answer->fraction = 1;
+        $question = new stdClass;
+        $question->options->answers = array(
+            1 => $answer,
+        );
+        $question->options->usecase = 0;
+        $state = new stdClass;
+        $state->responses[''] = 'Entrance';
+        $this->assertTrue($this->qtype->test_response($question, $state, $answer));
+    }
+
     function test_get_correct_responses() {
         $answer1 = new stdClass;
         $answer1->id = 17;