225 lines
6.8 KiB
Perl
225 lines
6.8 KiB
Perl
#!perl
|
||
# vim:ts=4:sw=4:expandtab
|
||
#
|
||
# Please read the following documents before working on tests:
|
||
# • https://build.i3wm.org/docs/testsuite.html
|
||
# (or docs/testsuite)
|
||
#
|
||
# • https://build.i3wm.org/docs/lib-i3test.html
|
||
# (alternatively: perldoc ./testcases/lib/i3test.pm)
|
||
#
|
||
# • https://build.i3wm.org/docs/ipc.html
|
||
# (or docs/ipc)
|
||
#
|
||
# • https://i3wm.org/downloads/modern_perl_a4.pdf
|
||
# (unless you are already familiar with Perl)
|
||
#
|
||
# Test for the startup notification protocol.
|
||
#
|
||
|
||
use i3test;
|
||
use POSIX qw(mkfifo);
|
||
use File::Temp qw(:POSIX);
|
||
|
||
SKIP: {
|
||
|
||
skip "X11::XCB too old (need >= 0.07)", 24 if $X11::XCB::VERSION < 0.07;
|
||
|
||
use ExtUtils::PkgConfig;
|
||
|
||
# setup dependency on libstartup-notification using pkg-config
|
||
my %sn_config;
|
||
BEGIN {
|
||
%sn_config = ExtUtils::PkgConfig->find('libstartup-notification-1.0');
|
||
}
|
||
|
||
use Inline C => Config => LIBS => $sn_config{libs}, CCFLAGS => $sn_config{cflags};
|
||
use Inline C => <<'END_OF_C_CODE';
|
||
|
||
#include <xcb/xcb.h>
|
||
|
||
#define SN_API_NOT_YET_FROZEN 1
|
||
#include <libsn/sn-common.h>
|
||
#include <libsn/sn-launchee.h>
|
||
|
||
static SnDisplay *sndisplay;
|
||
static SnLauncheeContext *ctx;
|
||
static xcb_connection_t *conn;
|
||
|
||
void init_ctx(void *connptr) {
|
||
conn = (xcb_connection_t*)connptr;
|
||
sndisplay = sn_xcb_display_new(conn, NULL, NULL);
|
||
ctx = sn_launchee_context_new_from_environment(sndisplay, 0);
|
||
}
|
||
|
||
const char *get_startup_id() {
|
||
return sn_launchee_context_get_startup_id(ctx);
|
||
}
|
||
|
||
void mark_window(int window) {
|
||
sn_launchee_context_setup_window(ctx, (Window)window);
|
||
xcb_flush(conn);
|
||
}
|
||
|
||
void complete_startup() {
|
||
/* mark the startup process complete */
|
||
sn_launchee_context_complete(ctx);
|
||
}
|
||
END_OF_C_CODE
|
||
|
||
my $first_ws = fresh_workspace;
|
||
|
||
is_num_children($first_ws, 0, 'no containers on this workspace yet');
|
||
|
||
######################################################################
|
||
# 1) initiate startup, switch workspace, create window
|
||
# (should be placed on the original workspace)
|
||
######################################################################
|
||
|
||
# Start a new process via i3 (to initialize a new startup notification
|
||
# context), then steal its DESKTOP_STARTUP_ID variable. We handle the startup
|
||
# notification in the testcase from there on.
|
||
#
|
||
# This works by setting up a FIFO in which the process (started by i3) will
|
||
# echo its $DESKTOP_STARTUP_ID. We (blockingly) read the variable into
|
||
# $startup_id in the testcase.
|
||
my $tmp = tmpnam();
|
||
mkfifo($tmp, 0600) or BAIL_OUT "Could not create FIFO in $tmp: $!";
|
||
|
||
cmd qq|exec echo \$DESKTOP_STARTUP_ID >$tmp|;
|
||
|
||
open(my $fh, '<', $tmp);
|
||
chomp(my $startup_id = <$fh>);
|
||
close($fh);
|
||
|
||
unlink($tmp);
|
||
|
||
isnt($startup_id, '', 'startup_id not empty');
|
||
|
||
$ENV{DESKTOP_STARTUP_ID} = $startup_id;
|
||
|
||
# Create a new libstartup-notification launchee context
|
||
init_ctx($x->get_xcb_conn());
|
||
|
||
# Make sure the context was set up successfully
|
||
is(get_startup_id(), $startup_id, 'libstartup-notification returns the same id');
|
||
|
||
my $second_ws = fresh_workspace;
|
||
|
||
is_num_children($second_ws, 0, 'no containers on the second workspace yet');
|
||
|
||
my $win = open_window({ dont_map => 1 });
|
||
mark_window($win->id);
|
||
$win->map;
|
||
# We don’t use wait_for_map because the window will not get mapped -- it is on
|
||
# a different workspace.
|
||
# We sync with i3 here to make sure $x->input_focus is updated.
|
||
sync_with_i3;
|
||
|
||
is_num_children($second_ws, 0, 'still no containers on the second workspace');
|
||
is_num_children($first_ws, 1, 'one container on the first workspace');
|
||
|
||
######################################################################
|
||
# same thing, but with _NET_STARTUP_ID set on the leader
|
||
######################################################################
|
||
|
||
my $leader = open_window({ dont_map => 1 });
|
||
mark_window($leader->id);
|
||
|
||
$win = open_window({ dont_map => 1, client_leader => $leader });
|
||
$win->map;
|
||
sync_with_i3;
|
||
|
||
is_num_children($second_ws, 0, 'still no containers on the second workspace');
|
||
is_num_children($first_ws, 2, 'two containers on the first workspace');
|
||
|
||
######################################################################
|
||
# verifies that finishing startup doesn't immediately stop windows
|
||
# from being placed on the sequence's workspace, but that moving
|
||
# the leader actually deletes the startup sequence mapping
|
||
######################################################################
|
||
|
||
complete_startup();
|
||
sync_with_i3;
|
||
|
||
# even when renaming the workspace, windows should end up on the correct one
|
||
cmd "rename workspace $first_ws to temp";
|
||
|
||
# Startup has completed but the 30-second deletion time hasn't elapsed,
|
||
# so this window should still go on the leader's initial workspace.
|
||
$win = open_window({ dont_map => 1, client_leader => $leader });
|
||
$win->map;
|
||
sync_with_i3;
|
||
|
||
cmd "rename workspace temp to $first_ws";
|
||
|
||
is_num_children($first_ws, 3, 'three containers on the first workspace');
|
||
|
||
# empty 'from' workspaces should not crash the renaming of startup sequences
|
||
cmd "workspace $first_ws";
|
||
cmd "rename workspace to temp";
|
||
cmd "rename workspace to $first_ws";
|
||
|
||
# Switch to the first workspace and move the focused window to the
|
||
# second workspace.
|
||
cmd "workspace $first_ws";
|
||
cmd "move workspace $second_ws";
|
||
|
||
is_num_children($second_ws, 1, 'one container on the second workspace');
|
||
|
||
# Create and switch to a new workspace, just to be safe.
|
||
my $third_ws = fresh_workspace;
|
||
|
||
# Moving the window between workspaces should have immediately
|
||
# removed the startup workspace mapping. New windows with that
|
||
# leader should be created on the current workspace.
|
||
$win = open_window({ dont_map => 1, client_leader => $leader });
|
||
$win->map;
|
||
sync_with_i3;
|
||
|
||
is_num_children($third_ws, 1, 'one container on the third workspace');
|
||
|
||
######################################################################
|
||
# 2) open another window after the startup process is completed
|
||
# (should be placed on the current workspace)
|
||
######################################################################
|
||
|
||
my $otherwin = open_window;
|
||
is_num_children($third_ws, 2, 'two containers on the third workspace');
|
||
|
||
######################################################################
|
||
# 3) test that the --no-startup-id flag for exec leads to no DESKTOP_STARTUP_ID
|
||
# environment variable.
|
||
######################################################################
|
||
|
||
mkfifo($tmp, 0600) or BAIL_OUT "Could not create FIFO in $tmp: $!";
|
||
|
||
cmd qq|exec --no-startup-id echo \$DESKTOP_STARTUP_ID >$tmp|;
|
||
|
||
open($fh, '<', $tmp);
|
||
chomp($startup_id = <$fh>);
|
||
close($fh);
|
||
|
||
unlink($tmp);
|
||
|
||
is($startup_id, '', 'startup_id empty');
|
||
|
||
######################################################################
|
||
# 4) same thing, but with double quotes in exec
|
||
######################################################################
|
||
|
||
mkfifo($tmp, 0600) or BAIL_OUT "Could not create FIFO in $tmp: $!";
|
||
|
||
cmd qq|exec --no-startup-id "echo \$DESKTOP_STARTUP_ID >$tmp"|;
|
||
|
||
open($fh, '<', $tmp);
|
||
chomp($startup_id = <$fh>);
|
||
close($fh);
|
||
|
||
unlink($tmp);
|
||
|
||
is($startup_id, '', 'startup_id empty');
|
||
}
|
||
|
||
done_testing;
|