Module:       system-test-suite
Synopsis:     System library test suite
Author:	      Andy Armstrong
Copyright:    Original Code is Copyright (c) 1995-2004 Functional Objects, Inc.
              All rights reserved.
License:      Functional Objects Library Public License Version 1.0
Dual-license: GNU Lesser General Public License
Warranty:     Distributed WITHOUT WARRANTY OF ANY KIND

define test bug-3276 ()
  check-equal("as(<locator>, \"\\\") produces a directory, not a UNC locator",
	      as(<string>, as(<microsoft-directory-locator>, "\\")),
	      "\\")
end test bug-3276;

define test url-parsing-bug ()
  let url = "http://localhost:7020/foo";
  check-equal(format-to-string("as(<url>, %s)", url),
	      as(<url>, url),
	      make(<file-url>,
		   name: "foo",
		   directory: make(<directory-url>,
				   path: #[],
				   server: make(<http-server>,
						host: "localhost",
						port: 7020))))
end test url-parsing-bug;

define suite system-regressions ()
  test bug-3276;
  test url-parsing-bug;
end suite system-regressions;