koma/i3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tests: clean up/beautify all tests (code style / test style)

Browse Source
This commit is contained in:
Michael Stapelberg
2011-03-09 20:25:17 +01:00
parent 57e7cc8f6a
commit 2524b5262d
53 changed files with 334 additions and 415 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
testcases/t/39-ws-numbers.t
View File

@ -2,9 +2,8 @@
# vim:ts=4:sw=4:expandtab
# Check if numbered workspaces and named workspaces are sorted in the right way
# in get_workspaces IPC output (necessary for i3bar etc.).
use i3test tests => 9;
use i3test;
use X11::XCB qw(:all);
use Time::HiRes qw(sleep);
BEGIN {
use_ok('X11::XCB::Window');
@ -29,7 +28,7 @@ check_order('workspace order alright before testing');
# open a window to keep this ws open
#############################################################################
$i3->command("workspace 93")->recv;
cmd "workspace 93";
open_standard_window($x);
@ -38,22 +37,24 @@ my @f = grep { defined($_->{num}) && $_->{num} == 93 } @ws;
is(@f, 1, 'ws 93 found by num');
check_order('workspace order alright after opening 93');
$i3->command("workspace 92")->recv;
cmd "workspace 92";
open_standard_window($x);
check_order('workspace order alright after opening 92');
$i3->command("workspace 94")->recv;
cmd "workspace 94";
open_standard_window($x);
check_order('workspace order alright after opening 94');
$i3->command("workspace 96")->recv;
cmd "workspace 96";
open_standard_window($x);
check_order('workspace order alright after opening 96');
$i3->command("workspace foo")->recv;
cmd "workspace foo";
open_standard_window($x);
check_order('workspace order alright after opening foo');
$i3->command("workspace 91")->recv;
cmd "workspace 91";
open_standard_window($x);
check_order('workspace order alright after opening 91');
done_testing;