   "Check we can request a tooltip from a script"
   (fsharp-mode-wrapper '("Script.fsx")
    (lambda ()
-     (let ((tiptext))
+     (let ((tiptext)
+           (ac-fsharp-use-pos-tip t))
        (flet ((pos-tip-show (s) (setq tiptext s)))
-         (setq ac-fsharp-use-pos-tip t)
          (ac-fsharp-launch-completion-process)
          (find-file "Test1/Script.fsx")
          (ac-fsharp-parse-current-buffer)

           (while (eq nil tiptext)
             (sleep-for 1)))
         (should (stringp tiptext))
         (setq ac-fsharp-use-pos-tip nil)
         (should
          (string-match-p "val funky : x:int -> int\n\nFull name: Script.XA.funky"
                          tiptext)))))))

  "Check tooltip request works"
  (fsharp-mode-wrapper '("Program.fs")
   (lambda ()
     (let ((tiptext)
           (ac-fsharp-use-pos-tip t))
       (flet ((pos-tip-show (s) (setq tiptext s)))
         (find-file "Test1/Program.fs")
         (ac-fsharp-load-project "Test1.fsproj")
         (while (eq nil ac-fsharp-project-files)
