Unexpected token ""g"".

uri-test:41:   ---
uri-test:42:   "g" ("", "", "g", "", "") => "http://a/b/c/g"
uri-test:43:   ---





define macro uri-reference-test-definer
  { define uri-reference-test ?name:token
      ?uri:token
      (?scheme:token, ?authority:token,
       ?path:token, ?query:token,
       ?fragment:token)
       => ?result:token
   end
  }
   =>
  {
    define test "uri-reference-" ## ?name ()
      let uri = parse-uri(?uri);
      check-equal("base-uri scheme", uri.uri-scheme, ?scheme);
      check-equal("base-uri authority", uri.uri-authority, ?authority);
      check-equal("base-uri path", build-path(uri), ?path);
      check-equal("base-uri query", build-query(uri), ?query);
      check-equal("base-uri fragment", uri.uri-fragment, ?fragment);
      let target-uri = transform-uris($base-uri, uri);
      check-equal("target-uri", build-uri(target-uri), ?result);
    end
  }
end macro;

define uri-reference-test test-1
  "g:h" ("g", "", "h", "", "") => "g:h"
end;

define uri-refernece-test test-2
  "g" ("", "", "g", "", "") => "http://a/b/c/g"
end;

define uri-reference-test test-3
  "./g" ("", "", "./g", "", "") => "http://a/b/c/g"
end;