tests: use cmd() in t/32-move-workspace.t

This commit is contained in:
Michael Stapelberg 2010-11-29 20:24:13 +01:00
parent ad825913b4
commit 613866dbc0
1 changed files with 4 additions and 4 deletions

View File

@ -15,7 +15,7 @@ $x->root->warp_pointer(0, 0);
my $tmp = get_unused_workspace();
my $tmp2 = get_unused_workspace();
$i3->command("workspace $tmp")->recv;
cmd "workspace $tmp";
ok(@{get_ws_content($tmp)} == 0, 'no containers yet');
@ -23,12 +23,12 @@ my $first = open_empty_con($i3);
my $second = open_empty_con($i3);
ok(@{get_ws_content($tmp)} == 2, 'two containers on first ws');
$i3->command("workspace $tmp2")->recv;
cmd "workspace $tmp2";
ok(@{get_ws_content($tmp2)} == 0, 'no containers on second ws yet');
$i3->command("workspace $tmp")->recv;
cmd "workspace $tmp";
$i3->command("move workspace $tmp2")->recv;
cmd "move workspace $tmp2";
ok(@{get_ws_content($tmp)} == 1, 'one container on first ws anymore');
ok(@{get_ws_content($tmp2)} == 1, 'one container on second ws');
my ($nodes, $focus) = get_ws_content($tmp2);