X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests.lisp;fp=tests.lisp;h=03449227920c8dc5b69973e5a17ea051a3aff4ea;hb=1509227702b71880f8362b0ddb6253a95a019678;hp=b5cbe37e8132ddff3ae926c89c226e0d384811de;hpb=0954064e7b542fdbdc74db913ecce9fb6e390f19;p=puri-unicode.git

diff --git a/tests.lisp b/tests.lisp
index b5cbe37..0344922 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -408,6 +408,18 @@
        :condition-type 'uri-parse-error)
      res)
 
+    ;;; tests for weird control characters
+    ;; http://www.ietf.org/rfc/rfc2396.txt 2.4.3
+    (dolist (x '("https://example.com/q?foo%0abar%20baz" ;;an escaped newline
+		 "https://example.com/q?%7f" ;; 7f, 127
+		 ))
+      (push
+       `(let ((weird-uri ,x))
+	  (test weird-uri
+		(puri:render-uri (puri:parse-uri weird-uri) nil)
+		:test #'string=)
+	  ) res))
+
     `(progn ,@(nreverse res))))
 
 (defun do-tests ()