2 # vim:ts=4:sw=4:expandtab
3 # Beware that this test uses workspace 9 to perform some tests (it expects
4 # the workspace to be empty).
5 # TODO: skip it by default?
7 use Test::More tests => 7;
11 use Time::HiRes qw(sleep);
13 use Digest::SHA1 qw(sha1_base64);
14 use lib "$FindBin::Bin/lib";
19 use_ok('X11::XCB::Connection') or BAIL_OUT('Cannot load X11::XCB::Connection');
22 my $x = X11::XCB::Connection->new;
26 # Switch to the nineth workspace
27 $i3->command('9')->recv;
29 #####################################################################
30 # Create two windows and put them in stacking mode
31 #####################################################################
33 my $top = i3test::open_standard_window($x);
35 my $bottom = i3test::open_standard_window($x);
38 $i3->command('s')->recv;
40 #####################################################################
41 # Add the urgency hint, switch to a different workspace and back again
42 #####################################################################
43 $top->add_hint('urgency');
46 $i3->command('1')->recv;
47 $i3->command('9')->recv;
48 $i3->command('1')->recv;
50 my $std = i3test::open_standard_window($x);
52 $std->add_hint('urgency');