summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-02-22 20:08:44 +0100
committerAndy Wingo <wingo@pobox.com>2012-02-22 20:08:44 +0100
commit71cc8d96ee0917474c052fd484cad199be1311b2 (patch)
tree4c397a2116ba0cdc7308ecce50a3fb82f986e468
parent4f6e8ba7bcfd3daeb1179bf0be09d7953bf2458f (diff)
downloadguile-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.test6
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")))