-;;; Test suite for truncate-string-to-width
-;; (dolist (test '((("" 0) . "")
-;; (("x" 1) . "x")
-;; (("xy" 1) . "x")
-;; (("xy" 2 1) . "y")
-;; (("xy" 0) . "")
-;; (("xy" 3) . "xy")
-;; (("\e$AVP\e(B" 0) . "")
-;; (("\e$AVP\e(B" 1) . "")
-;; (("\e$AVP\e(B" 2) . "\e$AVP\e(B")
-;; (("\e$AVP\e(B" 1 nil ? ) . " ")
-;; (("\e$AVPND\e(B" 3 1 ? ) . " ")
-;; (("x\e$AVP\e(Bx" 2) . "x")
-;; (("x\e$AVP\e(Bx" 3) . "x\e$AVP\e(B")
-;; (("x\e$AVP\e(Bx" 3) . "x\e$AVP\e(B")
-;; (("x\e$AVP\e(Bx" 4 1) . "\e$AVP\e(Bx")
-;; (("kor\e$(CGQ\e(Be\e$(C1[\e(Ban" 8 1 ? ) . "or\e$(CGQ\e(Be\e$(C1[\e(B")
-;; (("kor\e$(CGQ\e(Be\e$(C1[\e(Ban" 7 2 ? ) . "r\e$(CGQ\e(Be ")
-;; (("" 0 nil nil "...") . "")
-;; (("x" 3 nil nil "...") . "x")
-;; (("\e$AVP\e(B" 3 nil nil "...") . "\e$AVP\e(B")
-;; (("foo" 3 nil nil "...") . "foo")
-;; (("foo" 2 nil nil "...") . "fo") ;; XEmacs failure?
-;; (("foobar" 6 0 nil "...") . "foobar")
-;; (("foobarbaz" 6 nil nil "...") . "foo...")
-;; (("foobarbaz" 7 2 nil "...") . "ob...")
-;; (("foobarbaz" 9 3 nil "...") . "barbaz")
-;; (("\e$A$3\e(Bh\e$A$s\e(Be\e$A$K\e(Bl\e$A$A\e(Bl\e$A$O\e(Bo" 15 1 ? t) . " h\e$A$s\e(Be\e$A$K\e(Bl\e$A$A\e(Bl\e$A$O\e(Bo")
-;; (("\e$A$3\e(Bh\e$A$s\e(Be\e$A$K\e(Bl\e$A$A\e(Bl\e$A$O\e(Bo" 14 1 ? t) . " h\e$A$s\e(Be\e$A$K\e(Bl\e$A$A\e(B...")
-;; (("x" 3 nil nil "\e$(Gemk#\e(B") . "x")
-;; (("\e$AVP\e(B" 2 nil nil "\e$(Gemk#\e(B") . "\e$AVP\e(B")
-;; (("\e$AVP\e(B" 1 nil ?x "\e$(Gemk#\e(B") . "x") ;; XEmacs error
-;; (("\e$AVPND\e(B" 3 nil ? "\e$(Gemk#\e(B") . "\e$AVP\e(B ") ;; XEmacs error
-;; (("foobarbaz" 4 nil nil "\e$(Gemk#\e(B") . "\e$(Gemk#\e(B")
-;; (("foobarbaz" 5 nil nil "\e$(Gemk#\e(B") . "f\e$(Gemk#\e(B")
-;; (("foobarbaz" 6 nil nil "\e$(Gemk#\e(B") . "fo\e$(Gemk#\e(B")
-;; (("foobarbaz" 8 3 nil "\e$(Gemk#\e(B") . "b\e$(Gemk#\e(B")
-;; (("\e$A$3\e(Bh\e$A$s\e(Be\e$A$K\e(Bl\e$A$A\e(Bl\e$A$O\e(Bo" 14 4 ?x "\e$AHU1>\e$(Gk#\e(B") . "xe\e$A$KHU1>\e$(Gk#\e(B")
-;; (("\e$A$3\e(Bh\e$A$s\e(Be\e$A$K\e(Bl\e$A$A\e(Bl\e$A$O\e(Bo" 13 4 ?x "\e$AHU1>\e$(Gk#\e(B") . "xex\e$AHU1>\e$(Gk#\e(B")
-;; ))
-;; (let (ret)
-;; (condition-case e
-;; (setq ret (apply #'truncate-string-to-width (car test)))
-;; (error (setq ret e)))
-;; (unless (equal ret (cdr test))
-;; (error "%s: expected %s, got %s"
-;; (prin1-to-string (cons 'truncate-string-to-width (car test)))
-;; (prin1-to-string (cdr test))
-;; (if (consp ret)
-;; (format "error: %s: %s" (car ret)
-;; (prin1-to-string (cdr ret)))
-;; (prin1-to-string ret))))))
-