From d94bef2ebb87f7a8fb64c8105e00ad4e0b8f7a31 Mon Sep 17 00:00:00 2001 From: Michael Stapelberg Date: Fri, 16 Apr 2010 14:34:12 +0200 Subject: [PATCH] retab! --- testcases/t/17-workspace.t | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) 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();