X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=testcases%2Ft%2F253-multiple-net-wm-state-atoms.t;h=392beae1330e456dc00bc64ae3f20eed708db422;hb=3f4268561d4482e2c770d7c6b7b32d7ce8c82568;hp=bfa8b46cba25a66d8cba8981d5cbfe882823a7af;hpb=1e23e55c5e5668cd1c549d17f4827cad7ef7b823;p=i3%2Fi3 diff --git a/testcases/t/253-multiple-net-wm-state-atoms.t b/testcases/t/253-multiple-net-wm-state-atoms.t index bfa8b46c..392beae1 100644 --- a/testcases/t/253-multiple-net-wm-state-atoms.t +++ b/testcases/t/253-multiple-net-wm-state-atoms.t @@ -2,13 +2,13 @@ # vim:ts=4:sw=4:expandtab # # Please read the following documents before working on tests: -# • http://build.i3wm.org/docs/testsuite.html +# • https://build.i3wm.org/docs/testsuite.html # (or docs/testsuite) # -# • http://build.i3wm.org/docs/lib-i3test.html +# • https://build.i3wm.org/docs/lib-i3test.html # (alternatively: perldoc ./testcases/lib/i3test.pm) # -# • http://build.i3wm.org/docs/ipc.html +# • https://build.i3wm.org/docs/ipc.html # (or docs/ipc) # # • http://onyxneon.com/books/modern_perl/modern_perl_a4.pdf @@ -21,15 +21,15 @@ use X11::XCB qw(:all); sub get_wm_state { sync_with_i3; - my ($con) = @_; + my ($con) = @_; my $cookie = $x->get_property( - 0, + 0, $con->{id}, $x->atom(name => '_NET_WM_STATE')->id, GET_PROPERTY_TYPE_ANY, - 0, + 0, 4096 - ); + ); my $reply = $x->get_property_reply($cookie->{sequence}); my $len = $reply->{length};