Codebase list i3-gaps / 6a17515 testcases / t / 545-i3-registration.t
6a17515

Tree @6a17515 (Download .tar.gz)

545-i3-registration.t @6a17515 — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
#!perl
# vim:ts=4:sw=4:expandtab
#
# Tests whether our WM registration is done with the correct WM_S0 selection.

use i3test;

my $x = X11::XCB::Connection->new;
my $reply = $x->get_selection_owner($x->atom(name => 'WM_S0')->id);
ok($reply, "registration successful");
done_testing;