diff options
-rw-r--r-- | test-suite/tests/web-uri.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/test-suite/tests/web-uri.test b/test-suite/tests/web-uri.test index 9118eea4b..940fb3147 100644 --- a/test-suite/tests/web-uri.test +++ b/test-suite/tests/web-uri.test @@ -1,6 +1,6 @@ ;;;; web-uri.test --- URI library -*- mode: scheme; coding: utf-8; -*- ;;;; -;;;; Copyright (C) 2010, 2011 Free Software Foundation, Inc. +;;;; Copyright (C) 2010, 2011, 2012 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -143,6 +143,10 @@ (uri=? (string->uri "http://foo:/") #:scheme 'http #:host "foo" #:path "/")) + (pass-if "http://2012.jsconf.us/" + (uri=? (string->uri "http://2012.jsconf.us/") + #:scheme 'http #:host "2012.jsconf.us" #:path "/")) + (pass-if "http://foo:not-a-port" (not (string->uri "http://foo:not-a-port"))) |