function LinkValidateUnitTest::testValidateExternalLinks

File

modules/link/tests/link.validate.test, line 190

Tests that exercise the validation functions in the link module.

Class

LinkValidateUnitTest

A series of tests of links, only going against the link_validate_url function in link.module.

Code

function testValidateExternalLinks() {
  $links = array(
    'http://localhost:8080/',
    'www.example.com',
    'www.example.com/',
    'http://username:p%40ssw0rd!@www.example.com/',
    'http://username@www.example.com/',
    'http://username:password@www.example.com:8080/',
    'http://127.0.0.1:80/',
    'http://127.173.24.255:4723/',
    '127.173.24.255:4723/',
    'http://255.255.255.255:4823/',
    'www.test-site.com',
    'http://example.com/index.php?q=node/123',
    'http://example.com/index.php?page=this\that',
    'http://example.com/?first_name=Joe Bob&last_name=Smith',
    // Anchors
    'http://www.example.com/index.php#test',
    'http://www.example.com/index.php#this@that.',
    'http://www.example.com/index.php#',
    'http://www.cnn.com/video/#/video/politics/2008/12/09/intv.madeleine.albright.cnn',
    'http://www.archive.org/stream/aesopsfables00aesorich#page/n7/mode/2up',
    'http://www.example.com/blah/#this@that?',
    'http://www.example.backdrop/',
  );

  // Check for internationalized domains.
  if (function_exists('idn_to_ascii')) {
    $links[] = 'http://www.сайт.рф/';
  }

  // Test all of the protocols.
  $allowed_protocols = settings_get('filter_allowed_protocols', array('http', 'https', 'ftp', 'news', 'nntp', 'telnet', 'mailto', 'irc', 'ssh', 'sftp', 'webcal'));
  foreach ($allowed_protocols as $protocol) {
    if ($protocol !== 'news' && $protocol !== 'mailto') {
      $links[] = $protocol . '://www.example.com';
    }
  }
  foreach ($links as $link) {
    $valid = link_validate_url($link);
    $this->assertEqual(LINK_EXTERNAL, $valid, 'Testing that ' . $link . ' is a valid external link.');
  }
}