2 # vim:ts=4:sw=4:expandtab
4 # Regression test: level up should be a noop during fullscreen mode
10 use_ok('X11::XCB::Window');
13 my $x = X11::XCB::Connection->new;
14 my $i3 = i3(get_socket_path());
16 my $tmp = fresh_workspace;
18 #####################################################################
19 # open a window, verify it’s not in fullscreen mode
20 #####################################################################
22 my $win = open_standard_window($x);
24 my $nodes = get_ws_content $tmp;
25 is(@$nodes, 1, 'exactly one client');
26 is($nodes->[0]->{fullscreen_mode}, 0, 'client not fullscreen');
28 #####################################################################
30 #####################################################################
32 cmd 'nop making fullscreen';
35 my $nodes = get_ws_content $tmp;
36 is($nodes->[0]->{fullscreen_mode}, 1, 'client fullscreen now');
38 #####################################################################
39 # send level up, try to un-fullscreen
40 #####################################################################
44 my $nodes = get_ws_content $tmp;
45 is($nodes->[0]->{fullscreen_mode}, 0, 'client not fullscreen any longer');