1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
--- Test image CSS.
--
-- @copyright 2017 Aidan Holm <aidanholm@gmail.com>
local assert = require "luassert"
local test = require "tests.lib"
local lousy = require "lousy"
local T = {}
local window = widget{type="window"}
local view = widget{type="webview"}
window.child = view
window:show()
-- Stub out webview module
package.loaded.webview = lousy.signal.setup({}, true)
local image_css = require("image_css")
package.loaded.webview.emit_signal("init", view)
local view_wait_for_status = function (v, status)
repeat
local _, s, uri, err = test.wait_for_signal(v, "load-status", 1000)
if s == "failed" then
local fmt = "tests.wait_for_view() failed loading '%s': %s"
local msg = fmt:format(uri, err)
assert(false, msg)
end
until s == status
end
local function wait_for_view(v)
-- mime-type-decision isn't emitted for luakit-test://, so we simulate it
view_wait_for_status(v, "provisional")
local mime = v.uri:match("%.png$") and "image/png" or "text/html"
v:emit_signal("mime-type-decision", v.uri, mime)
view_wait_for_status(v, "committed")
end
T.test_image_css = function ()
local image_uri = test.http_server() .. "image_css/image.png"
local page_uri = test.http_server() .. "image_css/default.html"
local image_ss = image_css.stylesheet
-- Load HTML page: stylesheet must be inactive
view.uri = page_uri
wait_for_view(view)
assert.is_false(view.stylesheets[image_ss])
-- Load image page: stylesheet must be active
view.uri = image_uri
wait_for_view(view)
assert.is_true(view.stylesheets[image_ss])
view:go_back(1)
wait_for_view(view)
assert.is_false(view.stylesheets[image_ss])
view:go_forward(1)
wait_for_view(view)
assert.is_true(view.stylesheets[image_ss])
view:go_back(1)
wait_for_view(view)
assert.is_false(view.stylesheets[image_ss])
end
return T
-- vim: et:sw=4:ts=8:sts=4:tw=80
|
