   "Check tooltip request works"
   (fsharp-mode-wrapper '("Program.fs")
    (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)
          (find-file "Test1/Program.fs")
          (ac-fsharp-load-project "Test1.fsproj")
          (while (eq nil ac-fsharp-project-files)

  "Check we can request a tooltip from a script"
  (fsharp-mode-wrapper '("Script.fsx")
   (lambda ()
     (let ((tiptext))
       (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)

         (with-timeout (5)
           (while (eq nil tiptext)
             (sleep-for 1)))
         (should
          (string-match-p "val func : x:int -> int\n\nFull name: Program.X.func"
                          tiptext)))))))
