class ValidUrlTestCase

class ValidUrlTestCase extends DrupalUnitTestCase {
    public static function getInfo() {
        return array(
            'name' => 'Valid URL',
            'description' => "Performs tests on Drupal's valid URL function.",
            'group' => 'System',
        );
    }
    
    /**
     * Test valid absolute URLs.
     */
    function testValidAbsolute() {
        $url_schemes = array(
            'http',
            'https',
            'ftp',
        );
        $valid_absolute_urls = array(
            'example.com',
            'www.example.com',
            'ex-ample.com',
            '3xampl3.com',
            'example.com/paren(the)sis',
            'example.com/index.html#pagetop',
            'example.com:8080',
            'subdomain.example.com',
            'example.com/index.php?q=node',
            'example.com/index.php?q=node&param=false',
            'user@www.example.com',
            'user:pass@www.example.com:8080/login.php?do=login&style=%23#pagetop',
            '127.0.0.1',
            'example.org?',
            'john%20doe:secret:foo@example.org/',
            'example.org/~,$\'*;',
            'caf%C3%A9.example.org',
            '[FEDC:BA98:7654:3210:FEDC:BA98:7654:3210]:80/index.html',
        );
        foreach ($url_schemes as $scheme) {
            foreach ($valid_absolute_urls as $url) {
                $test_url = $scheme . '://' . $url;
                $valid_url = valid_url($test_url, TRUE);
                $this->assertTrue($valid_url, format_string('@url is a valid url.', array(
                    '@url' => $test_url,
                )));
            }
        }
    }
    
    /**
     * Test invalid absolute URLs.
     */
    function testInvalidAbsolute() {
        $url_schemes = array(
            'http',
            'https',
            'ftp',
        );
        $invalid_ablosule_urls = array(
            '',
            'ex!ample.com',
            'ex%ample.com',
        );
        foreach ($url_schemes as $scheme) {
            foreach ($invalid_ablosule_urls as $url) {
                $test_url = $scheme . '://' . $url;
                $valid_url = valid_url($test_url, TRUE);
                $this->assertFalse($valid_url, format_string('@url is NOT a valid url.', array(
                    '@url' => $test_url,
                )));
            }
        }
    }
    
    /**
     * Test valid relative URLs.
     */
    function testValidRelative() {
        $valid_relative_urls = array(
            'paren(the)sis',
            'index.html#pagetop',
            'index.php?q=node',
            'index.php?q=node&param=false',
            'login.php?do=login&style=%23#pagetop',
        );
        foreach (array(
            '',
            '/',
        ) as $front) {
            foreach ($valid_relative_urls as $url) {
                $test_url = $front . $url;
                $valid_url = valid_url($test_url);
                $this->assertTrue($valid_url, format_string('@url is a valid url.', array(
                    '@url' => $test_url,
                )));
            }
        }
    }
    
    /**
     * Test invalid relative URLs.
     */
    function testInvalidRelative() {
        $invalid_relative_urls = array(
            'ex^mple',
            'example<>',
            'ex%ample',
        );
        foreach (array(
            '',
            '/',
        ) as $front) {
            foreach ($invalid_relative_urls as $url) {
                $test_url = $front . $url;
                $valid_url = valid_url($test_url);
                $this->assertFALSE($valid_url, format_string('@url is NOT a valid url.', array(
                    '@url' => $test_url,
                )));
            }
        }
    }

}