diff --git a/testcases/t/226-internal-workspaces.t b/testcases/t/226-internal-workspaces.t new file mode 100644 index 00000000..a73445fb --- /dev/null +++ b/testcases/t/226-internal-workspaces.t @@ -0,0 +1,65 @@ +#!perl +# vim:ts=4:sw=4:expandtab +# +# Please read the following documents before working on tests: +# • http://build.i3wm.org/docs/testsuite.html +# (or docs/testsuite) +# +# • http://build.i3wm.org/docs/lib-i3test.html +# (alternatively: perldoc ./testcases/lib/i3test.pm) +# +# • http://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) +# +# Verifies that internal workspaces (those whose name starts with __) cannot be +# used in all commands that deal with workspaces. +# Ticket: #1209 +# Bug still in: 4.7.2-154-g144e3fb +use i3test i3_autostart => 0; + +sub internal_workspaces { + scalar grep { /^__/ } @{get_workspace_names()} +} + +my $config = <