cj-url-encode-test.scm

;;; Copyright 2018 by Christian Jaeger <ch@christianjaeger.ch>

;;;    This file is free software; you can redistribute it and/or modify
;;;    it under the terms of the GNU General Public License (GPL) as published 
;;;    by the Free Software Foundation, either version 2 of the License, or
;;;    (at your option) any later version.


(require easy
	 cj-url-encode
	 test
	 test-random)

(def (cj-url-encode-test n len)
     (repeat n (let* ((s (random-string len))
		      (s* (url-encode s)))
		 (assert (>= (string-length s*) len))
		 (assert (string=? (url-decode s*) s)))))

(TEST
 > (cj-url-encode-test 100 1)
 > (cj-url-encode-test 10 4)
 > (cj-url-encode-test 10 40))


(def (cj-url-encode-bench n len)
     (repeat n (=> (random-string len)
		   url-encode)))