Changeset 13212 in project for release/3/uri-generic/trunk/tests/run.scm
- Timestamp:
- 02/08/09 15:09:50 (12 years ago)
- Location:
- release/3/uri-generic/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/3/uri-generic/trunk
- Property svn:mergeinfo changed
/release/4/uri-generic/trunk merged: 13111,13209
- Property svn:mergeinfo changed
-
release/3/uri-generic/trunk/tests/run.scm
r13109 r13212 287 287 internal-representation-cases)) 288 288 289 ;; I wonder if there's a term for this :) 290 (define non-relative-non-absolute-uri-references 291 '("http://foo#frag" 292 "http://foo?a=b#frag" 293 "http://foo/bar#frag" 294 "http://foo/bar?a=b#frag")) 295 296 (define absolute-uris 297 '("http://foo" 298 "http://foo?a=b" 299 "http://foo/bar" 300 "http://foo/bar?a=b")) 301 302 (define relative-refs 303 `("" 304 "bar" 305 "bar?a=b" 306 "bar#frag" 307 "bar?a=b#frag" 308 "/" 309 "/bar" 310 "/bar?a=b" 311 "/bar#frag" 312 "/bar?a=b#frag" 313 "//foo" 314 "//foo?a=b" 315 "//foo#frag" 316 "//foo?a=b#frag" 317 "//foo/bar" 318 "//foo/bar?a=b" 319 "//foo/bar#frag" 320 "//foo/bar?a=b#frag")) 321 322 (test-group "absolute/relative distinction" 323 (for-each (lambda (s) 324 (test-assert (sprintf "~S is relative" s) 325 (relative-ref? (uri-reference s))) 326 (test-assert (sprintf "~S is not absolute" s) 327 (not (absolute-uri? (uri-reference s)))) 328 (test-error (absolute-uri s))) 329 relative-refs) 330 (for-each (lambda (s) 331 (test-assert (sprintf "~S is not relative" s) 332 (not (relative-ref? (uri-reference s)))) 333 (test-assert (sprintf "~S is absolute" s) 334 (absolute-uri? (uri-reference s))) 335 (test (uri-reference s) (absolute-uri s))) 336 absolute-uris) 337 (for-each (lambda (s) 338 (test-assert (sprintf "~S is not relative" s) 339 (not (relative-ref? (uri-reference s)))) 340 (test-assert (sprintf "~S is not absolute" s) 341 (not (absolute-uri? (uri-reference s)))) 342 ;; Should this give an error in the fragment case? 343 (test-error (absolute-uri s))) 344 non-relative-non-absolute-uri-references)) 345 289 346 (test-group "miscellaneous" 290 347 ;; Special case, see section 4.2
Note: See TracChangeset
for help on using the changeset viewer.