Changeset 15478 in project


Ignore:
Timestamp:
08/14/09 15:55:23 (10 years ago)
Author:
sjamaan
Message:

Fix bug with absolute paths directly followed by query

Location:
release/4/uri-generic/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/uri-generic/trunk/tests/run.scm

    r15040 r15478  
    254254    ("query ",uri-query
    255255     ("//" #f)
     256     ("/?foo" "foo")
    256257     ("?foo" "foo")
    257258     ("?foo?bar" "foo?bar")
     
    262263     ("?foo" #f)
    263264     ("#bar" "bar")
     265     ("/#bar" "bar")
    264266     ("?foo#bar" "bar")
     267     ("/?foo#bar" "bar")
    265268     ("#foo?bar" "foo?bar")
    266269     ("#foo/bar" "foo/bar")
     
    351354
    352355(define absolute-paths
    353   '("/foo"
     356  '("/"
     357    "/foo"
    354358    "//foo/"
    355359    "http://foo/bar"
    356360    "http://foo/"
    357     "http://foo/#qux"))
     361    "http://foo/#qux"
     362    "http://foo/?bar=qux"))
    358363
    359364(define relative-paths
  • release/4/uri-generic/trunk/uri-generic.scm

    r15452 r15478  
    627627  (match s
    628628         ((#\/)          (list (list '/ (list))  (list)))
    629          ((#\/ . rst)    (match (path-rootless rst)
     629         ((#\/ . rst)    (match (path-rootless rst) ; optional
    630630                                ((lst rst) (list (cons '/ lst) rst))
    631                                 (else #f)))
     631                                (else (list (list '/) rst))))
    632632         (else #f)))
    633633
  • release/4/uri-generic/trunk/uri-generic.setup

    r15452 r15478  
    1313
    1414  ;; Assoc list with properties for your extension:
    15   '((version 2.31)
     15  '((version 2.32)
    1616    (documentation "uri-generic.html")))
Note: See TracChangeset for help on using the changeset viewer.