1 package SocketActivation;
2 # vim:ts=4:sw=4:expandtab
6 use IO::Socket::UNIX; # core
7 use Cwd qw(abs_path); # core
8 use POSIX qw(:fcntl_h); # core
9 use AnyEvent::Handle; # not core
10 use AnyEvent::Util; # not core
11 use Exporter 'import';
14 our @EXPORT = qw(activate_i3);
17 # Starts i3 using socket activation. Creates a listening socket (with bind +
18 # listen) which is then passed to i3, who in turn calls accept and handles the
21 # Since the kernel buffers the connect, the parent process can connect to the
22 # socket immediately after forking. It then sends a request and waits until it
23 # gets an answer. Obviously, i3 has to be initialized to actually answer the
26 # This way, we can wait *precisely* the amount of time which i3 waits to get
27 # ready, which is a *HUGE* speed gain (and a lot more robust) in comparison to
28 # using sleep() with a fixed amount of time.
30 # unix_socket_path: Location of the socket to use for the activation
31 # display: X11 $ENV{DISPLAY}
32 # configfile: path to the configuration file to use
33 # logpath: path to the logfile to which i3 will append
34 # cv: an AnyEvent->condvar which will be triggered once i3 is ready
39 # remove the old unix socket
40 unlink($args{unix_socket_path});
42 my $socket = IO::Socket::UNIX->new(
44 Local => $args{unix_socket_path},
49 die "could not fork()";
52 # Start a process group so that in the parent, we can kill the entire
53 # process group and immediately kill i3bar and any other child
57 $ENV{LISTEN_PID} = $$;
59 delete $ENV{DESKTOP_STARTUP_ID};
61 # $SHELL could be set to fish, which will horribly break running shell
62 # commands via i3’s exec feature. This happened e.g. when having
63 # “set-option -g default-shell "/usr/bin/fish"” in ~/.tmux.conf
65 unless ($args{dont_create_temp_dir}) {
66 $ENV{XDG_RUNTIME_DIR} = '/tmp/i3-testsuite/';
67 mkdir $ENV{XDG_RUNTIME_DIR};
69 $ENV{DISPLAY} = $args{display};
71 # We are about to exec, but we did not modify $^F to include $socket
72 # when creating the socket (because the file descriptor could have a
73 # number != 3 which would lead to i3 leaking a file descriptor). This
74 # caused Perl to set the FD_CLOEXEC flag, which would close $socket on
75 # exec(), effectively *NOT* passing $socket to the new process.
76 # Therefore, we explicitly clear FD_CLOEXEC (the only flag right now)
77 # by setting the flags to 0.
78 POSIX::fcntl($socket, F_SETFD, 0) or die "Could not clear fd flags: $!";
80 # If the socket does not use file descriptor 3 by chance already, we
81 # close fd 3 and dup2() the socket to 3.
82 if (fileno($socket) != 3) {
84 POSIX::dup2(fileno($socket), 3);
85 POSIX::close(fileno($socket));
88 # Make sure no file descriptors are open. Strangely, I got an open file
89 # descriptor pointing to AnyEvent/Impl/EV.pm when testing.
90 AnyEvent::Util::close_all_fds_except(0, 1, 2, 3);
92 # Construct the command to launch i3. Use maximum debug level, disable
93 # the interactive signalhandler to make it crash immediately instead.
94 # Also disable logging to SHM since we redirect the logs anyways.
95 # Force Xinerama because we use Xdmx for multi-monitor tests.
96 my $i3cmd = q|i3 --shmlog-size=0 --disable-signalhandler|;
97 if (!defined($args{inject_randr15})) {
98 $i3cmd .= q| --force-xinerama|;
100 if (!$args{validate_config}) {
101 # We only set logging if i3 is actually started, but not if we only
102 # validate the config file. This is to keep logging to a minimum as
103 # such a test will likely want to inspect the log file.
104 $i3cmd .= q| -V -d all|;
108 my $outdir = $args{outdir};
109 my $test = $args{testname};
111 if ($args{restart}) {
112 $i3cmd .= ' -L ' . abs_path('restart-state.golden');
115 if ($args{validate_config}) {
119 if ($args{valgrind}) {
121 qq|valgrind --log-file="$outdir/valgrind-for-$test.log" | .
122 qq|--suppressions="./valgrind.supp" | .
123 qq|--leak-check=full --track-origins=yes --num-callers=20 | .
124 qq|--tool=memcheck -- $i3cmd|;
127 my $logfile = "$outdir/i3-log-for-$test";
128 # Append to $logfile instead of overwriting because i3 might be
129 # run multiple times in one testcase.
130 my $cmd = "exec $i3cmd -c $args{configfile} >>$logfile 2>&1";
133 my $out = "$outdir/strace-for-$test.log";
135 # We overwrite LISTEN_PID with the correct process ID to make
136 # socket activation work (LISTEN_PID has to match getpid(),
137 # otherwise the LISTEN_FDS will be treated as a left-over).
138 $cmd = qq|strace -fF -s2048 -v -o "$out" -- | .
139 'sh -c "export LISTEN_PID=\$\$; ' . $cmd . '"';
143 my $out = "$outdir/xtrace-for-$test.log";
145 # See comment in $args{strace} branch.
146 $cmd = qq|xtrace -n -o "$out" -- | .
147 'sh -c "export LISTEN_PID=\$\$; ' . $cmd . '"';
150 if ($args{inject_randr15}) {
151 # See comment in $args{strace} branch.
152 $cmd = 'test.inject_randr15 --getmonitors_reply="' .
153 $args{inject_randr15} . '" ' .
154 ($args{inject_randr15_outputinfo}
155 ? '--getoutputinfo_reply="' .
156 $args{inject_randr15_outputinfo} . '" '
159 'sh -c "export LISTEN_PID=\$\$; ' . $cmd . '"';
162 # We need to use the shell due to using output redirections.
163 exec '/bin/sh', '-c', $cmd;
165 # if we are still here, i3 could not be found or exec failed. bail out.
169 # close the socket, the child process should be the only one which keeps a file
170 # descriptor on the listening socket.
173 if ($args{validate_config}) {
178 # We now connect (will succeed immediately) and send a request afterwards.
179 # As soon as the reply is there, i3 is considered ready.
180 my $cl = IO::Socket::UNIX->new(Peer => $args{unix_socket_path});
182 $hdl = AnyEvent::Handle->new(
189 # send a get_tree message without payload
190 $hdl->push_write('i3-ipc' . pack("LL", 0, 4));
193 $hdl->push_read(chunk => 1, => sub {