annotate sites/all/modules/link/tests/link.validate.test @ 4:ce11bbd8f642

added modules
author danieleb <danielebarchiesi@me.com>
date Thu, 19 Sep 2013 10:38:44 +0100
parents
children
rev   line source
danielebarchiesi@4 1 <?php
danielebarchiesi@4 2
danielebarchiesi@4 3 /**
danielebarchiesi@4 4 * @file
danielebarchiesi@4 5 * Tests that exercise the validation functions in the link module.
danielebarchiesi@4 6 */
danielebarchiesi@4 7
danielebarchiesi@4 8 class LinkValidateTestCase extends LinkBaseTestClass {
danielebarchiesi@4 9
danielebarchiesi@4 10 protected function createLink($url, $title, $attributes = array()) {
danielebarchiesi@4 11 return array(
danielebarchiesi@4 12 'url' => $url,
danielebarchiesi@4 13 'title' => $title,
danielebarchiesi@4 14 'attributes' => $attributes,
danielebarchiesi@4 15 );
danielebarchiesi@4 16 }
danielebarchiesi@4 17
danielebarchiesi@4 18 /**
danielebarchiesi@4 19 * Takes a url, and sees if it can validate that the url is valid.
danielebarchiesi@4 20 */
danielebarchiesi@4 21 protected function link_test_validate_url($url) {
danielebarchiesi@4 22
danielebarchiesi@4 23 $field_name = $this->createLinkField();
danielebarchiesi@4 24
danielebarchiesi@4 25 $permission = 'create page content';
danielebarchiesi@4 26 $this->checkPermissions(array($permission), TRUE);
danielebarchiesi@4 27
danielebarchiesi@4 28 $this->drupalGet('node/add/page');
danielebarchiesi@4 29
danielebarchiesi@4 30 $label = $this->randomName();
danielebarchiesi@4 31 $edit = array(
danielebarchiesi@4 32 'title' => $label,
danielebarchiesi@4 33 $field_name . '[und][0][title]' => $label,
danielebarchiesi@4 34 $field_name . '[und][0][url]' => $url,
danielebarchiesi@4 35 );
danielebarchiesi@4 36 $this->drupalPost(NULL, $edit, t('Save'));
danielebarchiesi@4 37 $this->assertRaw(t(' has been created.'), 'Node created');
danielebarchiesi@4 38
danielebarchiesi@4 39 $nid = 1; //$matches[1];
danielebarchiesi@4 40
danielebarchiesi@4 41 $node = node_load($nid);
danielebarchiesi@4 42
danielebarchiesi@4 43 $this->assertEqual($url, $node->{$field_name}['und'][0]['url']);
danielebarchiesi@4 44 }
danielebarchiesi@4 45 }
danielebarchiesi@4 46
danielebarchiesi@4 47 class LinkValidateTest extends LinkValidateTestCase {
danielebarchiesi@4 48
danielebarchiesi@4 49 public static function getInfo() {
danielebarchiesi@4 50 return array(
danielebarchiesi@4 51 'name' => 'Link Validation Tests',
danielebarchiesi@4 52 'description' => 'Tests the field validation.',
danielebarchiesi@4 53 'group' => 'Link',
danielebarchiesi@4 54 );
danielebarchiesi@4 55 }
danielebarchiesi@4 56
danielebarchiesi@4 57 function test_link_validate_basic_url() {
danielebarchiesi@4 58 $this->link_test_validate_url('http://www.example.com');
danielebarchiesi@4 59 }
danielebarchiesi@4 60
danielebarchiesi@4 61 /**
danielebarchiesi@4 62 * Test if we're stopped from posting a bad url on default validation.
danielebarchiesi@4 63 */
danielebarchiesi@4 64 function test_link_validate_bad_url_validate_default() {
danielebarchiesi@4 65 $this->web_user = $this->drupalCreateUser(array('administer content types',
danielebarchiesi@4 66 'administer nodes',
danielebarchiesi@4 67 'administer filters',
danielebarchiesi@4 68 'access content',
danielebarchiesi@4 69 'create page content',
danielebarchiesi@4 70 'access administration pages'));
danielebarchiesi@4 71 $this->drupalLogin($this->web_user);
danielebarchiesi@4 72
danielebarchiesi@4 73 // create field
danielebarchiesi@4 74 $name = strtolower($this->randomName());
danielebarchiesi@4 75 $edit = array(
danielebarchiesi@4 76 'fields[_add_new_field][label]' => $name,
danielebarchiesi@4 77 'fields[_add_new_field][field_name]' => $name,
danielebarchiesi@4 78 'fields[_add_new_field][type]' => 'link_field',
danielebarchiesi@4 79 'fields[_add_new_field][widget_type]' => 'link_field',
danielebarchiesi@4 80 );
danielebarchiesi@4 81 $this->drupalPost('admin/structure/types/manage/page/fields', $edit, t('Save'));
danielebarchiesi@4 82 $this->drupalPost(NULL, array(), t('Save field settings'));
danielebarchiesi@4 83 $this->drupalPost(NULL, array(), t('Save settings'));
danielebarchiesi@4 84
danielebarchiesi@4 85 // Is field created?
danielebarchiesi@4 86 $this->assertRaw(t('Saved %label configuration', array('%label' => $name)), 'Field added');
danielebarchiesi@4 87 node_types_rebuild();
danielebarchiesi@4 88 menu_rebuild();
danielebarchiesi@4 89
danielebarchiesi@4 90 // create page form
danielebarchiesi@4 91 $this->drupalGet('node/add/page');
danielebarchiesi@4 92 $field_name = 'field_' . $name;
danielebarchiesi@4 93 $this->assertField('edit-field-'. $name .'-und-0-title', 'Title found');
danielebarchiesi@4 94 $this->assertField('edit-field-'. $name .'-und-0-url', 'URL found');
danielebarchiesi@4 95
danielebarchiesi@4 96
danielebarchiesi@4 97 $edit = array(
danielebarchiesi@4 98 'title' => 'Simple Title',
danielebarchiesi@4 99 $field_name .'[und][0][url]' => 'edik:naw',
danielebarchiesi@4 100 );
danielebarchiesi@4 101
danielebarchiesi@4 102 $this->drupalPost(NULL, $edit, t('Save'));
danielebarchiesi@4 103 $this->assertText(t('The value provided for @field is not a valid URL.', array('@field' => $name)));
danielebarchiesi@4 104 }
danielebarchiesi@4 105
danielebarchiesi@4 106 /**
danielebarchiesi@4 107 * Test if we're stopped from posting a bad url with validation on.
danielebarchiesi@4 108 */
danielebarchiesi@4 109 function test_link_validate_bad_url_validate_on() {
danielebarchiesi@4 110 $this->web_user = $this->drupalCreateUser(array('administer content types',
danielebarchiesi@4 111 'administer nodes',
danielebarchiesi@4 112 'administer filters',
danielebarchiesi@4 113 'access content',
danielebarchiesi@4 114 'create page content',
danielebarchiesi@4 115 'access administration pages'));
danielebarchiesi@4 116 $this->drupalLogin($this->web_user);
danielebarchiesi@4 117
danielebarchiesi@4 118 // create field
danielebarchiesi@4 119 $name = strtolower($this->randomName());
danielebarchiesi@4 120 $edit = array(
danielebarchiesi@4 121 'fields[_add_new_field][label]' => $name,
danielebarchiesi@4 122 'fields[_add_new_field][field_name]' => $name,
danielebarchiesi@4 123 'fields[_add_new_field][type]' => 'link_field',
danielebarchiesi@4 124 'fields[_add_new_field][widget_type]' => 'link_field',
danielebarchiesi@4 125 );
danielebarchiesi@4 126 $this->drupalPost('admin/structure/types/manage/page/fields', $edit, t('Save'));
danielebarchiesi@4 127 $this->drupalPost(NULL, array(), t('Save field settings'));
danielebarchiesi@4 128 $this->drupalPost(NULL, array('instance[settings][validate_url]' => TRUE), t('Save settings'));
danielebarchiesi@4 129
danielebarchiesi@4 130 // Is field created?
danielebarchiesi@4 131 $this->assertRaw(t('Saved %label configuration', array('%label' => $name)), 'Field added');
danielebarchiesi@4 132 node_types_rebuild();
danielebarchiesi@4 133 menu_rebuild();
danielebarchiesi@4 134
danielebarchiesi@4 135 // create page form
danielebarchiesi@4 136 $this->drupalGet('node/add/page');
danielebarchiesi@4 137 $field_name = 'field_' . $name;
danielebarchiesi@4 138 $this->assertField('edit-field-'. $name .'-und-0-title', 'Title found');
danielebarchiesi@4 139 $this->assertField('edit-field-'. $name .'-und-0-url', 'URL found');
danielebarchiesi@4 140
danielebarchiesi@4 141
danielebarchiesi@4 142 $edit = array(
danielebarchiesi@4 143 'title' => 'Simple Title',
danielebarchiesi@4 144 $field_name .'[und][0][url]' => 'edik:naw',
danielebarchiesi@4 145 );
danielebarchiesi@4 146
danielebarchiesi@4 147 $this->drupalPost(NULL, $edit, t('Save'));
danielebarchiesi@4 148 $this->assertText(t('The value provided for @field is not a valid URL.', array('@field' => $name)));
danielebarchiesi@4 149
danielebarchiesi@4 150 }
danielebarchiesi@4 151
danielebarchiesi@4 152 /**
danielebarchiesi@4 153 * Test if we can post a bad url if the validation is expressly turned off.
danielebarchiesi@4 154 */
danielebarchiesi@4 155 function test_link_validate_bad_url_validate_off() {
danielebarchiesi@4 156 $this->web_user = $this->drupalCreateUser(array('administer content types',
danielebarchiesi@4 157 'administer nodes',
danielebarchiesi@4 158 'administer filters',
danielebarchiesi@4 159 'access content',
danielebarchiesi@4 160 'create page content',
danielebarchiesi@4 161 'access administration pages'));
danielebarchiesi@4 162 $this->drupalLogin($this->web_user);
danielebarchiesi@4 163
danielebarchiesi@4 164 // create field
danielebarchiesi@4 165 $name = strtolower($this->randomName());
danielebarchiesi@4 166 $edit = array(
danielebarchiesi@4 167 'fields[_add_new_field][label]' => $name,
danielebarchiesi@4 168 'fields[_add_new_field][field_name]' => $name,
danielebarchiesi@4 169 'fields[_add_new_field][type]' => 'link_field',
danielebarchiesi@4 170 'fields[_add_new_field][widget_type]' => 'link_field',
danielebarchiesi@4 171 );
danielebarchiesi@4 172 $this->drupalPost('admin/structure/types/manage/page/fields', $edit, t('Save'));
danielebarchiesi@4 173 $this->drupalPost(NULL, array(), t('Save field settings'));
danielebarchiesi@4 174 $this->drupalPost(NULL, array('instance[settings][validate_url]' => FALSE), t('Save settings'));
danielebarchiesi@4 175
danielebarchiesi@4 176 /*$instance_details = db_query("SELECT * FROM {field_config_instance} WHERE field_name = :field_name AND bundle = 'page'", array(':field_name' => 'field_'. $name))->fetchObject();
danielebarchiesi@4 177 $this->fail('<pre>'. print_r($instance_details, TRUE) .'</pre>');
danielebarchiesi@4 178 $this->fail('<pre>'. print_r(unserialize($instance_details->data), TRUE) .'</pre>');*/
danielebarchiesi@4 179
danielebarchiesi@4 180 // Is field created?
danielebarchiesi@4 181 $this->assertRaw(t('Saved %label configuration', array('%label' => $name)), 'Field added');
danielebarchiesi@4 182 node_types_rebuild();
danielebarchiesi@4 183 menu_rebuild();
danielebarchiesi@4 184
danielebarchiesi@4 185 // create page form
danielebarchiesi@4 186 $this->drupalGet('node/add/page');
danielebarchiesi@4 187 $field_name = 'field_' . $name;
danielebarchiesi@4 188 $this->assertField('edit-field-'. $name .'-und-0-title', 'Title found');
danielebarchiesi@4 189 $this->assertField('edit-field-'. $name .'-und-0-url', 'URL found');
danielebarchiesi@4 190
danielebarchiesi@4 191
danielebarchiesi@4 192 $edit = array(
danielebarchiesi@4 193 'title' => 'Simple Title',
danielebarchiesi@4 194 $field_name .'[und][0][url]' => 'edik:naw',
danielebarchiesi@4 195 );
danielebarchiesi@4 196
danielebarchiesi@4 197 $this->drupalPost(NULL, $edit, t('Save'));
danielebarchiesi@4 198 $this->assertNoText(t('The value provided for @field is not a valid URL.', array('@field' => $name)));
danielebarchiesi@4 199 }
danielebarchiesi@4 200
danielebarchiesi@4 201 /**
danielebarchiesi@4 202 * Test if a bad url can sneak through un-filtered if we play with the validation...
danielebarchiesi@4 203 */
danielebarchiesi@4 204 function x_test_link_validate_switching_between_validation_status() {
danielebarchiesi@4 205 $this->acquireContentTypes(1);
danielebarchiesi@4 206 $this->web_user = $this->drupalCreateUser(array('administer content types',
danielebarchiesi@4 207 'administer nodes',
danielebarchiesi@4 208 'access administration pages',
danielebarchiesi@4 209 'access content',
danielebarchiesi@4 210 'create '. $this->content_types[0]->type .' content',
danielebarchiesi@4 211 'edit any '. $this->content_types[0]->type .' content'));
danielebarchiesi@4 212 $this->drupalLogin($this->web_user);
danielebarchiesi@4 213 variable_set('node_options_'. $this->content_types[0]->name, array('status', 'promote'));
danielebarchiesi@4 214 $field_settings = array(
danielebarchiesi@4 215 'type' => 'link',
danielebarchiesi@4 216 'widget_type' => 'link',
danielebarchiesi@4 217 'type_name' => $this->content_types[0]->name,
danielebarchiesi@4 218 'attributes' => array(), // <-- This is needed or we have an error
danielebarchiesi@4 219 'validate_url' => 0,
danielebarchiesi@4 220 );
danielebarchiesi@4 221
danielebarchiesi@4 222 $field = $this->createField($field_settings, 0);
danielebarchiesi@4 223 //$this->fail('<pre>'. print_r($field, TRUE) .'</pre>');
danielebarchiesi@4 224 $field_db_info = content_database_info($field);
danielebarchiesi@4 225
danielebarchiesi@4 226 $this->acquireNodes(2);
danielebarchiesi@4 227
danielebarchiesi@4 228 $node = node_load($this->nodes[0]->nid);
danielebarchiesi@4 229
danielebarchiesi@4 230 $this->drupalGet('node/'. $this->nodes[0]->nid);
danielebarchiesi@4 231
danielebarchiesi@4 232 $edit = array();
danielebarchiesi@4 233 $title = $this->randomName();
danielebarchiesi@4 234 $url = 'javascript:alert("http://example.com/' . $this->randomName() . '")';
danielebarchiesi@4 235 $edit[$field['field_name'] .'[0][url]'] = $url;
danielebarchiesi@4 236 $edit[$field['field_name'] .'[0][title]'] = $title;
danielebarchiesi@4 237
danielebarchiesi@4 238 $this->drupalPost('node/'. $this->nodes[0]->nid .'/edit', $edit, t('Save'));
danielebarchiesi@4 239 //$this->pass($this->content);
danielebarchiesi@4 240 $this->assertNoText(t('The value provided for %field is not a valid URL.', array('%field' => $name)));
danielebarchiesi@4 241
danielebarchiesi@4 242 // Make sure we get a new version!
danielebarchiesi@4 243 $node = node_load($this->nodes[0]->nid, NULL, TRUE);
danielebarchiesi@4 244 $this->assertEqual($url, $node->{$field['field_name']}[0]['url']);
danielebarchiesi@4 245
danielebarchiesi@4 246 $this->drupalGet('node/'. $node->nid);
danielebarchiesi@4 247 $this->assertNoRaw($url, 'Make sure Javascript does not display.');
danielebarchiesi@4 248
danielebarchiesi@4 249 // Turn the array validation back _on_.
danielebarchiesi@4 250 $edit = array('validate_url' => TRUE);
danielebarchiesi@4 251 $node_type_link = str_replace('_', '-', $node->type);
danielebarchiesi@4 252 //$this->drupalGet('admin/content/node-type/'. $node_type_link .'/fields'); ///'. $field['field_name']);
danielebarchiesi@4 253 //$this->fail($this->content);
danielebarchiesi@4 254 $this->drupalPost('admin/content/node-type/'. $node_type_link .'/fields/'. $field['field_name'], $edit, t('Save field settings'));
danielebarchiesi@4 255
danielebarchiesi@4 256 $this->drupalGet('node/'. $node->nid);
danielebarchiesi@4 257 // This actually works because the display_url goes through the core
danielebarchiesi@4 258 // url() function. But we should have a test that makes sure it continues
danielebarchiesi@4 259 // to work.
danielebarchiesi@4 260 $this->assertNoRaw($url, 'Make sure Javascript does not display.');
danielebarchiesi@4 261 //$this->fail($this->content);
danielebarchiesi@4 262
danielebarchiesi@4 263 }
danielebarchiesi@4 264
danielebarchiesi@4 265 // Validate that '<front>' is a valid url.
danielebarchiesi@4 266 function test_link_front_url() {
danielebarchiesi@4 267 $this->link_test_validate_url('<front>');
danielebarchiesi@4 268 }
danielebarchiesi@4 269
danielebarchiesi@4 270 // Validate that an internal url would be accepted.
danielebarchiesi@4 271 function test_link_internal_url() {
danielebarchiesi@4 272 $this->link_test_validate_url('node/32');
danielebarchiesi@4 273 }
danielebarchiesi@4 274
danielebarchiesi@4 275 // Validate a simple mailto.
danielebarchiesi@4 276 function test_link_mailto() {
danielebarchiesi@4 277 $this->link_test_validate_url('mailto:jcfiala@gmail.com');
danielebarchiesi@4 278 }
danielebarchiesi@4 279
danielebarchiesi@4 280 function test_link_external_https() {
danielebarchiesi@4 281 $this->link_test_validate_url('https://www.example.com/');
danielebarchiesi@4 282 }
danielebarchiesi@4 283
danielebarchiesi@4 284 function test_link_ftp() {
danielebarchiesi@4 285 $this->link_test_validate_url('ftp://www.example.com/');
danielebarchiesi@4 286 }
danielebarchiesi@4 287 }
danielebarchiesi@4 288
danielebarchiesi@4 289 class LinkValidateTestNews extends LinkValidateTestCase {
danielebarchiesi@4 290
danielebarchiesi@4 291 public static function getInfo() {
danielebarchiesi@4 292 return array(
danielebarchiesi@4 293 'name' => 'Link News Validation Tests',
danielebarchiesi@4 294 'description' => 'Tests the field validation for usenet urls.',
danielebarchiesi@4 295 'group' => 'Link',
danielebarchiesi@4 296 );
danielebarchiesi@4 297 }
danielebarchiesi@4 298
danielebarchiesi@4 299 // Validate a news link to a message group
danielebarchiesi@4 300 function test_link_news() {
danielebarchiesi@4 301 $this->link_test_validate_url('news:comp.infosystems.www.misc');
danielebarchiesi@4 302 }
danielebarchiesi@4 303
danielebarchiesi@4 304 // Validate a news link to a message id. Said ID copied off of google groups.
danielebarchiesi@4 305 function test_link_news_message() {
danielebarchiesi@4 306 $this->link_test_validate_url('news:hj0db8$vrm$1@news.eternal-september.org');
danielebarchiesi@4 307 }
danielebarchiesi@4 308 }
danielebarchiesi@4 309
danielebarchiesi@4 310 class LinkValidateSpecificURL extends LinkValidateTestCase {
danielebarchiesi@4 311 public static function getInfo() {
danielebarchiesi@4 312 return array(
danielebarchiesi@4 313 'name' => 'Link Specific URL Validation Tests',
danielebarchiesi@4 314 'description' => 'Tests field validation with unusual urls',
danielebarchiesi@4 315 'group' => 'Link',
danielebarchiesi@4 316 );
danielebarchiesi@4 317 }
danielebarchiesi@4 318
danielebarchiesi@4 319 // Lets throw in a lot of umlouts for testing!
danielebarchiesi@4 320 function test_umlout_url() {
danielebarchiesi@4 321 $this->link_test_validate_url('http://üÜü.exämple.com/nöde');
danielebarchiesi@4 322 }
danielebarchiesi@4 323
danielebarchiesi@4 324 function test_umlout_mailto() {
danielebarchiesi@4 325 $this->link_test_validate_url('mailto:Üser@exÅmple.com');
danielebarchiesi@4 326 }
danielebarchiesi@4 327
danielebarchiesi@4 328 function test_german_b_url() {
danielebarchiesi@4 329 $this->link_test_validate_url('http://www.test.com/ßstuff');
danielebarchiesi@4 330 }
danielebarchiesi@4 331
danielebarchiesi@4 332 function test_special_n_url() {
danielebarchiesi@4 333 $this->link_test_validate_url('http://www.testÑñ.com/');
danielebarchiesi@4 334 }
danielebarchiesi@4 335
danielebarchiesi@4 336 function test_curly_brackets_in_query() {
danielebarchiesi@4 337 $this->link_test_validate_url('http://www.healthyteennetwork.org/index.asp?Type=B_PR&SEC={2AE1D600-4FC6-4B4D-8822-F1D5F072ED7B}&DE={235FD1E7-208D-4363-9854-4E6775EB8A4C}');
danielebarchiesi@4 338 }
danielebarchiesi@4 339
danielebarchiesi@4 340 /**
danielebarchiesi@4 341 * Here, we're testing that a very long url is stored properly in the db.
danielebarchiesi@4 342 *
danielebarchiesi@4 343 * Basicly, trying to test http://drupal.org/node/376818
danielebarchiesi@4 344 */
danielebarchiesi@4 345 function testLinkURLFieldIsBig() {
danielebarchiesi@4 346 $long_url = 'http://th.wikipedia.org/wiki/%E0%B9%82%E0%B8%A3%E0%B8%87%E0%B9%80%E0%B8%A3%E0%B8%B5%E0%B8%A2%E0%B8%99%E0%B9%80%E0%B8%9A%E0%B8%8D%E0%B8%88%E0%B8%A1%E0%B8%A3%E0%B8%B2%E0%B8%8A%E0%B8%B9%E0%B8%97%E0%B8%B4%E0%B8%A8_%E0%B8%99%E0%B8%84%E0%B8%A3%E0%B8%A8%E0%B8%A3%E0%B8%B5%E0%B8%98%E0%B8%A3%E0%B8%A3%E0%B8%A1%E0%B8%A3%E0%B8%B2%E0%B8%8A';
danielebarchiesi@4 347 $this->link_test_validate_url($long_url);
danielebarchiesi@4 348 }
danielebarchiesi@4 349
danielebarchiesi@4 350 }
danielebarchiesi@4 351
danielebarchiesi@4 352 /**
danielebarchiesi@4 353 * A series of tests of links, only going against the link_validate_url function in link.module.
danielebarchiesi@4 354 *
danielebarchiesi@4 355 * Validation is guided by the rules in http://tools.ietf.org/html/rfc1738 !
danielebarchiesi@4 356 */
danielebarchiesi@4 357 class LinkValidateUrlLight extends DrupalWebTestCase {
danielebarchiesi@4 358
danielebarchiesi@4 359 public static function getInfo() {
danielebarchiesi@4 360 return array(
danielebarchiesi@4 361 'name' => 'Link Light Validation Tests',
danielebarchiesi@4 362 'description' => 'Tests the link_validate_url() function by itself, without invoking the full drupal/cck lifecycle.',
danielebarchiesi@4 363 'group' => 'Link',
danielebarchiesi@4 364 );
danielebarchiesi@4 365 }
danielebarchiesi@4 366
danielebarchiesi@4 367 /**
danielebarchiesi@4 368 * Translates the LINK type constants to english for display and debugging of tests
danielebarchiesi@4 369 */
danielebarchiesi@4 370 function name_Link_Type($type) {
danielebarchiesi@4 371 switch ($type) {
danielebarchiesi@4 372 case LINK_FRONT:
danielebarchiesi@4 373 return "Front";
danielebarchiesi@4 374 case LINK_EMAIL:
danielebarchiesi@4 375 return "Email";
danielebarchiesi@4 376 case LINK_NEWS:
danielebarchiesi@4 377 return "Newsgroup";
danielebarchiesi@4 378 case LINK_INTERNAL:
danielebarchiesi@4 379 return "Internal Link";
danielebarchiesi@4 380 case LINK_EXTERNAL:
danielebarchiesi@4 381 return "External Link";
danielebarchiesi@4 382 case FALSE:
danielebarchiesi@4 383 return "Invalid Link";
danielebarchiesi@4 384 default:
danielebarchiesi@4 385 return "Bad Value:". $type;
danielebarchiesi@4 386 }
danielebarchiesi@4 387 }
danielebarchiesi@4 388
danielebarchiesi@4 389 // Make sure that a link labelled <front> works.
danielebarchiesi@4 390 function testValidateFrontLink() {
danielebarchiesi@4 391 $valid = link_validate_url('<front>');
danielebarchiesi@4 392 $this->assertEqual(LINK_FRONT, $valid, 'Make sure that front link is verfied and identified');
danielebarchiesi@4 393 }
danielebarchiesi@4 394
danielebarchiesi@4 395 function testValidateEmailLink() {
danielebarchiesi@4 396 $valid = link_validate_url('mailto:bob@example.com');
danielebarchiesi@4 397 $this->assertEqual(LINK_EMAIL, $valid, "Make sure a basic mailto is verified and identified");
danielebarchiesi@4 398 }
danielebarchiesi@4 399
danielebarchiesi@4 400 function testValidateEmailLinkBad() {
danielebarchiesi@4 401 $valid = link_validate_url(':bob@example.com');
danielebarchiesi@4 402 $this->assertEqual(FALSE, $valid, 'Make sure just a bad address is correctly failed');
danielebarchiesi@4 403 }
danielebarchiesi@4 404
danielebarchiesi@4 405 function testValidateNewsgroupLink() {
danielebarchiesi@4 406 $valid = link_validate_url('news:comp.infosystems.www.misc');
danielebarchiesi@4 407 $this->assertEqual(LINK_NEWS, $valid, 'Make sure link to newsgroup validates as news.');
danielebarchiesi@4 408 }
danielebarchiesi@4 409
danielebarchiesi@4 410 function testValidateNewsArticleLink() {
danielebarchiesi@4 411 $valid = link_validate_url('news:hj0db8$vrm$1@news.eternal-september.org');
danielebarchiesi@4 412 $this->assertEqual(LINK_NEWS, $valid, 'Make sure link to specific article valiates as news.');
danielebarchiesi@4 413 }
danielebarchiesi@4 414
danielebarchiesi@4 415 function testValidateBadNewsgroupLink() {
danielebarchiesi@4 416 $valid = link_validate_url('news:comp.bad_name.misc');
danielebarchiesi@4 417 $this->assertEqual(FALSE, $valid, 'newsgroup names can\'t contain underscores, so it should come back as invalid.');
danielebarchiesi@4 418 }
danielebarchiesi@4 419
danielebarchiesi@4 420 function testValidateInternalLinks() {
danielebarchiesi@4 421 $links = array(
danielebarchiesi@4 422 'node/5',
danielebarchiesi@4 423 'rss.xml',
danielebarchiesi@4 424 'files/test.jpg',
danielebarchiesi@4 425 '/var/www/test',
danielebarchiesi@4 426 );
danielebarchiesi@4 427
danielebarchiesi@4 428 foreach ($links as $link) {
danielebarchiesi@4 429 $valid = link_validate_url($link);
danielebarchiesi@4 430 $this->assertEqual(LINK_INTERNAL, $valid, 'Test ' . $link . ' internal link.');
danielebarchiesi@4 431 }
danielebarchiesi@4 432 }
danielebarchiesi@4 433
danielebarchiesi@4 434 function testValidateExternalLinks() {
danielebarchiesi@4 435 $links = array(
danielebarchiesi@4 436 'http://localhost:8080/',
danielebarchiesi@4 437 'www.example.com',
danielebarchiesi@4 438 'www.example.com/',
danielebarchiesi@4 439 'http://username:p%40ssw0rd!@www.example.com/',
danielebarchiesi@4 440 'http://@www.example.com/',
danielebarchiesi@4 441 'http://username:@www.example.com/',
danielebarchiesi@4 442 'http://username:password@www.example.com:8080/',
danielebarchiesi@4 443 'http://127.0.0.1:80/',
danielebarchiesi@4 444 'http://127.173.24.255:4723/',
danielebarchiesi@4 445 '127.173.24.255:4723/',
danielebarchiesi@4 446 'http://255.255.255.255:4823/',
danielebarchiesi@4 447 'www.test-site.com',
danielebarchiesi@4 448 'http://example.com/index.php?q=node/123',
danielebarchiesi@4 449 'http://example.com/index.php?page=this\that',
danielebarchiesi@4 450 'http://example.com/?first_name=Joe Bob&last_name=Smith',
danielebarchiesi@4 451 // Anchors
danielebarchiesi@4 452 'http://www.example.com/index.php#test',
danielebarchiesi@4 453 'http://www.example.com/index.php#this@that.',
danielebarchiesi@4 454 'http://www.example.com/index.php#',
danielebarchiesi@4 455 'http://www.cnn.com/video/#/video/politics/2008/12/09/intv.madeleine.albright.cnn',
danielebarchiesi@4 456 'http://www.archive.org/stream/aesopsfables00aesorich#page/n7/mode/2up',
danielebarchiesi@4 457 'http://www.example.com/blah/#this@that?',
danielebarchiesi@4 458 );
danielebarchiesi@4 459 // Test all of the protocols.
danielebarchiesi@4 460 $allowed_protocols = variable_get('filter_allowed_protocols', array('http', 'https', 'ftp', 'news', 'nntp', 'telnet', 'mailto', 'irc', 'ssh', 'sftp', 'webcal'));
danielebarchiesi@4 461 foreach ($allowed_protocols as $protocol) {
danielebarchiesi@4 462 if ($protocol !== 'news' && $protocol !== 'mailto') {
danielebarchiesi@4 463 $links[] = $protocol .'://www.example.com';
danielebarchiesi@4 464 }
danielebarchiesi@4 465 }
danielebarchiesi@4 466 foreach ($links as $link) {
danielebarchiesi@4 467 $valid = link_validate_url($link);
danielebarchiesi@4 468 $this->assertEqual(LINK_EXTERNAL, $valid, 'Testing that '. $link .' is a valid external link.');
danielebarchiesi@4 469 // The following two lines are commented out and only used for comparisons.
danielebarchiesi@4 470 //$valid2 = valid_url($link, TRUE);
danielebarchiesi@4 471 //$this->assertEqual(TRUE, $valid2, "Using valid_url() on $link.");
danielebarchiesi@4 472 }
danielebarchiesi@4 473 // Test if we can make a tld valid:
danielebarchiesi@4 474 variable_set('link_extra_domains', array('frog'));
danielebarchiesi@4 475 $valid = link_validate_url('http://www.example.frog');
danielebarchiesi@4 476 $this->assertEqual(LINK_EXTERNAL, $valid, "Testing that http://www.example.frog is a valid external link if we've added 'frog' to the list of valid domains.");
danielebarchiesi@4 477 }
danielebarchiesi@4 478
danielebarchiesi@4 479 function testInvalidExternalLinks() {
danielebarchiesi@4 480 $links = array(
danielebarchiesi@4 481 'http://www.ex ample.com/',
danielebarchiesi@4 482 'http://25.0.0/', // bad ip!
danielebarchiesi@4 483 'http://4827.0.0.2/',
danielebarchiesi@4 484 '//www.example.com/',
danielebarchiesi@4 485 'http://www.testß.com/', // ß not allowed in domain names!
danielebarchiesi@4 486 'http://www.example.frog/', // Bad TLD
danielebarchiesi@4 487 //'http://www.-fudge.com/', // domains can't have sections starting with a dash.
danielebarchiesi@4 488 );
danielebarchiesi@4 489 foreach ($links as $link) {
danielebarchiesi@4 490 $valid = link_validate_url($link);
danielebarchiesi@4 491 $this->assertEqual(FALSE, $valid, 'Testing that '. $link .' is not a valid link.');
danielebarchiesi@4 492 }
danielebarchiesi@4 493 }
danielebarchiesi@4 494 }