paste: WIP #4448

1 files changed, 204 insertions, 0 deletions

diff --git a/test/functional/terminal/paste_spec.lua b/test/functional/terminal/paste_spec.lua
new file mode 100644
index 0000000000..1c1f57246c
--- /dev/null
+++ b/test/functional/terminal/paste_spec.lua
@@ -0,0 +1,204 @@
+-- TUI tests for "bracketed paste" mode.
+-- http://invisible-island.net/xterm/ctlseqs/ctlseqs.html#h2-Bracketed-Paste-Mode
+local helpers = require('test.functional.helpers')
+local child_tui = require('test.functional.tui.child_session')
+local Screen = require('test.functional.ui.screen')
+local execute = helpers.execute
+local nvim_dir = helpers.nvim_dir
+local eval = helpers.eval
+local eq = helpers.eq
+local feed_tui = child_tui.feed_data
+
+describe('tui paste', function()
+  local screen
+
+  before_each(function()
+    helpers.clear()
+    screen = child_tui.screen_setup(0, '["'..helpers.nvim_prog..
+      '", "-u", "NONE", "-i", "NONE", "--cmd", "set noswapfile"]')
+
+    -- Pasting can be really slow in the TUI, especially in ASAN.
+    screen.timeout = 5000
+
+    screen:expect([[
+      {1: }                                                 |
+      ~                                                 |
+      ~                                                 |
+      ~                                                 |
+      [No Name]                                         |
+                                                        |
+      -- TERMINAL --                                    |
+    ]])
+  end)
+
+  after_each(function()
+    screen:detach()
+  end)
+
+  local function setup_harness()
+    -- Delete the default PastePre/PastePost autocmds.
+    feed_tui(":autocmd! PastePre,PastePost\n")
+
+    -- Set up test handlers.
+    feed_tui(":autocmd PastePre * "..
+      "call feedkeys('iPastePre mode:'.mode(),'n')\n")
+    feed_tui(":autocmd PastePost * "..
+      "call feedkeys('PastePost mode:'.mode(),'n')\n")
+  end
+
+  it('handles long bursts of input', function()
+    execute('set ruler')
+    local t = {}
+    for i = 1, 3000 do
+      t[i] = 'item ' .. tostring(i)
+    end
+    feed_tui('i\027[200~')
+    feed_tui(table.concat(t, '\n'))
+    feed_tui('\027[201~')
+    screen:expect([[
+      item 2997                                         |
+      item 2998                                         |
+      item 2999                                         |
+      item 3000{1: }                                        |
+      [No Name] [+]                   3000,10        Bot|
+      -- INSERT --                                      |
+      -- TERMINAL --                                    |
+    ]])
+  end)
+
+  it('raises PastePre, PastePost in normal-mode', function()
+    setup_harness()
+
+    -- Send the "start paste" sequence.
+    feed_tui("\027[200~")
+    feed_tui("\npasted from terminal (1)\npasted from terminal (2)\n")
+    -- Send the "stop paste" sequence.
+    feed_tui("\027[201~")
+
+    screen:expect([[
+      PastePre mode:n                                   |
+      pasted from terminal (1)                          |
+      pasted from terminal (2)                          |
+      PastePost mode:i{1: }                                 |
+      [No Name] [+]                                     |
+      -- INSERT --                                      |
+      -- TERMINAL --                                    |
+    ]])
+  end)
+
+  it('forwards spurious "start paste" sequence', function()
+    setup_harness()
+    -- If multiple "start paste" sequences are sent without a corresponding
+    -- "stop paste" sequence, only the first occurrence should be consumed.
+
+    -- Send the "start paste" sequence.
+    feed_tui("\027[200~")
+    feed_tui("\npasted from terminal (1)\n")
+    -- Send spurious "start paste" sequence.
+    feed_tui("\027[200~")
+    feed_tui("\n")
+    -- Send the "stop paste" sequence.
+    feed_tui("\027[201~")
+
+    screen:expect([[
+      PastePre mode:n                                   |
+      pasted from terminal (1)                          |
+      {1:^[}200~                                            |
+      PastePost mode:i{2: }                                 |
+      [No Name] [+]                                     |
+      -- INSERT --                                      |
+      -- TERMINAL --                                    |
+    ]], {
+      [1] = {foreground = 4},
+      [2] = {reverse = true},
+    })
+  end)
+
+  it('ignores spurious "stop paste" sequence', function()
+    setup_harness()
+    -- If "stop paste" sequence is received without a preceding "start paste"
+    -- sequence, it should be ignored.
+
+    feed_tui("i")
+    -- Send "stop paste" sequence.
+    feed_tui("\027[201~")
+
+    screen:expect([[
+      {1: }                                                 |
+      ~                                                 |
+      ~                                                 |
+      ~                                                 |
+      [No Name]                                         |
+      -- INSERT --                                      |
+      -- TERMINAL --                                    |
+    ]])
+  end)
+
+  it('raises PastePre, PastePost in command-mode', function()
+    -- The default PastePre/PastePost handlers set the 'paste' option. To test,
+    -- we define a command-mode map, then assert that the mapping was ignored
+    -- during paste.
+    feed_tui(":cnoremap st XXX\n")
+
+    feed_tui(":not pasted")
+
+    -- Paste did not start, so the mapping _should_ apply.
+    screen:expect([[
+                                                        |
+      ~                                                 |
+      ~                                                 |
+      ~                                                 |
+      [No Name]                                         |
+      :not paXXXed{1: }                                     |
+      -- TERMINAL --                                    |
+    ]])
+
+    feed_tui("\003")      -- CTRL-C
+    feed_tui(":")
+    feed_tui("\027[200~") -- Send the "start paste" sequence.
+    feed_tui("pasted")
+
+    -- Paste started, so the mapping should _not_ apply.
+    screen:expect([[
+                                                        |
+      ~                                                 |
+      ~                                                 |
+      ~                                                 |
+      [No Name]                                         |
+      :pasted{1: }                                          |
+      -- TERMINAL --                                    |
+    ]])
+
+    feed_tui("\003")      -- CTRL-C
+    feed_tui(":")
+    feed_tui("\027[201~") -- Send the "stop paste" sequence.
+    feed_tui("not pasted")
+
+    -- Paste stopped, so the mapping _should_ apply.
+    screen:expect([[
+                                                        |
+      ~                                                 |
+      ~                                                 |
+      ~                                                 |
+      [No Name]                                         |
+      :not paXXXed{1: }                                     |
+      -- TERMINAL --                                    |
+    ]])
+
+  end)
+
+  -- TODO
+  it('sets undo-point after consecutive pastes', function()
+  end)
+
+  -- TODO
+  it('handles missing "stop paste" sequence', function()
+  end)
+
+  -- TODO: error when pasting into 'nomodifiable' buffer:
+  --      [error @ do_put:2656] 17043 - Failed to save undo information
+  it("handles 'nomodifiable' buffer gracefully", function()
+  end)
+
+end)
+