From: Michael Stapelberg <michael@stapelberg.de>
Date: Fri, 28 Jan 2011 00:10:45 +0000 (+0100)
Subject: tests: implement does_i3_live for regression tests
X-Git-Tag: tree-pr2~83
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=2d82868a1a37708abea904f8230a486abd704bc2;p=i3%2Fi3

tests: implement does_i3_live for regression tests
---

diff --git a/testcases/t/lib/i3test.pm b/testcases/t/lib/i3test.pm
index 79ca0266..e53bb4db 100644
--- a/testcases/t/lib/i3test.pm
+++ b/testcases/t/lib/i3test.pm
@@ -2,6 +2,7 @@ package i3test;
 # vim:ts=4:sw=4:expandtab
 
 use File::Temp qw(tmpnam);
+use Test::Builder;
 use X11::XCB::Rect;
 use X11::XCB::Window;
 use X11::XCB qw(:all);
@@ -10,7 +11,9 @@ use List::Util qw(first);
 use v5.10;
 
 use Exporter ();
-our @EXPORT = qw(get_workspace_names get_unused_workspace get_ws_content get_ws get_focused open_empty_con open_standard_window cmd);
+our @EXPORT = qw(get_workspace_names get_unused_workspace get_ws_content get_ws get_focused open_empty_con open_standard_window cmd does_i3_live);
+
+my $tester = Test::Builder->new();
 
 BEGIN {
     my $window_count = 0;
@@ -123,4 +126,12 @@ sub cmd {
     i3("/tmp/nestedcons")->command(@_)->recv
 }
 
+sub does_i3_live {
+    my $tree = i3('/tmp/nestedcons')->get_tree->recv;
+    my @nodes = @{$tree->{nodes}};
+    my $ok = (@nodes > 0);
+    $tester->ok($ok, 'i3 still lives');
+    return $ok;
+}
+
 1