tests: explicitly declare done_testing in subtest
This commit is contained in:
parent
3a6b0f6618
commit
df0ec0f771
|
@ -4,12 +4,12 @@
|
||||||
# Tests if the WM_TAKE_FOCUS protocol is correctly handled by i3
|
# Tests if the WM_TAKE_FOCUS protocol is correctly handled by i3
|
||||||
#
|
#
|
||||||
use X11::XCB qw(:all);
|
use X11::XCB qw(:all);
|
||||||
use EV;
|
|
||||||
use AnyEvent;
|
|
||||||
use i3test;
|
use i3test;
|
||||||
use v5.10;
|
use v5.10;
|
||||||
|
|
||||||
BEGIN {
|
BEGIN {
|
||||||
|
use_ok('EV');
|
||||||
|
use_ok('AnyEvent');
|
||||||
use_ok('X11::XCB::Window');
|
use_ok('X11::XCB::Window');
|
||||||
use_ok('X11::XCB::Event::Generic');
|
use_ok('X11::XCB::Event::Generic');
|
||||||
use_ok('X11::XCB::Event::MapNotify');
|
use_ok('X11::XCB::Event::MapNotify');
|
||||||
|
@ -59,6 +59,8 @@ subtest 'Window without WM_TAKE_FOCUS', sub {
|
||||||
|
|
||||||
my $result = $cv->recv;
|
my $result = $cv->recv;
|
||||||
ok($result, 'cv result');
|
ok($result, 'cv result');
|
||||||
|
|
||||||
|
done_testing;
|
||||||
};
|
};
|
||||||
|
|
||||||
subtest 'Window with WM_TAKE_FOCUS', sub {
|
subtest 'Window with WM_TAKE_FOCUS', sub {
|
||||||
|
@ -105,6 +107,8 @@ subtest 'Window with WM_TAKE_FOCUS', sub {
|
||||||
my ($data, $time) = unpack("L2", $result);
|
my ($data, $time) = unpack("L2", $result);
|
||||||
is($data, $x->atom(name => 'WM_TAKE_FOCUS')->id, 'first uint32_t contains WM_TAKE_FOCUS atom');
|
is($data, $x->atom(name => 'WM_TAKE_FOCUS')->id, 'first uint32_t contains WM_TAKE_FOCUS atom');
|
||||||
}
|
}
|
||||||
|
|
||||||
|
done_testing;
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue