From 9488e3d2499f69666b5173754c0d0d6d1e5a2a2b Mon Sep 17 00:00:00 2001
From: Michael Stapelberg <michael@stapelberg.de>
Date: Sat, 17 Apr 2010 12:58:36 +0200
Subject: [PATCH] add testcase for multiple commands (and whitespace
 variations)

---
 testcases/t/20-multiple-cmds.t | 45 ++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 testcases/t/20-multiple-cmds.t

diff --git a/testcases/t/20-multiple-cmds.t b/testcases/t/20-multiple-cmds.t
new file mode 100644
index 00000000..361bb06b
--- /dev/null
+++ b/testcases/t/20-multiple-cmds.t
@@ -0,0 +1,45 @@
+#!perl
+# vim:ts=4:sw=4:expandtab
+#
+# Tests multiple commands (using ';') and multiple operations (using ',')
+#
+use Test::More tests => 24;
+use Data::Dumper;
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use i3test;
+use AnyEvent::I3;
+use X11::XCB qw(:all);
+use v5.10;
+
+my $i3 = i3("/tmp/nestedcons");
+
+my $tmp = get_unused_workspace();
+$i3->command("workspace $tmp")->recv;
+
+sub multiple_cmds {
+    my ($cmd) = @_;
+
+    $i3->command('open')->recv;
+    $i3->command('open')->recv;
+    ok(@{get_ws_content($tmp)} == 2, 'two containers opened');
+
+    $i3->command($cmd)->recv;
+    ok(@{get_ws_content($tmp)} == 0, "both containers killed (cmd = $cmd)");
+}
+multiple_cmds('kill;kill');
+multiple_cmds('kill; kill');
+multiple_cmds('kill ; kill');
+multiple_cmds('kill ;kill');
+multiple_cmds('kill  ;kill');
+multiple_cmds('kill  ;  kill');
+multiple_cmds("kill;\tkill");
+multiple_cmds("kill\t;kill");
+multiple_cmds("kill\t;\tkill");
+multiple_cmds("kill\t ;\tkill");
+multiple_cmds("kill\t ;\t kill");
+multiple_cmds("kill \t ; \t kill");
+
+# TODO: need a non-invasive command before implementing a test which uses ','
+
+diag( "Testing i3, Perl $], $^X" );
-- 
2.39.5