class UrlIsExternalUnitTest

class UrlIsExternalUnitTest extends DrupalUnitTestCase {
  public static function getInfo() {
    return array(
      'name' => 'External URL checking',
      'description' => 'Performs tests on url_is_external().',
      'group' => 'System',
    );
  }

  /**
   * Tests if each URL is external or not.
   */
  function testUrlIsExternal() {
    foreach ($this
      ->examples() as $path => $expected) {
      $this
        ->assertIdentical(url_is_external($path), $expected, $path);
    }
  }

  /**
   * Provides data for testUrlIsExternal().
   *
   * @return array
   *   An array of test data, keyed by a path, with the expected value where
   *   TRUE is external, and FALSE is not external.
   */
  protected function examples() {
    return array(
      // Simple external URLs.
      'http://example.com' => TRUE,
      'https://example.com' => TRUE,
      'http://drupal.org/foo/bar?foo=bar&bar=baz&baz#foo' => TRUE,
      '//drupal.org' => TRUE,
      // Some browsers ignore or strip leading control characters.
      "\0//www.example.com" => TRUE,
      "\10//www.example.com" => TRUE,
      "\37//www.example.com" => TRUE,
      "\n//www.example.com" => TRUE,
      // JSON supports decoding directly from UTF-8 code points.
      json_decode('"\\u00AD"') . "//www.example.com" => TRUE,
      json_decode('"\\u200E"') . "//www.example.com" => TRUE,
      json_decode('"\\uE0020"') . "//www.example.com" => TRUE,
      json_decode('"\\uE000"') . "//www.example.com" => TRUE,
      // Backslashes should be normalized to forward.
      '\\\\example.com' => TRUE,
      // Local URLs.
      'node' => FALSE,
      '/system/ajax' => FALSE,
      '?q=foo:bar' => FALSE,
      'node/edit:me' => FALSE,
      '/drupal.org' => FALSE,
      '<front>' => FALSE,
    );
  }

}