function! TestSetFoldable()
  " Depends on visual selection
  let firstline = line("'<")
  let lastline = line("'>")
  echo "Opening fold marker at: ".firstline
  echo "Closing fold marker at: ".lastline
  echo "Trying OFM .. "
  call setpos('.', [ 0, firstline, 1, 0 ])
  echo "e"
  echo getpos('.')
  exe ":normal! ".firstline."G"
  echo "d"
  echo getpos('.')
  echo "d2"
  silent! exe ":silent! normal! A # Indirect {{{"
  echo "c1"
  echo getpos('.')
  echo "c"
  exe firstline."normal! A # Direct {{{"
  echo "b"
  echo getpos('.')
  echo "Trying CFM .. "
  call setpos('.', [ 0, lastline, 1, 0 ])
  echo "x"
  echo getpos('.')
  exe ":normal! ".lastline."G"
  echo "y"
  echo getpos('.')
  echo "y"
  exe ":normal! A # Indirect }}}"
  echo "z"
  echo getpos('.')
  echo "z"
  exe lastline."normal! A # Indirect }}}"
  echo "a"
  echo getpos('.')
endfun