config.target = 'core'

local gui = require('gui')

local widgets = require('gui.widgets')

local fs = defclass(nil, gui.FramedScreen)

fs.ATTRS = {

frame_style = gui.GREY_LINE_FRAME,

frame_title = 'TestFramedScreen',

frame_width = 10,

frame_height = 10,

frame_inset = 0,

focus_path = 'test-framed-screen',

}

function test.scroll()

local t = {}

for i = 1, 12 do

t[#t+1] = tostring(i)

t[#t+1] = NEWLINE

end

function fs:init()

self:addviews{

widgets.Label{

view_id = 'text',

frame_inset = 0,

text = t,

},

}

end

local o = fs{frame_height=3}

local txt = o.subviews.text

expect.eq(1, txt.start_line_num)

txt:scroll(1)

expect.eq(2, txt.start_line_num)

txt:scroll('+page')

expect.eq(5, txt.start_line_num)

txt:scroll('+halfpage')

expect.eq(7, txt.start_line_num)

txt:scroll('-halfpage')

expect.eq(5, txt.start_line_num)

txt:scroll('-page')

expect.eq(2, txt.start_line_num)

txt:scroll(-1)

expect.eq(1, txt.start_line_num)

txt:scroll(-1)

expect.eq(1, txt.start_line_num)

txt:scroll(100)

expect.eq(10, txt.start_line_num)

end