anchor.diff:  
   (def-suite js-tests :description "Testing JS value transformation." :in webkit-tests)
   
  -(defvar *webkit-environment* (make-hash-table :test 'equal))
  +(defvar *view* nil "A testing view.")
   
   (defmacro with-js-transform-result (js-string (var &optional (jsc-var (gensym))
                                                        (context-var (gensym)))
  
positive.code:                    :buffer (make-instance 'jpl-queues:bounded-fifo-queue :capacity 1))))
       (gtk:within-gtk-thread
         (webkit2:webkit-web-view-evaluate-javascript
          (gethash "view" *webkit-environment*) ,js-string
          (lambda (result jsc-value)
            (calispel:! channel result)
            (calispel:! channel jsc-value)
  
negative.code:                                   (gtk:leave-gtk-main)))
      (gtk:gtk-container-add win view)
      (webkit2:webkit-web-view-load-uri view "http://www.example.com")
      (setf *view* view)))
  
  ;;; General tests
  
  