(defpackage :test-url-encode
  (:documentation "Tests for url-encode.lisp.")
  (:use :cl :lisp-unit :cl-xdg-trash/url-encode))

(in-package :test-url-encode)

(define-test :url-encode
  (assert-equal "W" (url-encode "W"))
  (assert-equal "%CE%92" (url-encode "Β"))
  (assert-equal "%EC%9C%84" (url-encode "위"))
  (assert-equal "%F0%90%8D%85" (url-encode "𐍅"))
  (assert-equal "a%E3%81%82A%F0%9F%8D%A3S%C3%A1B" (url-encode "aあA🍣SáB")))

(define-test :url-decode
  (assert-equal "W" (url-decode "W"))
  (assert-equal "Β" (url-decode "%CE%92"))
  (assert-equal "위" (url-decode "%EC%9C%84"))
  (assert-equal "𐍅" (url-decode "%F0%90%8D%85"))
  (assert-equal "aあA🍣SáB" (url-decode "a%E3%81%82A%F0%9F%8D%A3S%C3%A1B"))
  (assert-error 'url-decode-error (url-decode "%F"))
  (assert-error 'url-decode-error (url-decode "%CE%9"))
  (assert-error 'url-decode-error (url-decode "%EC%9C%8"))
  (assert-error 'url-decode-error (url-decode "%EC%9%84"))
  (assert-error 'url-decode-error (url-decode "%E%9C%84")))