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;
15 my $tmp = fresh_workspace;
17 #####################################################################
18 # open a window, verify it’s not in fullscreen mode
19 #####################################################################
21 my $win = open_window($x);
23 my $nodes = get_ws_content $tmp;
24 is(@$nodes, 1, 'exactly one client');
25 is($nodes->[0]->{fullscreen_mode}, 0, 'client not fullscreen');
27 #####################################################################
29 #####################################################################
31 cmd 'nop making fullscreen';
34 my $nodes = get_ws_content $tmp;
35 is($nodes->[0]->{fullscreen_mode}, 1, 'client fullscreen now');
37 #####################################################################
38 # send level up, try to un-fullscreen
39 #####################################################################
43 my $nodes = get_ws_content $tmp;
44 is($nodes->[0]->{fullscreen_mode}, 0, 'client not fullscreen any longer');