From: Michael Stapelberg Date: Fri, 16 Apr 2010 12:34:12 +0000 (+0200) Subject: retab! X-Git-Tag: tree-pr1~259 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=d94bef2ebb87f7a8fb64c8105e00ad4e0b8f7a31;p=i3%2Fi3 retab! --- diff --git a/testcases/t/17-workspace.t b/testcases/t/17-workspace.t index 403f3661..1c0c7e28 100644 --- a/testcases/t/17-workspace.t +++ b/testcases/t/17-workspace.t @@ -14,21 +14,21 @@ use v5.10; my $i3 = i3("/tmp/nestedcons"); sub get_workspace_names { - my $tree = $i3->get_workspaces->recv; - my @workspaces = map { @{$_->{nodes}} } @{$tree->{nodes}}; - [ map { $_->{name} } @workspaces ] + my $tree = $i3->get_workspaces->recv; + my @workspaces = map { @{$_->{nodes}} } @{$tree->{nodes}}; + [ map { $_->{name} } @workspaces ] } sub workspace_exists { - my ($name) = @_; - ($name ~~ @{get_workspace_names()}) + my ($name) = @_; + ($name ~~ @{get_workspace_names()}) } sub get_unused_workspace { - my @names = get_workspace_names(); - my $tmp; - do { $tmp = tmpnam() } while ($tmp ~~ @names); - $tmp + my @names = get_workspace_names(); + my $tmp; + do { $tmp = tmpnam() } while ($tmp ~~ @names); + $tmp } my $tmp = get_unused_workspace();