← Back to branch summary

~ubuntu-branches/ubuntu/raring/cl-puri/raring

« back to all changes in this revision

Viewing changes to tests.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Kevin M. Rosenberg
  • Date: 2010-04-09 10:42:28 UTC
  • mfrom: (1.2.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 12.
  • Revision ID: james.westby@ubuntu.com-20100409104228-xr71xt2ottkg2ez5
Tags: 1.5.4-1
* New upstream
* Switch to dpkg-source 3.0 (quilt) format

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests.lisp
408
408
       :condition-type 'uri-parse-error)
409
409
     res)
410
410
 
 
411
    ;;; tests for weird control characters
 
412
    ;; http://www.ietf.org/rfc/rfc2396.txt 2.4.3
 
413
    (dolist (x '("https://example.com/q?foo%0abar%20baz" ;;an escaped newline
 
414
                 "https://example.com/q?%7f" ;; 7f, 127
 
415
                 ))
 
416
      (push
 
417
       `(let ((weird-uri ,x))
 
418
          (test weird-uri
 
419
                (puri:render-uri (puri:parse-uri weird-uri) nil)
 
420
                :test #'string=)
 
421
          ) res))
 
422
 
411
423
    `(progn ,@(nreverse res))))
412
424
 
413
425
(defun do-tests ()