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

  (fsharp-mode-wrapper '("Program.fs")
   (lambda ()
     (find-file "Test1/Program.fs")
     (fsharp-mode-completion/start-process)
     (should (buffer-live-p (get-buffer "*fsharp-complete*")))
     (should (process-live-p ac-fsharp-completion-process))
     (process-send-string ac-fsharp-completion-process "help\n")
     (switch-to-buffer "*fsharp-complete*")
     (with-timeout (waittime)
       (while (string= (buffer-string) "")
         (accept-process-output ac-fsharp-completion-process)))
     (should (search-backward "trigger completion request" nil t)))))


  (fsharp-mode-wrapper '("Script.fsx")
   (lambda ()
     (let ((tiptext)
           (ac-fsharp-use-popup t))
       (flet ((popup-tip (s) (setq tiptext s)))
         (find-file "Test1/Script.fsx")
         (ac-fsharp-parse-current-buffer)
         (call-process "sleep" nil nil nil "3")
         (search-forward "XA.fun")
         (fsharp-mode-completion/show-tooltip-at-point)
         (with-timeout (waittime)
           (while (null tiptext)
             (accept-process-output ac-fsharp-completion-process sleeptime)))
         (should (stringp tiptext))
         (should
          (string-match-p "val funky : x:int -> int\n\nFull name: Script.XA.funky"
