diff options
author | Andy Wingo <wingo@pobox.com> | 2012-02-22 20:08:44 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-02-22 20:08:44 +0100 |
commit | 71cc8d96ee0917474c052fd484cad199be1311b2 (patch) | |
tree | 4c397a2116ba0cdc7308ecce50a3fb82f986e468 | |
parent | 4f6e8ba7bcfd3daeb1179bf0be09d7953bf2458f (diff) | |
download | guile-71cc8d96ee0917474c052fd484cad199be1311b2.tar.gz |
add test for recent quick fix
* test-suite/tests/web-uri.test ("string->uri"): Add test for
string->uri with hosts beginning in digits.
-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"))) |