home *** CD-ROM | disk | FTP | other *** search
- import urlparse
-
- errors = 0
-
- RFC1808_BASE = "http://a/b/c/d;p?q#f"
-
- for url, expected in [('http://www.python.org',
- ('http', 'www.python.org', '', '', '', '')),
- ('http://www.python.org#abc',
- ('http', 'www.python.org', '', '', '', 'abc')),
- ('http://www.python.org/#abc',
- ('http', 'www.python.org', '/', '', '', 'abc')),
- (RFC1808_BASE,
- ('http', 'a', '/b/c/d', 'p', 'q', 'f')),
- ]:
- result = urlparse.urlparse(url)
- print "%-13s = %r" % (url, result)
- if result != expected:
- errors += 1
- print "urlparse(%r)" % url
- print ("expected %r,\n"
- " got %r") % (expected, result)
- print
-
- def checkJoin(relurl, expected):
- global errors
- result = urlparse.urljoin(RFC1808_BASE, relurl)
- print "%-13s = %r" % (relurl, result)
- if result != expected:
- errors += 1
- print "urljoin(%r, %r)" % (RFC1808_BASE, relurl)
- print ("expected %r,\n"
- " got %r") % (expected, result)
-
- print "urlparse.urljoin() tests"
- print
-
- # "normal" cases from RFC 1808:
- checkJoin('g:h', 'g:h')
- checkJoin('g', 'http://a/b/c/g')
- checkJoin('./g', 'http://a/b/c/g')
- checkJoin('g/', 'http://a/b/c/g/')
- checkJoin('/g', 'http://a/g')
- checkJoin('//g', 'http://g')
- checkJoin('?y', 'http://a/b/c/d;p?y')
- checkJoin('g?y', 'http://a/b/c/g?y')
- checkJoin('g?y/./x', 'http://a/b/c/g?y/./x')
- checkJoin('#s', 'http://a/b/c/d;p?q#s')
- checkJoin('g#s', 'http://a/b/c/g#s')
- checkJoin('g#s/./x', 'http://a/b/c/g#s/./x')
- checkJoin('g?y#s', 'http://a/b/c/g?y#s')
- checkJoin(';x', 'http://a/b/c/d;x')
- checkJoin('g;x', 'http://a/b/c/g;x')
- checkJoin('g;x?y#s', 'http://a/b/c/g;x?y#s')
- checkJoin('.', 'http://a/b/c/')
- checkJoin('./', 'http://a/b/c/')
- checkJoin('..', 'http://a/b/')
- checkJoin('../', 'http://a/b/')
- checkJoin('../g', 'http://a/b/g')
- checkJoin('../..', 'http://a/')
- checkJoin('../../', 'http://a/')
- checkJoin('../../g', 'http://a/g')
-
- # "abnormal" cases from RFC 1808:
- checkJoin('', 'http://a/b/c/d;p?q#f')
- checkJoin('../../../g', 'http://a/../g')
- checkJoin('../../../../g', 'http://a/../../g')
- checkJoin('/./g', 'http://a/./g')
- checkJoin('/../g', 'http://a/../g')
- checkJoin('g.', 'http://a/b/c/g.')
- checkJoin('.g', 'http://a/b/c/.g')
- checkJoin('g..', 'http://a/b/c/g..')
- checkJoin('..g', 'http://a/b/c/..g')
- checkJoin('./../g', 'http://a/b/g')
- checkJoin('./g/.', 'http://a/b/c/g/')
- checkJoin('g/./h', 'http://a/b/c/g/h')
- checkJoin('g/../h', 'http://a/b/c/h')
-
- # RFC 1808 and RFC 1630 disagree on these (according to RFC 1808),
- # so we'll not actually run these tests (which expect 1808 behavior).
- #checkJoin('http:g', 'http:g')
- #checkJoin('http:', 'http:')
-
- print errors, "errors"
-