add testcase for invalid commands

2010-11-12 20:26:53 +01:00 · 2010-11-12 20:26:53 +01:00 · df2ded08d8
parent e07fee4472
commit df2ded08d8
1 changed files with 16 additions and 0 deletions
--- a/testcases/t/34-invalid-command.t
+++ b/testcases/t/34-invalid-command.t
@ -0,0 +1,16 @@
+#!perl
+# vim:ts=4:sw=4:expandtab
+#
+# 
+#
+use i3test tests => 1;
+
+my $i3 = i3("/tmp/nestedcons");
+
+$i3->command("blargh!")->recv;
+
+my $tree = $i3->get_workspaces->recv;
+my @nodes = @{$tree->{nodes}};
+ok(@nodes > 0, 'i3 still lives');
+
+diag( "Testing i3, Perl $], $^X" );