patch 7.4.2013
Problem:    Using "noinsert" in 'completeopt' breaks redo.
Solution:   Set compl_curr_match. (Shougo, closes #874)
diff --git a/src/testdir/test_popup.vim b/src/testdir/test_popup.vim
index a5673c9..cefaee2 100644
--- a/src/testdir/test_popup.vim
+++ b/src/testdir/test_popup.vim
@@ -1,6 +1,5 @@
 " Test for completion menu
 
-inoremap <F5> <C-R>=ListMonths()<CR>
 let g:months = ['January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December']
 let g:setting = ''
 
@@ -13,23 +12,45 @@
 endfunc
 
 func! Test_popup_completion_insertmode()
-    new
-    call feedkeys("a\<f5>\<down>\<enter>\<esc>", 'tx')
-    call assert_equal('February', getline(1))
-    %d
-    let g:setting = 'noinsertmode'
-    call feedkeys("a\<f5>\<down>\<enter>\<esc>", 'tx')
-    call assert_equal('February', getline(1))
-    call assert_false(pumvisible())
-    %d
-    let g:setting = ''
-    call feedkeys("a\<f5>". repeat("\<c-n>",12)."\<enter>\<esc>", 'tx')
-    call assert_equal('', getline(1))
-    %d
-    call feedkeys("a\<f5>\<c-p>\<enter>\<esc>", 'tx')
-    call assert_equal('', getline(1))
-    %d
-    call feedkeys("a\<f5>\<c-p>\<c-p>\<enter>\<esc>", 'tx')
-    call assert_equal('December', getline(1))
-    bwipe!
+  new
+  inoremap <F5> <C-R>=ListMonths()<CR>
+
+  call feedkeys("a\<f5>\<down>\<enter>\<esc>", 'tx')
+  call assert_equal('February', getline(1))
+  %d
+  let g:setting = 'noinsertmode'
+  call feedkeys("a\<f5>\<down>\<enter>\<esc>", 'tx')
+  call assert_equal('February', getline(1))
+  call assert_false(pumvisible())
+  %d
+  let g:setting = ''
+  call feedkeys("a\<f5>". repeat("\<c-n>",12)."\<enter>\<esc>", 'tx')
+  call assert_equal('', getline(1))
+  %d
+  call feedkeys("a\<f5>\<c-p>\<enter>\<esc>", 'tx')
+  call assert_equal('', getline(1))
+  %d
+  call feedkeys("a\<f5>\<c-p>\<c-p>\<enter>\<esc>", 'tx')
+  call assert_equal('December', getline(1))
+
+  bwipe!
+  iunmap <F5>
+endfunc
+
+function! ComplTest() abort
+  call complete(1, ['source', 'soundfold'])
+  return ''
+endfunction
+
+func Test_noinsert_complete()
+  new
+  set completeopt+=noinsert
+  inoremap <F5>  <C-R>=ComplTest()<CR>
+  call feedkeys("i\<F5>soun\<CR>\<CR>\<ESC>.", 'tx')
+  call assert_equal('soundfold', getline(1))
+  call assert_equal('soundfold', getline(2))
+
+  bwipe!
+  set completeopt-=noinsert
+  iunmap <F5>
 endfunc