diff --git a/src/testdir/test_options.vim b/src/testdir/test_options.vim
index 83b315d..1bb0d3f 100644
--- a/src/testdir/test_options.vim
+++ b/src/testdir/test_options.vim
@@ -518,3 +518,23 @@
   set so&
   set siso&
 endfunc
+
+func Test_writedelay()
+  if !has('reltime')
+    return
+  endif
+  new
+  call setline(1, 'empty')
+  redraw
+  set writedelay=10
+  let start = reltime()
+  call setline(1, repeat('x', 70))
+  redraw
+  let elapsed = reltimefloat(reltime(start))
+  set writedelay=0
+  " With 'writedelay' set should take at least 30 * 10 msec
+  call assert_inrange(30 * 0.01, 999.0, elapsed)
+
+  bwipe!
+  delfunc ChangeText
+endfunc