character encoding fixes in test.lisp

diff --git a/t/test.lisp b/t/test.lisp
index 7511286..8d3657d 100644 (file)
--- a/t/test.lisp
+++ b/t/test.lisp
@@ -209,15 +209,15 @@ x = 2 + sideEffect() + x + 5;")
 (test escape-sequences-in-string
   (let ((escapes `((#\\ . #\\)
                    (#\b . #\Backspace)
-                   (#\f . #\Form)
-                   ("u000b" . ,(code-char #x000b));;Vertical tab, too uncommon to bother with
+                   (#\f . ,(code-char 12))
+                   ("u000B" . ,(code-char #x000b));;Vertical tab, too uncommon to bother with
                    (#\n . #\Newline)
                    (#\r . #\Return)
                    (#\' . #\');;Double quote need not be quoted because parenscript strings are single quoted
                    (#\t . #\Tab)
-                   ("u001f" . ,(code-char #x001f));; character below 32
+                   ("u001F" . ,(code-char #x001f));; character below 32
                    ("u0080" . ,(code-char 128)) ;;Character over 127. Actually valid, parenscript escapes them to be sure.
-                   ("uabcd" . ,(code-char #xabcd)))));; Really above ascii.
+                   ("uABCD" . ,(code-char #xabcd)))));; Really above ascii.
     (loop for (js-escape . lisp-char) in escapes
           for generated = (js-to-string `(let ((x , (format nil "hello~ahi" lisp-char)))))
           for wanted = (format nil "{