git.sur5r.net Git - i3/i3/blob - testcases/t/05-ipc.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3
   4 use i3test;
   5
   6 my $x = X11::XCB::Connection->new;
   7
   8 fresh_workspace;
   9
  10 #####################################################################
  11 # Ensure IPC works by switching workspaces
  12 #####################################################################
  13
  14 # Create a window so we can get a focus different from NULL
  15 my $window = open_window($x);
  16
  17 my $focus = $x->input_focus;
  18
  19 # Switch to another workspace
  20 fresh_workspace;
  21
  22 sync_with_i3($x);
  23 my $new_focus = $x->input_focus;
  24 isnt($focus, $new_focus, "Focus changed");
  25
  26 done_testing;