78.8% test coverage!

This commit is contained in:
Hisham Muhammad 2015-03-30 01:52:39 -03:00
parent 99e58b3200
commit 849adf6155
1 changed files with 288 additions and 35 deletions

View File

@ -5,7 +5,6 @@ local VISUALDELAY = os.getenv("VISUALDELAY")
local visual = VISUALDELAY or false local visual = VISUALDELAY or false
local visual_delay = VISUALDELAY and (tonumber(VISUALDELAY)) or 0.1 local visual_delay = VISUALDELAY and (tonumber(VISUALDELAY)) or 0.1
local signal = require("posix.signal")
local unistd = require("posix.unistd") local unistd = require("posix.unistd")
local time = require("posix.time") local time = require("posix.time")
local curses = require("posix.curses") local curses = require("posix.curses")
@ -17,7 +16,10 @@ os.execute("make coverage")
os.execute("rm -f *.gcda */*.gcda") os.execute("rm -f *.gcda */*.gcda")
os.execute("rm -f coverage.info test.htoprc") os.execute("rm -f coverage.info test.htoprc")
os.execute("rm -rf lcov") os.execute("rm -rf lcov")
os.execute("killall htop")
os.execute("ps aux | grep '[s]leep 12345' | awk '{print $2}' | xargs kill 2> /dev/null")
os.execute("cp ./default.htoprc ./test.htoprc")
rt:forkPty("HTOPRC=./test.htoprc ./htop") rt:forkPty("HTOPRC=./test.htoprc ./htop")
local stdscr, term_win local stdscr, term_win
@ -65,6 +67,7 @@ local function show(key)
end end
local function send(key, times) local function send(key, times)
if times == 0 then return end
for i = 1, times or 1 do for i = 1, times or 1 do
delay(0.003) -- 30ms delay to avoid clobbering Esc sequences delay(0.003) -- 30ms delay to avoid clobbering Esc sequences
if type(key) == "string" then if type(key) == "string" then
@ -95,31 +98,34 @@ local function check_string_at(x, y, str)
return { str, string_at(x, y, #str) } return { str, string_at(x, y, #str) }
end end
local ESC = 27 local ESC = "\27\27"
time.nanosleep({ tv_sec = 0, tv_nsec = 150000000 }) -- give some time for htop to initialize. time.nanosleep({ tv_sec = 0, tv_nsec = 150000000 }) -- give some time for htop to initialize.
local pos_panelhdr = (function() local y_panelhdr = (function()
for i = 1, 24 do for y = 1, 24 do
if is_string_at(3, i, "PID") then if is_string_at(3, y, "PID") then
return i return y
end end
end end
end)() or 1 end)() or 1
local x_metercol2 = 43
show() show()
local terminated = false os.execute("sleep 12345 &")
signal.signal(signal.SIGCHLD, function(_)
terminated = true local function terminated()
end) return not os.execute("ps aux | grep -q '\\./[h]top'")
end
local function running_it(desc, fn) local function running_it(desc, fn)
it(desc, function() it(desc, function()
assert(not terminated) assert(not terminated())
show() show()
fn() fn()
assert(not terminated) assert(not terminated())
end) end)
end end
@ -127,12 +133,181 @@ local function check(t)
return t[1], t[2] return t[1], t[2]
end end
local attrs = {
black_on_cyan = 6,
red_on_cyan = 22,
}
local function find_selected_y()
for y = y_panelhdr + 1, rt:rows() - 1 do
local attr = rt:cellAttr(y-1, 1)
if attr == attrs.black_on_cyan then
return y
end
end
return y_panelhdr + 1
end
local function find_command_x()
for x = 1, 80 do
if is_string_at(x, y_panelhdr, "Command") then
return x
end
end
return 64
end
describe("htop test suite", function() describe("htop test suite", function()
running_it("performs incremental filter", function()
send("\\")
send("busted")
send("\n")
delay(0.2)
rt:update()
local pid = (" "..tostring(unistd.getpid())):sub(-5)
local ourpid = check_string_at(1, y_panelhdr + 1, pid)
send("\\")
send(ESC)
send(curses.KEY_F5)
send(curses.KEY_HOME)
delay(0.15)
rt:update()
local initpid = check_string_at(1, y_panelhdr + 1, " 1")
delay(0.15)
rt:update()
send(curses.KEY_F5)
assert.equal(check(ourpid))
assert.equal(check(initpid))
end)
running_it("performs incremental search", function()
send(curses.KEY_HOME)
send("/")
send("busted")
local attr = rt:cellAttr(rt:rows() - 1, 30)
send("\n")
delay(0.4)
rt:update()
local line = find_selected_y()
local pid = (" "..tostring(unistd.getpid())):sub(-5)
assert.equal(attr, attrs.black_on_cyan)
local ourpid = check_string_at(1, line, pid)
send(curses.KEY_HOME)
assert.equal(check(ourpid))
end)
running_it("kills a process", function()
send(curses.KEY_HOME)
send("\\")
send("sleep 12345")
local attr = rt:cellAttr(rt:rows() - 1, 30)
assert.equal(attr, attrs.black_on_cyan)
send("\n")
delay(0.3)
rt:update()
local col = find_command_x()
local procname = check_string_at(col, y_panelhdr + 1, "sleep 12345")
send("k")
send("\n")
send("\\")
send(ESC)
delay(0.3)
assert.equal(check(procname))
assert.not_equal((os.execute("ps aux | grep -q '[s]leep 12345'")), true)
end)
running_it("runs strace", function()
send(curses.KEY_HOME)
send("/")
send("busted")
send("\n")
send("s")
delay(1)
delay(1)
send(ESC)
end)
running_it("runs lsof", function()
send(curses.KEY_HOME)
send("/")
send("busted")
send("\n")
send("l")
delay(1)
delay(1)
send(ESC)
end)
running_it("cycles through meter modes", function()
send("S")
send(curses.KEY_RIGHT)
send(curses.KEY_DOWN)
send("\n\n\n\n\n")
send(ESC)
end)
running_it("show process of a user", function()
send(curses.KEY_F5)
send("u")
send(curses.KEY_DOWN)
delay(0.3)
rt:update()
local chosen = string_at(1, y_panelhdr + 2, 9)
send("\n")
send(curses.KEY_HOME)
delay(0.3)
rt:update()
local shown = string_at(7, y_panelhdr + 1, 9)
send("u")
send("\n")
send(curses.KEY_HOME)
delay(0.3)
rt:update()
local inituser = string_at(7, y_panelhdr + 1, 9)
send(curses.KEY_F5)
assert.equal(shown, chosen)
assert.equal(inituser, "root ")
end)
running_it("performs failing search", function()
send(curses.KEY_HOME)
send("/")
send("xxxxxxxxxx")
delay(0.3)
rt:update()
local attr = rt:cellAttr(rt:rows() - 1, 30)
assert.equal(attr, attrs.red_on_cyan)
send("\n")
end)
running_it("cycles through search", function()
send(curses.KEY_HOME)
send("/")
send("sh")
local lastpid
local pidpairs = {}
for _ = 1, 3 do
send(curses.KEY_F3)
local line = find_selected_y()
local pid = string_at(1, line, 5)
if lastpid then
pidpairs[#pidpairs + 1] = { lastpid, pid }
lastpid = pid
end
end
send(curses.KEY_HOME)
for _, pair in pairs(pidpairs) do
assert.not_equal(pair[1], pair[2])
end
end)
running_it("visits each setup screen", function() running_it("visits each setup screen", function()
send("S") send("S")
send(curses.KEY_DOWN, 3) send(curses.KEY_DOWN, 3)
send(curses.KEY_F10) send(curses.KEY_F10)
end) end)
running_it("adds and removes PPID column", function() running_it("adds and removes PPID column", function()
send("S") send("S")
send(curses.KEY_DOWN, 3) send(curses.KEY_DOWN, 3)
@ -141,51 +316,129 @@ describe("htop test suite", function()
send("\n") send("\n")
send(curses.KEY_F10) send(curses.KEY_F10)
delay(0.2) delay(0.2)
local ppid = check_string_at(2, pos_panelhdr, "PPID") local ppid = check_string_at(2, y_panelhdr, "PPID")
send("S") send("S")
send(curses.KEY_DOWN, 3) send(curses.KEY_DOWN, 3)
send(curses.KEY_RIGHT, 1) send(curses.KEY_RIGHT, 1)
send(curses.KEY_DC) send(curses.KEY_DC)
send(curses.KEY_F10) send(curses.KEY_F10)
delay(0.2) delay(0.2)
local not_ppid = check_string_at(2, pos_panelhdr, "PPID") local not_ppid = check_string_at(2, y_panelhdr, "PPID")
assert.equal(check(ppid)) assert.equal(check(ppid))
assert.not_equal(check(not_ppid)) assert.not_equal(check(not_ppid))
end) end)
running_it("changes CPU affinity for a process", function() running_it("changes CPU affinity for a process", function()
send("a") send("a")
send(" \n") send(" \n")
send(ESC) send(ESC)
end) end)
running_it("adds and removes a clock widget", function()
running_it("changes IO priority for a process", function()
send("/")
send("htop")
send("\n")
send("i")
send(curses.KEY_END)
send("\n")
send(ESC)
end)
local meters = {
{ name = "clock", down = 0, string = "Time" },
{ name = "load", down = 2, string = "Load" },
{ name = "battery", down = 7, string = "Battery" },
{ name = "hostname", down = 8, string = "Hostname" },
}
for _, item in ipairs(meters) do
running_it("adds and removes a "..item.name.." widget", function()
send("S") send("S")
send(curses.KEY_RIGHT, 3) send(curses.KEY_RIGHT, 3)
send(curses.KEY_DOWN, item.down)
if branch == "wip" then
send("\n") send("\n")
send(curses.KEY_UP, 4) send(curses.KEY_UP, 4)
send("\n") send("\n")
local time = check_string_at(41, 2, "Time") else
send(curses.KEY_F6)
send(curses.KEY_LEFT)
send(curses.KEY_DOWN, 4)
send(curses.KEY_F7, 4)
end
delay(0.15)
rt:update()
local with = check_string_at(x_metercol2, 2, item.string)
send(curses.KEY_DC) send(curses.KEY_DC)
delay(0.3) delay(0.15)
local not_time = check_string_at(41, 2, "Time") local without = check_string_at(x_metercol2, 2, item.string)
send(ESC) send(curses.KEY_F10)
assert.equal(check(time)) assert.equal(check(with))
assert.not_equal(check(not_time)) assert.not_equal(check(without))
end) end)
running_it("adds a hostname widget", function() end
running_it("goes through themes", function()
send(curses.KEY_F2)
send(curses.KEY_DOWN, 2)
send(curses.KEY_RIGHT)
for i = 1, 6 do
send("\n")
send(curses.KEY_DOWN)
end
send(curses.KEY_UP, 6)
send("\n")
send(curses.KEY_F10)
end)
local display_options = {
{ name = "tree view", down = 0 },
{ name = "shadow other user's process", down = 1 },
{ name = "hide kernel threads", down = 2 },
{ name = "hide userland threads", down = 3 },
{ name = "display threads in different color", down = 4 },
{ name = "show custom thread names", down = 5 },
{ name = "highlight basename", down = 6 },
{ name = "highlight large numbers", down = 7 },
{ name = "leave margin around header", down = 8 },
{ name = "use detailed CPU time", down = 9 },
{ name = "count from zero", down = 10 },
{ name = "update process names", down = 11 },
{ name = "guest time in CPU%", down = 12 },
}
for _, item in ipairs(display_options) do
running_it("checks display option to "..item.name, function()
for _ = 1, 2 do
send("S") send("S")
send(curses.KEY_RIGHT, 3) send(curses.KEY_DOWN)
send(curses.KEY_DOWN, 8) send(curses.KEY_RIGHT)
send(curses.KEY_DOWN, item.down)
send("\n") send("\n")
send("\n") send(curses.KEY_F10)
send(ESC) delay(0.1)
end
end) end)
end
for i = 1, 53 do
running_it("show column "..i, function()
send("S")
send(curses.KEY_END)
send(curses.KEY_RIGHT, 2)
send(curses.KEY_DOWN, i)
send("\n")
send(curses.KEY_F10)
end)
end
it("finally quits", function() it("finally quits", function()
assert(not terminated) assert(not terminated())
send("q") send("q")
while not terminated do while not terminated() do
unistd.sleep(1) unistd.sleep(1)
end end
assert(terminated) assert(terminated())
if visual then if visual then
curses.endwin() curses.endwin()
end end