Improved moodlelib_test to illustrate wrong style of writing unit tests
[moodle.git] / lib / simpletest / testmoodlelib.php
CommitLineData
8926f844 1<?php
d499142e 2
3///////////////////////////////////////////////////////////////////////////
4// //
5// NOTICE OF COPYRIGHT //
6// //
7// Moodle - Modular Object-Oriented Dynamic Learning Environment //
8// http://moodle.org //
9// //
56a1a882 10// Copyright (C) 1999 onwards Martin Dougiamas http://dougiamas.com //
d499142e 11// //
12// This program is free software; you can redistribute it and/or modify //
13// it under the terms of the GNU General Public License as published by //
14// the Free Software Foundation; either version 2 of the License, or //
15// (at your option) any later version. //
16// //
17// This program is distributed in the hope that it will be useful, //
18// but WITHOUT ANY WARRANTY; without even the implied warranty of //
19// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //
20// GNU General Public License for more details: //
21// //
22// http://www.gnu.org/copyleft/gpl.html //
23// //
24///////////////////////////////////////////////////////////////////////////
25
7c9d46c9 26/**
27 * Unit tests for (some of) ../moodlelib.php.
28 *
bb45fe62 29 * Note, tests for get_string are in the separate file testgetstring.php.
30 *
7c9d46c9 31 * @copyright &copy; 2006 The Open University
32 * @author T.J.Hunt@open.ac.uk
d499142e 33 * @author nicolas@moodle.com
7c9d46c9 34 * @license http://www.gnu.org/copyleft/gpl.html GNU Public License
35 * @package moodlecore
36 */
37
cdbbd26f 38if (!defined('MOODLE_INTERNAL')) {
39 die('Direct access to this script is forbidden.'); /// It must be included from a Moodle page
40}
7c9d46c9 41
7c9d46c9 42require_once($CFG->libdir . '/moodlelib.php');
43
cc4245a3 44class moodlelib_test extends UnitTestCase {
b9c639d6 45
081a63a9 46 public static $includecoverage = array('lib/moodlelib.php');
db3a1eb8 47
a205dcdc 48 var $user_agents = array(
49 'MSIE' => array(
50 '5.5' => array('Windows 2000' => 'Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)'),
51 '6.0' => array('Windows XP SP2' => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)'),
ec012320 52 '7.0' => array('Windows XP SP2' => 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; YPC 3.0.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)'),
53 '8.0' => array('Windows Vista' => 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 1.1.4322; .NET CLR 3.0.04506.30; .NET CLR 3.0.04506.648)'),
54
b9c639d6 55 ),
a205dcdc 56 'Firefox' => array(
57 '1.0.6' => array('Windows XP' => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.10) Gecko/20050716 Firefox/1.0.6'),
58 '1.5' => array('Windows XP' => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8) Gecko/20051107 Firefox/1.5'),
59 '1.5.0.1' => array('Windows XP' => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1'),
60 '2.0' => array('Windows XP' => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1',
ec012320 61 'Ubuntu Linux AMD64' => 'Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.8.1) Gecko/20060601 Firefox/2.0 (Ubuntu-edgy)'),
62 '3.0.6' => array('SUSE' => 'Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.0.6) Gecko/2009012700 SUSE/3.0.6-1.4 Firefox/3.0.6'),
a205dcdc 63 ),
64 'Safari' => array(
65 '312' => array('Mac OS X' => 'Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-us) AppleWebKit/312.1 (KHTML, like Gecko) Safari/312'),
66 '2.0' => array('Mac OS X' => 'Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/412 (KHTML, like Gecko) Safari/412')
67 ),
68 'Opera' => array(
69 '8.51' => array('Windows XP' => 'Opera/8.51 (Windows NT 5.1; U; en)'),
70 '9.0' => array('Windows XP' => 'Opera/9.0 (Windows NT 5.1; U; en)',
71 'Debian Linux' => 'Opera/9.01 (X11; Linux i686; U; en)')
72 )
73 );
b9c639d6 74
65de6864 75 function test_cleanremoteaddr() {
76 //IPv4
77 $this->assertEqual(cleanremoteaddr('1023.121.234.1'), null);
78 $this->assertEqual(cleanremoteaddr('123.121.234.01 '), '123.121.234.1');
79
80 //IPv6
81 $this->assertEqual(cleanremoteaddr('0:0:0:0:0:0:0:0:0'), null);
82 $this->assertEqual(cleanremoteaddr('0:0:0:0:0:0:0:abh'), null);
83 $this->assertEqual(cleanremoteaddr('0:0:0:::0:0:1'), null);
84 $this->assertEqual(cleanremoteaddr('0:0:0:0:0:0:0:0', true), '::');
85 $this->assertEqual(cleanremoteaddr('0:0:0:0:0:0:1:1', true), '::1:1');
86 $this->assertEqual(cleanremoteaddr('abcd:00ef:0:0:0:0:0:0', true), 'abcd:ef::');
87 $this->assertEqual(cleanremoteaddr('1:0:0:0:0:0:0:1', true), '1::1');
88 $this->assertEqual(cleanremoteaddr('::10:1', false), '0:0:0:0:0:0:10:1');
89 $this->assertEqual(cleanremoteaddr('01:1::', false), '1:1:0:0:0:0:0:0');
90 $this->assertEqual(cleanremoteaddr('10::10', false), '10:0:0:0:0:0:0:10');
91 $this->assertEqual(cleanremoteaddr('::ffff:192.168.1.1', true), '::ffff:c0a8:11');
92 }
93
7c9d46c9 94 function test_address_in_subnet() {
e70da470 95 /// 1: xxx.xxx.xxx.xxx/nn or xxxx:xxxx:xxxx:xxxx:xxxx:xxxx:xxxx/nnn (number of bits in net mask)
96 $this->assertTrue(address_in_subnet('123.121.234.1', '123.121.234.1/32'));
97 $this->assertFalse(address_in_subnet('123.121.23.1', '123.121.23.0/32'));
98 $this->assertTrue(address_in_subnet('10.10.10.100', '123.121.23.45/0'));
99 $this->assertTrue(address_in_subnet('123.121.234.1', '123.121.234.0/24'));
100 $this->assertFalse(address_in_subnet('123.121.34.1', '123.121.234.0/24'));
101 $this->assertTrue(address_in_subnet('123.121.234.1', '123.121.234.0/30'));
102 $this->assertFalse(address_in_subnet('123.121.23.8', '123.121.23.0/30'));
103 $this->assertTrue(address_in_subnet('baba:baba::baba', 'baba:baba::baba/128'));
104 $this->assertFalse(address_in_subnet('bab:baba::baba', 'bab:baba::cece/128'));
105 $this->assertTrue(address_in_subnet('baba:baba::baba', 'cece:cece::cece/0'));
106 $this->assertTrue(address_in_subnet('baba:baba::baba', 'baba:baba::baba/128'));
107 $this->assertTrue(address_in_subnet('baba:baba::00ba', 'baba:baba::/120'));
108 $this->assertFalse(address_in_subnet('baba:baba::aba', 'baba:baba::/120'));
109 $this->assertTrue(address_in_subnet('baba::baba:00ba', 'baba::baba:0/112'));
110 $this->assertFalse(address_in_subnet('baba::aba:00ba', 'baba::baba:0/112'));
111 $this->assertFalse(address_in_subnet('aba::baba:0000', 'baba::baba:0/112'));
112
113 // fixed input
114 $this->assertTrue(address_in_subnet('123.121.23.1 ', ' 123.121.23.0 / 24'));
115 $this->assertTrue(address_in_subnet('::ffff:10.1.1.1', ' 0:0:0:000:0:ffff:a1:10 / 126'));
116
117 // incorrect input
118 $this->assertFalse(address_in_subnet('123.121.234.1', '123.121.234.1/-2'));
119 $this->assertFalse(address_in_subnet('123.121.234.1', '123.121.234.1/64'));
120 $this->assertFalse(address_in_subnet('123.121.234.x', '123.121.234.1/24'));
121 $this->assertFalse(address_in_subnet('123.121.234.0', '123.121.234.xx/24'));
122 $this->assertFalse(address_in_subnet('123.121.234.1', '123.121.234.1/xx0'));
123 $this->assertFalse(address_in_subnet('::1', '::aa:0/xx0'));
124 $this->assertFalse(address_in_subnet('::1', '::aa:0/-5'));
125 $this->assertFalse(address_in_subnet('::1', '::aa:0/130'));
126 $this->assertFalse(address_in_subnet('x:1', '::aa:0/130'));
127 $this->assertFalse(address_in_subnet('::1', '::ax:0/130'));
128
129
130 /// 2: xxx.xxx.xxx.xxx-yyy or xxxx:xxxx:xxxx:xxxx:xxxx:xxxx:xxxx::xxxx-yyyy (a range of IP addresses in the last group)
131 $this->assertTrue(address_in_subnet('123.121.234.12', '123.121.234.12-14'));
132 $this->assertTrue(address_in_subnet('123.121.234.13', '123.121.234.12-14'));
133 $this->assertTrue(address_in_subnet('123.121.234.14', '123.121.234.12-14'));
134 $this->assertFalse(address_in_subnet('123.121.234.1', '123.121.234.12-14'));
135 $this->assertFalse(address_in_subnet('123.121.234.20', '123.121.234.12-14'));
136 $this->assertFalse(address_in_subnet('123.121.23.12', '123.121.234.12-14'));
137 $this->assertFalse(address_in_subnet('123.12.234.12', '123.121.234.12-14'));
138 $this->assertTrue(address_in_subnet('baba:baba::baba', 'baba:baba::baba-babe'));
139 $this->assertTrue(address_in_subnet('baba:baba::babc', 'baba:baba::baba-babe'));
140 $this->assertTrue(address_in_subnet('baba:baba::babe', 'baba:baba::baba-babe'));
141 $this->assertFalse(address_in_subnet('bab:baba::bab0', 'bab:baba::baba-babe'));
142 $this->assertFalse(address_in_subnet('bab:baba::babf', 'bab:baba::baba-babe'));
143 $this->assertFalse(address_in_subnet('bab:baba::bfbe', 'bab:baba::baba-babe'));
144 $this->assertFalse(address_in_subnet('bfb:baba::babe', 'bab:baba::baba-babe'));
145
146 // fixed input
147 $this->assertTrue(address_in_subnet('123.121.234.12', '123.121.234.12 - 14 '));
148 $this->assertTrue(address_in_subnet('bab:baba::babe', 'bab:baba::baba - babe '));
149
150 // incorrect input
151 $this->assertFalse(address_in_subnet('123.121.234.12', '123.121.234.12-234.14'));
152 $this->assertFalse(address_in_subnet('123.121.234.12', '123.121.234.12-256'));
153 $this->assertFalse(address_in_subnet('123.121.234.12', '123.121.234.12--256'));
154
155
156 /// 3: xxx.xxx or xxx.xxx. or xxx:xxx:xxxx or xxx:xxx:xxxx. (incomplete address, a bit non-technical ;-)
157 $this->assertTrue(address_in_subnet('123.121.234.12', '123.121.234.12'));
158 $this->assertFalse(address_in_subnet('123.121.23.12', '123.121.23.13'));
159 $this->assertTrue(address_in_subnet('123.121.234.12', '123.121.234.'));
160 $this->assertTrue(address_in_subnet('123.121.234.12', '123.121.234'));
161 $this->assertTrue(address_in_subnet('123.121.234.12', '123.121'));
162 $this->assertTrue(address_in_subnet('123.121.234.12', '123'));
163 $this->assertFalse(address_in_subnet('123.121.234.1', '12.121.234.'));
164 $this->assertFalse(address_in_subnet('123.121.234.1', '12.121.234'));
165 $this->assertTrue(address_in_subnet('baba:baba::bab', 'baba:baba::bab'));
166 $this->assertFalse(address_in_subnet('baba:baba::ba', 'baba:baba::bc'));
167 $this->assertTrue(address_in_subnet('baba:baba::bab', 'baba:baba'));
168 $this->assertTrue(address_in_subnet('baba:baba::bab', 'baba:'));
169 $this->assertFalse(address_in_subnet('bab:baba::bab', 'baba:'));
170
171
172 /// multiple subnets
173 $this->assertTrue(address_in_subnet('123.121.234.12', '::1/64, 124., 123.121.234.10-30'));
174 $this->assertTrue(address_in_subnet('124.121.234.12', '::1/64, 124., 123.121.234.10-30'));
175 $this->assertTrue(address_in_subnet('::2', '::1/64, 124., 123.121.234.10-30'));
176 $this->assertFalse(address_in_subnet('12.121.234.12', '::1/64, 124., 123.121.234.10-30'));
177
178
179 /// other incorrect input
180 $this->assertFalse(address_in_subnet('123.123.123.123', ''));
7c9d46c9 181 }
b9c639d6 182
239c1576 183 /**
b9c639d6 184 * Modifies $_SERVER['HTTP_USER_AGENT'] manually to check if check_browser_version
239c1576 185 * works as expected.
186 */
187 function test_check_browser_version()
188 {
a205dcdc 189 global $CFG;
b9c639d6 190
191 $_SERVER['HTTP_USER_AGENT'] = $this->user_agents['Safari']['2.0']['Mac OS X'];
239c1576 192 $this->assertTrue(check_browser_version('Safari', '312'));
193 $this->assertFalse(check_browser_version('Safari', '500'));
b9c639d6 194
a205dcdc 195 $_SERVER['HTTP_USER_AGENT'] = $this->user_agents['Opera']['9.0']['Windows XP'];
239c1576 196 $this->assertTrue(check_browser_version('Opera', '8.0'));
197 $this->assertFalse(check_browser_version('Opera', '10.0'));
b9c639d6 198
a205dcdc 199 $_SERVER['HTTP_USER_AGENT'] = $this->user_agents['MSIE']['6.0']['Windows XP SP2'];
239c1576 200 $this->assertTrue(check_browser_version('MSIE', '5.0'));
201 $this->assertFalse(check_browser_version('MSIE', '7.0'));
b9c639d6 202
a205dcdc 203 $_SERVER['HTTP_USER_AGENT'] = $this->user_agents['Firefox']['2.0']['Windows XP'];
239c1576 204 $this->assertTrue(check_browser_version('Firefox', '1.5'));
b9c639d6 205 $this->assertFalse(check_browser_version('Firefox', '3.0'));
d499142e 206 }
b9c639d6 207
ec012320 208 function test_get_browser_version_classes() {
209 $_SERVER['HTTP_USER_AGENT'] = $this->user_agents['Safari']['2.0']['Mac OS X'];
89fbdca3 210 $this->assertEqual(array('safari'), get_browser_version_classes());
ec012320 211
212 $_SERVER['HTTP_USER_AGENT'] = $this->user_agents['Opera']['9.0']['Windows XP'];
89fbdca3 213 $this->assertEqual(array('opera'), get_browser_version_classes());
ec012320 214
215 $_SERVER['HTTP_USER_AGENT'] = $this->user_agents['MSIE']['6.0']['Windows XP SP2'];
89fbdca3 216 $this->assertEqual(array('ie', 'ie6'), get_browser_version_classes());
ec012320 217
218 $_SERVER['HTTP_USER_AGENT'] = $this->user_agents['MSIE']['7.0']['Windows XP SP2'];
89fbdca3 219 $this->assertEqual(array('ie', 'ie7'), get_browser_version_classes());
ec012320 220
221 $_SERVER['HTTP_USER_AGENT'] = $this->user_agents['MSIE']['8.0']['Windows Vista'];
89fbdca3 222 $this->assertEqual(array('ie', 'ie8'), get_browser_version_classes());
ec012320 223
224 $_SERVER['HTTP_USER_AGENT'] = $this->user_agents['Firefox']['2.0']['Windows XP'];
89fbdca3 225 $this->assertEqual(array('gecko', 'gecko18'), get_browser_version_classes());
ec012320 226
227 $_SERVER['HTTP_USER_AGENT'] = $this->user_agents['Firefox']['3.0.6']['SUSE'];
89fbdca3 228 $this->assertEqual(array('gecko', 'gecko19'), get_browser_version_classes());
ec012320 229 }
230
a3f7cbf6 231 function test_optional_param() {
b9c639d6 232 $_POST['username'] = 'post_user';
facb512c 233 $_GET['username'] = 'get_user';
04b32359 234 $this->assertEqual(optional_param('username', 'default_user', PARAM_RAW), 'post_user');
b9c639d6 235
facb512c 236 unset($_POST['username']);
04b32359 237 $this->assertEqual(optional_param('username', 'default_user', PARAM_RAW), 'get_user');
b9c639d6 238
facb512c 239 unset($_GET['username']);
04b32359 240 $this->assertEqual(optional_param('username', 'default_user', PARAM_RAW), 'default_user');
facb512c 241 }
b9c639d6 242
14f3ad15 243 function test_clean_param_raw() {
b9c639d6 244 $this->assertEqual(clean_param('#()*#,9789\'".,<42897></?$(*DSFMO#$*)(SDJ)($*)', PARAM_RAW),
facb512c 245 '#()*#,9789\'".,<42897></?$(*DSFMO#$*)(SDJ)($*)');
14f3ad15 246 }
b9c639d6 247
14f3ad15 248 function test_clean_param_clean() {
fb59f2f1
PS
249 // PARAM_CLEAN is an ugly hack, do not use in new code (skodak)
250 // instead use more specific type, or submit sothing that can be verified properly
04b32359 251 $this->assertEqual(clean_param('xx<script>', PARAM_CLEAN), 'xx');
14f3ad15
TH
252 }
253
254 function test_clean_param_alpha() {
255 $this->assertEqual(clean_param('#()*#,9789\'".,<42897></?$(*DSFMO#$*)(SDJ)($*)', PARAM_ALPHA),
256 'DSFMOSDJ');
257 }
258
259 function test_clean_param_alphanum() {
260 $this->assertEqual(clean_param('#()*#,9789\'".,<42897></?$(*DSFMO#$*)(SDJ)($*)', PARAM_ALPHANUM),
261 '978942897DSFMOSDJ');
262 }
263
264 function test_clean_param_alphaext() {
265 $this->assertEqual(clean_param('#()*#,9789\'".,<42897></?$(*DSFMO#$*)(SDJ)($*)', PARAM_ALPHAEXT),
266 'DSFMOSDJ');
267 }
c7fd861b 268
14f3ad15
TH
269 function test_clean_param_sequence() {
270 $this->assertEqual(clean_param('#()*#,9789\'".,<42897></?$(*DSFMO#$*)(SDJ)($*)', PARAM_SEQUENCE),
271 ',9789,42897');
272 }
273
b6059edc
PS
274 function test_clean_param_text() {
275 $this->assertEqual(PARAM_TEXT, PARAM_MULTILANG);
276 //standard
277 $this->assertEqual(clean_param('xx<lang lang="en">aa</lang><lang lang="yy">pp</lang>', PARAM_TEXT), 'xx<lang lang="en">aa</lang><lang lang="yy">pp</lang>');
278 $this->assertEqual(clean_param('<span lang="en" class="multilang">aa</span><span lang="xy" class="multilang">bb</span>', PARAM_TEXT), '<span lang="en" class="multilang">aa</span><span lang="xy" class="multilang">bb</span>');
279 $this->assertEqual(clean_param('xx<lang lang="en">aa'."\n".'</lang><lang lang="yy">pp</lang>', PARAM_TEXT), 'xx<lang lang="en">aa'."\n".'</lang><lang lang="yy">pp</lang>');
280 //malformed
281 $this->assertEqual(clean_param('<span lang="en" class="multilang">aa</span>', PARAM_TEXT), '<span lang="en" class="multilang">aa</span>');
282 $this->assertEqual(clean_param('<span lang="en" class="nothing" class="multilang">aa</span>', PARAM_TEXT), 'aa');
283 $this->assertEqual(clean_param('<lang lang="en" class="multilang">aa</lang>', PARAM_TEXT), 'aa');
284 $this->assertEqual(clean_param('<lang lang="en!!">aa</lang>', PARAM_TEXT), 'aa');
285 $this->assertEqual(clean_param('<span lang="en==" class="multilang">aa</span>', PARAM_TEXT), 'aa');
286 $this->assertEqual(clean_param('a<em>b</em>c', PARAM_TEXT), 'abc');
287 $this->assertEqual(clean_param('a><xx >c>', PARAM_TEXT), 'a>c>'); // standard strip_tags() behaviour
288 $this->assertEqual(clean_param('a<b', PARAM_TEXT), 'a');
289 $this->assertEqual(clean_param('a>b', PARAM_TEXT), 'a>b');
290 $this->assertEqual(clean_param('<lang lang="en">a>a</lang>', PARAM_TEXT), '<lang lang="en">a>a</lang>'); // standard strip_tags() behaviour
291 $this->assertEqual(clean_param('<lang lang="en">a<a</lang>', PARAM_TEXT), 'a');
292 $this->assertEqual(clean_param('<lang lang="en">a<br>a</lang>', PARAM_TEXT), '<lang lang="en">aa</lang>');
293 }
294
14f3ad15 295 function test_clean_param_url() {
c7fd861b 296 // Test PARAM_URL and PARAM_LOCALURL a bit
297 $this->assertEqual(clean_param('http://google.com/', PARAM_URL), 'http://google.com/');
298 $this->assertEqual(clean_param('http://some.very.long.and.silly.domain/with/a/path/', PARAM_URL), 'http://some.very.long.and.silly.domain/with/a/path/');
299 $this->assertEqual(clean_param('http://localhost/', PARAM_URL), 'http://localhost/');
300 $this->assertEqual(clean_param('http://0.255.1.1/numericip.php', PARAM_URL), 'http://0.255.1.1/numericip.php');
301 $this->assertEqual(clean_param('/just/a/path', PARAM_URL), '/just/a/path');
302 $this->assertEqual(clean_param('funny:thing', PARAM_URL), '');
14f3ad15 303 }
c7fd861b 304
14f3ad15
TH
305 function test_clean_param_localurl() {
306 global $CFG;
c7fd861b 307 $this->assertEqual(clean_param('http://google.com/', PARAM_LOCALURL), '');
308 $this->assertEqual(clean_param('http://some.very.long.and.silly.domain/with/a/path/', PARAM_LOCALURL), '');
309 $this->assertEqual(clean_param($CFG->wwwroot, PARAM_LOCALURL), $CFG->wwwroot);
310 $this->assertEqual(clean_param('/just/a/path', PARAM_LOCALURL), '/just/a/path');
311 $this->assertEqual(clean_param('funny:thing', PARAM_LOCALURL), '');
4bea5e85 312 $this->assertEqual(clean_param('course/view.php?id=3', PARAM_LOCALURL), 'course/view.php?id=3');
14f3ad15 313 }
07ed083e 314
14f3ad15
TH
315 function test_clean_param_file() {
316 $this->assertEqual(clean_param('correctfile.txt', PARAM_FILE), 'correctfile.txt');
317 $this->assertEqual(clean_param('b\'a<d`\\/fi:l>e.t"x|t', PARAM_FILE), 'badfile.txt');
318 $this->assertEqual(clean_param('../parentdirfile.txt', PARAM_FILE), 'parentdirfile.txt');
319 //The following behaviours have been maintained although they seem a little odd
320 $this->assertEqual(clean_param('funny:thing', PARAM_FILE), 'funnything');
321 $this->assertEqual(clean_param('./currentdirfile.txt', PARAM_FILE), '.currentdirfile.txt');
322 $this->assertEqual(clean_param('c:\temp\windowsfile.txt', PARAM_FILE), 'ctempwindowsfile.txt');
323 $this->assertEqual(clean_param('/home/user/linuxfile.txt', PARAM_FILE), 'homeuserlinuxfile.txt');
324 $this->assertEqual(clean_param('~/myfile.txt', PARAM_FILE), '~myfile.txt');
325 }
326
327 function test_clean_param_username() {
328 global $CFG;
07ed083e 329 $currentstatus = $CFG->extendedusernamechars;
14f3ad15 330
07ed083e
RW
331 // Run tests with extended character == FALSE;
332 $CFG->extendedusernamechars = FALSE;
333 $this->assertEqual(clean_param('johndoe123', PARAM_USERNAME), 'johndoe123' );
334 $this->assertEqual(clean_param('john.doe', PARAM_USERNAME), 'john.doe');
335 $this->assertEqual(clean_param('john-doe', PARAM_USERNAME), 'john-doe');
336 $this->assertEqual(clean_param('john- doe', PARAM_USERNAME), 'john-doe');
337 $this->assertEqual(clean_param('john_doe', PARAM_USERNAME), 'john_doe');
338 $this->assertEqual(clean_param('john@doe', PARAM_USERNAME), 'john@doe');
339 $this->assertEqual(clean_param('john~doe', PARAM_USERNAME), 'johndoe');
340 $this->assertEqual(clean_param('john´doe', PARAM_USERNAME), 'johndoe');
341 $this->assertEqual(clean_param('john#$%&() ', PARAM_USERNAME), 'john');
34d2b19a
RW
342 $this->assertEqual(clean_param('JOHNdóé ', PARAM_USERNAME), 'johnd');
343 $this->assertEqual(clean_param('john.,:;-_/|\ñÑ[]A_X-,D {} ~!@#$%^&*()_+ ?><[] ščřžžý ?ýá\9e?\9eý??\9adoe ', PARAM_USERNAME), 'john.-_a_x-d@_doe');
04b32359 344
07ed083e
RW
345
346 // Test success condition, if extendedusernamechars == ENABLE;
347 $CFG->extendedusernamechars = TRUE;
348 $this->assertEqual(clean_param('john_doe', PARAM_USERNAME), 'john_doe');
349 $this->assertEqual(clean_param('john@doe', PARAM_USERNAME), 'john@doe');
350 $this->assertEqual(clean_param('john# $%&()+_^', PARAM_USERNAME), 'john#$%&()+_^');
351 $this->assertEqual(clean_param('john~doe', PARAM_USERNAME), 'john~doe');
34d2b19a
RW
352 $this->assertEqual(clean_param('joHN´doe', PARAM_USERNAME), 'john´doe');
353 $this->assertEqual(clean_param('johnDOE', PARAM_USERNAME), 'johndoe');
07ed083e 354 $this->assertEqual(clean_param('johndóé ', PARAM_USERNAME), 'johndóé');
04b32359 355
07ed083e 356 $CFG->extendedusernamechars = $currentstatus;
14f3ad15 357 }
fe6a248f 358
14f3ad15 359 function test_clean_param_stringid() {
fe6a248f
DM
360 // Test string identifiers validation
361 // valid strings:
362 $this->assertEqual(clean_param('validstring', PARAM_STRINGID), 'validstring');
363 $this->assertEqual(clean_param('mod/foobar:valid_capability', PARAM_STRINGID), 'mod/foobar:valid_capability');
364 $this->assertEqual(clean_param('CZ', PARAM_STRINGID), 'CZ');
365 $this->assertEqual(clean_param('application/vnd.ms-powerpoint', PARAM_STRINGID), 'application/vnd.ms-powerpoint');
366 $this->assertEqual(clean_param('grade2', PARAM_STRINGID), 'grade2');
367 // invalid strings:
368 $this->assertEqual(clean_param('trailing ', PARAM_STRINGID), '');
369 $this->assertEqual(clean_param('space bar', PARAM_STRINGID), '');
370 $this->assertEqual(clean_param('0numeric', PARAM_STRINGID), '');
371 $this->assertEqual(clean_param('*', PARAM_STRINGID), '');
372 $this->assertEqual(clean_param(' ', PARAM_STRINGID), '');
facb512c 373 }
56a1a882 374
a3f7cbf6 375 function test_validate_param() {
376 try {
377 $param = validate_param('11a', PARAM_INT);
378 $this->fail('invalid_parameter_exception expected');
379 } catch (invalid_parameter_exception $ex) {
380 $this->assertTrue(true);
381 }
382 try {
383 $param = validate_param('11', PARAM_INT);
384 $this->assertEqual($param, 11);
385 } catch (invalid_parameter_exception $ex) {
386 $this->fail('invalid_parameter_exception not expected');
387 }
388 try {
389 $param = validate_param(null, PARAM_INT, false);
390 $this->fail('invalid_parameter_exception expected');
391 } catch (invalid_parameter_exception $ex) {
392 $this->assertTrue(true);
393 }
394 try {
395 $param = validate_param(null, PARAM_INT, true);
396 $this->assertTrue($param===null);
397 } catch (invalid_parameter_exception $ex) {
398 $this->fail('invalid_parameter_exception expected');
399 }
400 try {
401 $param = validate_param(array(), PARAM_INT);
402 $this->fail('invalid_parameter_exception expected');
403 } catch (invalid_parameter_exception $ex) {
404 $this->assertTrue(true);
405 }
406 try {
407 $param = validate_param(new stdClass, PARAM_INT);
408 $this->fail('invalid_parameter_exception expected');
409 } catch (invalid_parameter_exception $ex) {
410 $this->assertTrue(true);
411 }
412 }
413
9467db39 414 function test_shorten_text() {
415 $text = "short text already no tags";
416 $this->assertEqual($text, shorten_text($text));
417
418 $text = "<p>short <b>text</b> already</p><p>with tags</p>";
419 $this->assertEqual($text, shorten_text($text));
420
421 $text = "long text without any tags blah de blah blah blah what";
422 $this->assertEqual('long text without any tags ...', shorten_text($text));
423
424 $text = "<div class='frog'><p><blockquote>Long text with tags that will ".
425 "be chopped off but <b>should be added back again</b></blockquote></p></div>";
426 $this->assertEqual("<div class='frog'><p><blockquote>Long text with " .
427 "tags that ...</blockquote></p></div>", shorten_text($text));
428
429 $text = "some text which shouldn't &nbsp; break there";
8926f844 430 $this->assertEqual("some text which shouldn't &nbsp; ...",
9467db39 431 shorten_text($text, 31));
8926f844 432 $this->assertEqual("some text which shouldn't ...",
9467db39 433 shorten_text($text, 30));
8926f844 434
9467db39 435 // This case caused a bug up to 1.9.5
436 $text = "<h3>standard 'break-out' sub groups in TGs?</h3>&nbsp;&lt;&lt;There are several";
437 $this->assertEqual("<h3>standard 'break-out' sub groups in ...</h3>",
438 shorten_text($text, 43));
1fca8fa5
AD
439
440 $text = "<h1>123456789</h1>";//a string with no convenient breaks
441 $this->assertEqual("<h1>12345...</h1>",
442 shorten_text($text, 8));
9467db39 443 }
444
24d38a6e 445 function test_usergetdate() {
11cca21e
AD
446 global $USER;
447
448 $userstimezone = $USER->timezone;
449 $USER->timezone = 2;//set the timezone to a known state
450
24d38a6e
AD
451 $ts = 1261540267; //the time this function was created
452
11cca21e 453 $arr = usergetdate($ts,1);//specify the timezone as an argument
24d38a6e
AD
454 $arr = array_values($arr);
455
456 list($seconds,$minutes,$hours,$mday,$wday,$mon,$year,$yday,$weekday,$month) = $arr;
457 $this->assertEqual($seconds,7);
458 $this->assertEqual($minutes,51);
459 $this->assertEqual($hours,4);
460 $this->assertEqual($mday,23);
461 $this->assertEqual($wday,3);
462 $this->assertEqual($mon,12);
463 $this->assertEqual($year,2009);
464 $this->assertEqual($yday,357);
e54c41da
DM
465 $this->assertEqual($weekday,'Středa');
466 $this->assertEqual($month,'prosinec');
24d38a6e 467
11cca21e 468 $arr = usergetdate($ts);//gets the timezone from the $USER object
24d38a6e
AD
469 $arr = array_values($arr);
470
471 list($seconds,$minutes,$hours,$mday,$wday,$mon,$year,$yday,$weekday,$month) = $arr;
472 $this->assertEqual($seconds,7);
473 $this->assertEqual($minutes,51);
11cca21e 474 $this->assertEqual($hours,5);
24d38a6e
AD
475 $this->assertEqual($mday,23);
476 $this->assertEqual($wday,3);
477 $this->assertEqual($mon,12);
478 $this->assertEqual($year,2009);
11cca21e 479 $this->assertEqual($yday,357);
e54c41da
DM
480 $this->assertEqual($weekday,'Středa');
481 $this->assertEqual($month,'prosinec');
11cca21e
AD
482
483 //set the timezone back to what it was
484 $USER->timezone = $userstimezone;
24d38a6e 485 }
7c9d46c9 486}