X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=testcases%2Ft%2F137-floating-unmap.t;h=97aa02e0204f64b63ab7706a953ccf669919bf0e;hb=refs%2Fpull%2F3444%2Fhead;hp=29762594e51922059fd1cf14fd9cfd28b4f1d4c3;hpb=f7f1ec5dab85e934de8220fb48dee861e1097e35;p=i3%2Fi3 diff --git a/testcases/t/137-floating-unmap.t b/testcases/t/137-floating-unmap.t index 29762594..97aa02e0 100644 --- a/testcases/t/137-floating-unmap.t +++ b/testcases/t/137-floating-unmap.t @@ -1,5 +1,19 @@ #!perl # vim:ts=4:sw=4:expandtab +# +# Please read the following documents before working on tests: +# • https://build.i3wm.org/docs/testsuite.html +# (or docs/testsuite) +# +# • https://build.i3wm.org/docs/lib-i3test.html +# (alternatively: perldoc ./testcases/lib/i3test.pm) +# +# • https://build.i3wm.org/docs/ipc.html +# (or docs/ipc) +# +# • http://onyxneon.com/books/modern_perl/modern_perl_a4.pdf +# (unless you are already familiar with Perl) +# # Regression test: Floating windows were not correctly unmapped when switching # to a different workspace. @@ -14,14 +28,14 @@ my $tmp = fresh_workspace; ############################################################################# # Create a floating window which is smaller than the minimum enforced size of i3 -my $window = open_floating_window($x); +my $window = open_floating_window; ok($window->mapped, 'Window is mapped'); # switch to a different workspace, see if the window is still mapped? my $otmp = fresh_workspace; -sync_with_i3($x); +sync_with_i3; ok(!$window->mapped, 'Window is not mapped after switching ws');