tests: Add gravity to the test client

This commit is contained in:
Emmanuel Lepage Vallee 2017-02-26 14:20:08 -05:00 committed by Uli Schlachter
parent 40e9393d94
commit 2da1900d85
1 changed files with 9 additions and 1 deletions

View File

@ -16,6 +16,9 @@ local function open_window(class, title, options)
default_height = 100, default_height = 100,
title = title title = title
} }
if options.gravity then
window:set_gravity(tonumber(options.gravity))
end
if options.snid and options.snid ~= "" then if options.snid and options.snid ~= "" then
window:set_startup_id(options.snid) window:set_startup_id(options.snid)
end end
@ -106,7 +109,8 @@ local function get_snid(sn_rules, callback)
return snid return snid
end end
return function(class, title, sn_rules, callback, resize_increment) return function(class, title, sn_rules, callback, resize_increment, args)
args = args or {}
class = class or "test_app" class = class or "test_app"
title = title or "Awesome test client" title = title or "Awesome test client"
@ -120,6 +124,10 @@ return function(class, title, sn_rules, callback, resize_increment)
if resize_increment then if resize_increment then
options = options .. "resize_increment," options = options .. "resize_increment,"
end end
if args.gravity then
assert(type(args.gravity)=="number","Use `lgi.Gdk.Gravity.NORTH_WEST`")
options = options .. "gravity=" .. args.gravity .. ","
end
local data = class .. "\n" .. title .. "\n" .. options .. "\n" local data = class .. "\n" .. title .. "\n" .. options .. "\n"
local success, msg = pipe:write_all(data) local success, msg = pipe:write_all(data)
assert(success, tostring(msg)) assert(success, tostring(msg))