| Línea 31... |
Línea 31... |
| 31 |
* @package mod_lesson
|
31 |
* @package mod_lesson
|
| 32 |
* @category test
|
32 |
* @category test
|
| 33 |
* @copyright 2015 Jean-Michel Vedrine
|
33 |
* @copyright 2015 Jean-Michel Vedrine
|
| 34 |
* @license http://www.gnu.org/copyleft/gpl.html GNU Public License
|
34 |
* @license http://www.gnu.org/copyleft/gpl.html GNU Public License
|
| 35 |
*/
|
35 |
*/
|
| 36 |
class pagetypes_test extends \advanced_testcase {
|
36 |
final class pagetypes_test extends \advanced_testcase {
|
| 37 |
public function test_lesson_essay_extract_useranswer(): void {
|
37 |
public function test_lesson_essay_extract_useranswer(): void {
|
| 38 |
// Test that reponseformat is added when not present.
|
38 |
// Test that reponseformat is added when not present.
|
| 39 |
$answer = 'O:8:"stdClass":6:{s:4:"sent";i:1;s:6:"graded";i:1;s:5:"score";s:1:"1";'
|
39 |
$answer = 'O:8:"stdClass":6:{s:4:"sent";i:1;s:6:"graded";i:1;s:5:"score";s:1:"1";'
|
| 40 |
. 's:6:"answer";s:64:"<p>This is my answer <b>with bold</b> and <i>italics</i><br></p>";'
|
40 |
. 's:6:"answer";s:64:"<p>This is my answer <b>with bold</b> and <i>italics</i><br></p>";'
|
| 41 |
. 's:12:"answerformat";s:1:"1";s:8:"response";s:10:"Well done!";}';
|
41 |
. 's:12:"answerformat";s:1:"1";s:8:"response";s:10:"Well done!";}';
|