anchor.diff:      (is (equal 1 (gethash "one" %result%)))
       (is (eq :null (gethash "nul" %result%)))
       (is (eq :undefined (gethash "undef" %result%)))
  -    (is (equal 1.0000000000000002d100 (gethash "googol" %result%)))
  +    (is (equal *googol* (gethash "googol" %result%)))
       (is (eq nil (gethash "nil" %result%)))
       (is (eq t (gethash "t" %result%)))
  -    (is (equalp (let ((alist '(("one" 1)
  +    (is (equalp (let ((alist `(("one" 1)
                                  ("two" 2)
                                  ("three" 3)
                                  ("five" 5)
                                  ("ten" 10)
  -                               ("googol" -1.0000000000000002d100)))
  +                               ("googol" ,(- *googol*))))
                         (ht (make-hash-table :test 'equal)))
                     (dolist (pair alist)
                       (setf (gethash (first pair) ht) (second pair)))
  
positive.code: (def-suite js-tests :description "Testing JS value transformation." :in webkit-tests)
  
  (defvar *view* nil "A testing view.")
  
  (defmacro with-js-transform-result (js-string (var &optional (jsc-var (gensym))
                                                       (context-var (gensym)))
  
negative.code:                        ("three" 3)
                         ("five" 5)
                         ("ten" 10)
                         ("googol" ,(- *googol*))))
                   ("arr" (t nil :undefined :null 100000 "hello" (("one" 1)))))
                 %result%)))
    (setf webkit:*js-object-type* :hash-table))
  