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.
"\x00//www.example.com" => TRUE,
            "\x08//www.example.com" => TRUE,
            "\x1f//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,
        );
    }

}