anchor.diff:                       :googol -1.0000000000000002d100)
                    :arr (t nil :undefined :null 100000 "hello" (:one 1)))
                  %result%)))
  -  (setf webkit:*js-object-type* :hash-table))
  +  (setf webkit:*js-object-type* :alist))
   
   (run! 'webkit-tests)
   
  
positive.code:     (is (equal (list t nil t t nil) %result%))))
  
  (def-test everything-array (:suite js-tests)
    (setf webkit:*js-object-type* :alist)
    (with-js-transform-result "[true, false, undefined, null, 100000, \"hello\", {one: 1}]"
      (is (equal (list t nil :undefined :null 100000 "hello" '(("one" . 1))) %result%)))
    (setf webkit:*js-object-type* :hash-table))
  
  (def-test everything-array-vector (:suite js-tests)
    (setf webkit:*js-object-type* :alist
          webkit:*js-array-type* :vector)
    (with-js-transform-result "[true, false, undefined, null, 100000, \"hello\", {one: 1}]"
      (is (equalp (vector t nil :undefined :null 100000 "hello" '(("one" . 1))) %result%)))
    (setf webkit:*js-object-type* :hash-table
          webkit:*js-array-type* :list))
  
  ;;; Objects
  
  (def-test single-field-object (:suite js-tests)
    (setf webkit:*js-object-type* :alist)
    (with-js-transform-result "var obj = {one: 1}; obj"
      (is (equal (list (cons "one"  1)) %result%)))
    (setf webkit:*js-object-type* :hash-table))
  
  (def-test long-object (:suite js-tests)
    (setf webkit:*js-object-type* :alist)
    (with-js-transform-result
        "var obj = {one: 1, two: 2, three: 3, five: 5, ten: 10, googol: Math.pow(10, 100)}; obj"
      (is (equal (list (cons "one"  1)
  
negative.code:                      (cons "five" 5)
                       (cons "ten" 10)
                       (cons "googol" 1.0000000000000002d100))
                 %result%))))
  
  (def-test everything-object (:suite js-tests)
    (with-js-transform-result
        "var obj = {one: 1, nul: null, undef: undefined, googol: Math.pow(10, 100),
  nil: false, t: true,
  