perl: use get_tree instead of get_workspaces

This commit is contained in:
Michael Stapelberg
2010-11-21 21:42:28 +01:00
parent 0f083f6f78
commit 4549effe15
8 changed files with 10 additions and 10 deletions

View File

@ -18,7 +18,7 @@ $i3->command('kill')->recv;
$i3->command('kill')->recv;
my $tree = $i3->get_workspaces->recv;
my $tree = $i3->get_tree->recv;
my @nodes = @{$tree->{nodes}};
ok(@nodes > 0, 'i3 still lives');