drupalISMI: openmindattribute/tests/link.validate.test annotate

annotate openmindattribute/tests/link.validate.test @ 6:447623f107dc

new relation_processor

author	Dirk Wintergruen <dwinter@mpiwg-berlin.mpg.de>
date	Wed, 17 Jun 2015 18:57:22 +0200
parents	124ef8f3b22d
children

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

Mercurial > hg > drupalISMI

annotate openmindattribute/tests/link.validate.test @ 6:447623f107dc