- (push `(util.test:test "com" (urn-nid (parse-uri ,urn))
- :test #'string=)
- res)
- (push `(util.test:test "foo-the-bar" (urn-nss (parse-uri ,urn))
- :test #'string=)
- res))
- (push `(util.test:test-error (parse-uri "urn:")
- :condition-type 'parse-error)
- res)
- (push `(util.test:test-error (parse-uri "urn:foo")
- :condition-type 'parse-error)
- res)
- (push `(util.test:test-error (parse-uri "urn:foo$")
- :condition-type 'parse-error)
- res)
- (push `(util.test:test-error (parse-uri "urn:foo_")
- :condition-type 'parse-error)
- res)
- (push `(util.test:test-error (parse-uri "urn:foo:foo&bar")
- :condition-type 'parse-error)
- res)
- (push `(util.test:test (parse-uri "URN:foo:a123,456")
- (parse-uri "urn:foo:a123,456")
- :test #'uri=)
- res)
- (push `(util.test:test (parse-uri "URN:foo:a123,456")
- (parse-uri "urn:FOO:a123,456")
- :test #'uri=)
- res)
- (push `(util.test:test (parse-uri "urn:foo:a123,456")
- (parse-uri "urn:FOO:a123,456")
- :test #'uri=)
- res)
- (push `(util.test:test (parse-uri "URN:FOO:a123%2c456")
- (parse-uri "urn:foo:a123%2C456")
- :test #'uri=)
- res)
- (push `(util.test:test
- nil
- (uri= (parse-uri "urn:foo:A123,456")
- (parse-uri "urn:FOO:a123,456")))
- res)
- (push `(util.test:test
- nil
- (uri= (parse-uri "urn:foo:A123,456")
- (parse-uri "urn:foo:a123,456")))
- res)
- (push `(util.test:test
- nil
- (uri= (parse-uri "urn:foo:A123,456")
- (parse-uri "URN:foo:a123,456")))
- res)
- (push `(util.test:test
- nil
- (uri= (parse-uri "urn:foo:a123%2C456")
- (parse-uri "urn:FOO:a123,456")))
- res)
- (push `(util.test:test
- nil
- (uri= (parse-uri "urn:foo:a123%2C456")
- (parse-uri "urn:foo:a123,456")))
- res)
- (push `(util.test:test
- nil
- (uri= (parse-uri "URN:FOO:a123%2c456")
- (parse-uri "urn:foo:a123,456")))
- res)
- (push `(util.test:test
- nil
- (uri= (parse-uri "urn:FOO:a123%2c456")
- (parse-uri "urn:foo:a123,456")))
- res)
- (push `(util.test:test
- nil
- (uri= (parse-uri "urn:foo:a123%2c456")
- (parse-uri "urn:foo:a123,456")))
- res)
-
- (push `(util.test:test t
- (uri= (parse-uri "foo") (parse-uri "foo#")))
- res)
-
+ (push `(test "com" (urn-nid (parse-uri ,urn))
+ :test #'string=)
+ res)
+ (push `(test "foo-the-bar" (urn-nss (parse-uri ,urn))
+ :test #'string=)
+ res))
+ (push `(test-error (parse-uri "urn:")
+ :condition-type 'uri-parse-error)
+ res)
+ (push `(test-error (parse-uri "urn:foo")
+ :condition-type 'uri-parse-error)
+ res)
+ (push `(test-error (parse-uri "urn:foo$")
+ :condition-type 'uri-parse-error)
+ res)
+ (push `(test-error (parse-uri "urn:foo_")
+ :condition-type 'uri-parse-error)
+ res)
+ (push `(test-error (parse-uri "urn:foo:foo&bar")
+ :condition-type 'uri-parse-error)
+ res)
+ (push `(test (parse-uri "URN:foo:a123,456")
+ (parse-uri "urn:foo:a123,456")
+ :test #'uri=)
+ res)
+ (push `(test (parse-uri "URN:foo:a123,456")
+ (parse-uri "urn:FOO:a123,456")
+ :test #'uri=)
+ res)
+ (push `(test (parse-uri "urn:foo:a123,456")
+ (parse-uri "urn:FOO:a123,456")
+ :test #'uri=)
+ res)
+ (push `(test (parse-uri "URN:FOO:a123%2c456")
+ (parse-uri "urn:foo:a123%2C456")
+ :test #'uri=)
+ res)
+ (push `(test
+ nil
+ (uri= (parse-uri "urn:foo:A123,456")
+ (parse-uri "urn:FOO:a123,456")))
+ res)
+ (push `(test
+ nil
+ (uri= (parse-uri "urn:foo:A123,456")
+ (parse-uri "urn:foo:a123,456")))
+ res)
+ (push `(test
+ nil
+ (uri= (parse-uri "urn:foo:A123,456")
+ (parse-uri "URN:foo:a123,456")))
+ res)
+ (push `(test
+ nil
+ (uri= (parse-uri "urn:foo:a123%2C456")
+ (parse-uri "urn:FOO:a123,456")))
+ res)
+ (push `(test
+ nil
+ (uri= (parse-uri "urn:foo:a123%2C456")
+ (parse-uri "urn:foo:a123,456")))
+ res)
+ (push `(test
+ nil
+ (uri= (parse-uri "URN:FOO:a123%2c456")
+ (parse-uri "urn:foo:a123,456")))
+ res)
+ (push `(test
+ nil
+ (uri= (parse-uri "urn:FOO:a123%2c456")
+ (parse-uri "urn:foo:a123,456")))
+ res)
+ (push `(test
+ nil
+ (uri= (parse-uri "urn:foo:a123%2c456")
+ (parse-uri "urn:foo:a123,456")))
+ res)
+
+ (push `(test t
+ (uri= (parse-uri "foo") (parse-uri "foo#")))
+ res)
+