legacy tests: migrate test98

test/functional/legacy/098_scrollbind_spec.lua

@@ -0,0 +1,48 @@
+-- Test for 'scrollbind' causing an unexpected scroll of one of the windows.
+
+local helpers = require('test.functional.helpers')
+local feed, insert, source = helpers.feed, helpers.insert, helpers.source
+local clear, execute, expect = helpers.clear, helpers.execute, helpers.expect
+
+describe('scrollbind', function()
+  setup(clear)
+
+  it('is working', function()
+    source([[
+      set laststatus=0
+      let g:totalLines = &lines * 20
+      let middle = g:totalLines / 2
+      wincmd n
+      wincmd o
+      for i in range(1, g:totalLines)
+          call setline(i, 'LINE ' . i)
+      endfor
+      exe string(middle)
+      normal zt
+      normal M
+      aboveleft vert new
+      for i in range(1, g:totalLines)
+          call setline(i, 'line ' . i)
+      endfor
+      exe string(middle)
+      normal zt
+      normal M
+      setl scb | wincmd p
+      setl scb
+      wincmd w
+      let topLineLeft = line('w0')
+      wincmd p
+      let topLineRight = line('w0')
+      setl noscrollbind
+      wincmd p
+      setl noscrollbind
+      q!
+      %del _
+      call setline(1, 'Difference between the top lines (left - right): ' . string(topLineLeft - topLineRight))
+      brewind
+    ]])
+
+    -- Assert buffer contents.
+    expect("Difference between the top lines (left - right): 0")
+  end)
+end)