(progn
  (setq test-ivy-history '())
  ;; Enter "a", hit enter
  (ivy-completing-read
   "Test: "
   (list "ab" "bb")
   nil 'require-match nil 'test-ivy-history (car test-ivy-history))
  (equal test-ivy-history (list "a")))