tests: make t/65-for-window.t use separate i3 instances

diff --git a/testcases/i3-test.config b/testcases/i3-test.config
index 4f59205ecdb18f8334e13098fde0ce8abf56ab0a..513dda3679b242c9236874fdd4624d82543cda4e 100644 (file)
--- a/testcases/i3-test.config
+++ b/testcases/i3-test.config
@@ -1,7 +1,3 @@
-for_window [class="borderless"] border none
-for_window [title="special borderless title"] border none
-for_window [title="special mark title"] border none, mark bleh
-
 # ISO 10646 = Unicode
 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 

diff --git a/testcases/t/65-for_window.t b/testcases/t/65-for_window.t
index d295254061d8b77796a3984b7ef5becfc37a5f20..f67651755012b16c457cd9d33239da931e1108ed 100644 (file)
--- a/testcases/t/65-for_window.t
+++ b/testcases/t/65-for_window.t
@@ -1,14 +1,19 @@
 #!perl
 # vim:ts=4:sw=4:expandtab
+# !NO_I3_INSTANCE! will prevent complete-run.pl from starting i3
 #
 #
 use X11::XCB qw(:all);
 use X11::XCB::Connection;
 use i3test;
+use Cwd qw(abs_path);
+use Proc::Background;
+use File::Temp qw(tempfile tempdir);
 
 my $x = X11::XCB::Connection->new;
 
-my $tmp = fresh_workspace;
+# assuming we are run by complete-run.pl
+my $i3_path = abs_path("../i3");
 
 ##############################################################
 # 1: test the following directive:
@@ -18,6 +23,25 @@ my $tmp = fresh_workspace;
 # "borderless" (should get no border)
 ##############################################################
 
+my $socketpath = File::Temp::tempnam('/tmp', 'i3-test-socket-');
+
+my ($fh, $tmpfile) = tempfile();
+say $fh "# i3 config file (v4)";
+say $fh "font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1";
+say $fh "ipc-socket $socketpath";
+say $fh q|for_window [class="borderless"] border none|;
+close($fh);
+
+diag("Starting i3");
+my $i3cmd = "exec " . abs_path("../i3") . " -V -d all --disable-signalhandler -c $tmpfile >/dev/null 2>/dev/null";
+my $process = Proc::Background->new($i3cmd);
+sleep 1;
+
+# force update of the cached socket path in lib/i3test
+get_socket_path(0);
+
+my $tmp = fresh_workspace;
+
 my $window = $x->root->create_child(
     class => WINDOW_CLASS_INPUT_OUTPUT,
     rect => [ 0, 0, 30, 30 ],
@@ -81,11 +105,31 @@ sleep 0.25;
 @content = @{get_ws_content($tmp)};
 cmp_ok(@content, '==', 0, 'no more nodes');
 
+exit_gracefully($process->pid);
+
 ##############################################################
 # 2: match on the title, check if for_window is really executed
 # only once
 ##############################################################
 
+($fh, $tmpfile) = tempfile();
+say $fh "# i3 config file (v4)";
+say $fh "font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1";
+say $fh "ipc-socket $socketpath";
+say $fh q|for_window [class="borderless"] border none|;
+say $fh q|for_window [title="special borderless title"] border none|;
+close($fh);
+
+diag("Starting i3");
+my $i3cmd = "exec " . abs_path("../i3") . " -V -d all --disable-signalhandler -c $tmpfile >/dev/null 2>/dev/null";
+my $process = Proc::Background->new($i3cmd);
+sleep 1;
+
+# force update of the cached socket path in lib/i3test
+get_socket_path(0);
+
+$tmp = fresh_workspace;
+
 $window = $x->root->create_child(
     class => WINDOW_CLASS_INPUT_OUTPUT,
     rect => [ 0, 0, 30, 30 ],
@@ -126,10 +170,31 @@ sleep 0.25;
 @content = @{get_ws_content($tmp)};
 cmp_ok(@content, '==', 0, 'no more nodes');
 
+exit_gracefully($process->pid);
+
 ##############################################################
 # 3: match on the title, set border style *and* a mark
 ##############################################################
 
+($fh, $tmpfile) = tempfile();
+say $fh "# i3 config file (v4)";
+say $fh "font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1";
+say $fh "ipc-socket $socketpath";
+say $fh q|for_window [class="borderless"] border none|;
+say $fh q|for_window [title="special borderless title"] border none|;
+say $fh q|for_window [title="special mark title"] border none, mark bleh|;
+close($fh);
+
+diag("Starting i3");
+my $i3cmd = "exec " . abs_path("../i3") . " -V -d all --disable-signalhandler -c $tmpfile >/dev/null 2>/dev/null";
+my $process = Proc::Background->new($i3cmd);
+sleep 1;
+
+# force update of the cached socket path in lib/i3test
+get_socket_path(0);
+
+$tmp = fresh_workspace;
+
 $window = $x->root->create_child(
     class => WINDOW_CLASS_INPUT_OUTPUT,
     rect => [ 0, 0, 30, 30 ],
@@ -157,4 +222,6 @@ cmd qq|[con_mark="bleh"] focus|;
 @content = @{get_ws_content($tmp)};
 ok($content[0]->{focused}, 'first node focused');
 
+exit_gracefully($process->pid);
+
 done_testing;