2 # vim:ts=4:sw=4:expandtab
4 use Test::More tests => 3;
8 use Time::HiRes qw(sleep);
10 use lib "$FindBin::Bin/lib";
15 use_ok('IO::Socket::UNIX') or BAIL_OUT('Cannot load IO::Socket::UNIX');
16 use_ok('X11::XCB::Connection') or BAIL_OUT('Cannot load X11::XCB::Connection');
19 my $x = X11::XCB::Connection->new;
23 #####################################################################
24 # Ensure IPC works by switching workspaces
25 #####################################################################
27 # Switch to the first workspace to get a clean testing environment
28 $i3->command('1')->recv;
30 # Create a window so we can get a focus different from NULL
31 my $window = i3test::open_standard_window($x);
32 diag("window->id = " . $window->id);
36 my $focus = $x->input_focus;
37 diag("old focus = $focus");
39 # Switch to the nineth workspace
40 $i3->command('9')->recv;
42 my $new_focus = $x->input_focus;
43 isnt($focus, $new_focus, "Focus changed");
45 diag( "Testing i3, Perl $], $^X" );