#!perl # vim:ts=4:sw=4:expandtab # # Please read the following documents before working on tests: # • http://build.i3wm.org/docs/testsuite.html # (or docs/testsuite) # # • http://build.i3wm.org/docs/lib-i3test.html # (alternatively: perldoc ./testcases/lib/i3test.pm) # # • http://build.i3wm.org/docs/ipc.html # (or docs/ipc) # # • http://onyxneon.com/books/modern_perl/modern_perl_a4.pdf # (unless you are already familiar with Perl) # # Check whether the -C option works without a display and doesn't # accidentally start the nagbar. # use i3test i3_autostart => 0; use File::Temp qw(tempfile); sub check_config { my ($config) = @_; my ($fh, $tmpfile) = tempfile(UNLINK => 1); print $fh $config; my $output = qx(DISPLAY= ../i3 -C -c $tmpfile 2>&1); my $retval = $?; $fh->flush; close($fh); return ($retval >> 8, $output); } ################################################################################ # 1: test with a bogus configuration file ################################################################################ my $cfg = <