git.sur5r.net Git - i3/i3/blob - testcases/t/34-invalid-command.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3 #
   4 #
   5 #
   6 use i3test tests => 1;
   7
   8 my $i3 = i3("/tmp/nestedcons");
   9
  10 $i3->command("blargh!")->recv;
  11
  12 my $tree = $i3->get_tree->recv;
  13 my @nodes = @{$tree->{nodes}};
  14 ok(@nodes > 0, 'i3 still lives');
  15
  16 diag( "Testing i3, Perl $], $^X" );