2 # vim:ts=4:sw=4:expandtab
8 use_ok('X11::XCB::Connection') or BAIL_OUT('Cannot load X11::XCB::Connection');
11 my $x = X11::XCB::Connection->new;
15 #####################################################################
16 # Ensure IPC works by switching workspaces
17 #####################################################################
19 # Create a window so we can get a focus different from NULL
20 my $window = open_standard_window($x);
21 diag("window->id = " . $window->id);
25 my $focus = $x->input_focus;
26 diag("old focus = $focus");
28 # Switch to another workspace
31 my $new_focus = $x->input_focus;
32 isnt($focus, $new_focus, "Focus changed");