362 lines
14 KiB
Perl
362 lines
14 KiB
Perl
#!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)
|
|
#
|
|
# Tests if i3-migrate-config-to-v4 correctly migrates all config file
|
|
# directives and commands
|
|
#
|
|
use i3test i3_autostart => 0;
|
|
use Cwd qw(abs_path);
|
|
use File::Temp qw(tempfile tempdir);
|
|
use v5.10;
|
|
|
|
# reads in a whole file
|
|
sub slurp {
|
|
open my $fh, '<', shift;
|
|
local $/;
|
|
<$fh>;
|
|
}
|
|
|
|
sub migrate_config {
|
|
my ($config) = @_;
|
|
|
|
my ($fh, $tmpfile) = tempfile('/tmp/i3-migrate-cfg.XXXXXX', UNLINK => 1);
|
|
print $fh $config;
|
|
close($fh);
|
|
|
|
my $cmd = "sh -c 'exec " . abs_path("../i3-migrate-config-to-v4") . " --v3 <$tmpfile'";
|
|
return [ split /\n/, qx($cmd) ];
|
|
}
|
|
|
|
sub line_exists {
|
|
my ($lines, $pattern) = @_;
|
|
|
|
for my $line (@$lines) {
|
|
return 1 if $line =~ $pattern;
|
|
}
|
|
|
|
return 0
|
|
}
|
|
|
|
#####################################################################
|
|
# check that some directives remain untouched
|
|
#####################################################################
|
|
|
|
my $input = <<EOT;
|
|
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
|
EOT
|
|
|
|
my $output = migrate_config($input);
|
|
ok(line_exists($output, qr|font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1|), 'font directive unchanged');
|
|
|
|
$input = <<EOT;
|
|
floating_Modifier Mod1
|
|
focus_follows_mouse true
|
|
ipc-socket /tmp/i3-ipc.sock
|
|
ipc_socket /tmp/i3-ipc.sock
|
|
exec /usr/bin/i3
|
|
set stuff Mod1
|
|
assign "XTerm" → 3
|
|
assign "XTerm" → ~5
|
|
client.focused #2F343A #900000 #FFFFFF
|
|
client.focused_inactive #FF0000 #FF0000 #FF0000
|
|
client.unfocused #00FF00 #00FF00 #00FF00
|
|
client.urgent #0000FF #0000FF #0000FF
|
|
client.background #000000
|
|
EOT
|
|
|
|
$output = migrate_config($input);
|
|
ok(line_exists($output, qr|^floating_Modifier Mod1$|), 'floating_modifier unchanged');
|
|
ok(line_exists($output, qr|^focus_follows_mouse true$|), 'focus_follows_mouse unchanged');
|
|
ok(line_exists($output, qr|^ipc-socket /tmp/i3-ipc.sock$|), 'ipc-socket unchanged');
|
|
ok(line_exists($output, qr|^ipc_socket /tmp/i3-ipc.sock$|), 'ipc_socket unchanged');
|
|
ok(line_exists($output, qr|^exec /usr/bin/i3|), 'exec unchanged');
|
|
ok(line_exists($output, qr|^set stuff Mod1|), 'set unchanged');
|
|
ok(line_exists($output, qr|^assign "XTerm" → 3|), 'assign unchanged');
|
|
ok(line_exists($output, qr|^assign "XTerm" → ~5|), 'assign unchanged');
|
|
ok(line_exists($output, qr|^client\.focused #2F343A #900000 #FFFFFF$|), 'client.focused unchanged');
|
|
ok(line_exists($output, qr|^client\.focused_inactive #FF0000 #FF0000 #FF0000$|), 'client.focused_inactive unchanged');
|
|
ok(line_exists($output, qr|^client\.unfocused #00FF00 #00FF00 #00FF00$|), 'client.unfocused unchanged');
|
|
ok(line_exists($output, qr|^client\.urgent #0000FF #0000FF #0000FF$|), 'client.urgent unchanged');
|
|
ok(line_exists($output, qr|^client\.background #000000$|), 'client.background unchanged');
|
|
|
|
#####################################################################
|
|
# check whether the bar colors get removed properly
|
|
#####################################################################
|
|
|
|
$input = <<EOT;
|
|
bar.focused #FFFF00 #FFFF00 #FFFF00
|
|
bar.unfocused #FFFF00 #FFFF00 #FFFF00
|
|
bar.urgent #FFFF00 #FFFF00 #FFFF00
|
|
EOT
|
|
|
|
$output = migrate_config($input);
|
|
ok(!line_exists($output, qr|^bar\.|), 'no bar. lines');
|
|
ok(line_exists($output, qr|^#.*REMOVED bar|), 'note bar. removed');
|
|
|
|
|
|
#####################################################################
|
|
# check whether the other directives get converted correctly
|
|
#####################################################################
|
|
|
|
$input = <<EOT;
|
|
new_container stacking
|
|
workspace_bar no
|
|
new_window bb
|
|
EOT
|
|
|
|
$output = migrate_config($input);
|
|
ok(line_exists($output, qr|^workspace_layout stacking$|), 'new_container changed');
|
|
ok(line_exists($output, qr|REMOVED workspace_bar|), 'workspace_bar removed');
|
|
ok(!line_exists($output, qr|^workspace_bar|), 'no workspace_bar in the output');
|
|
ok(line_exists($output, qr|^new_window none$|), 'new_window changed');
|
|
|
|
#####################################################################
|
|
# check whether new_window's parameters get changed correctly
|
|
#####################################################################
|
|
|
|
$input = <<EOT;
|
|
new_window bb
|
|
new_window bn
|
|
new_window bp
|
|
EOT
|
|
$output = migrate_config($input);
|
|
like($output->[0], qr|^new_window none$|, 'new_window bb changed');
|
|
like($output->[1], qr|^new_window normal$|, 'new_window bn changed');
|
|
like($output->[2], qr|^new_window 1pixel$|, 'new_window bp changed');
|
|
|
|
#####################################################################
|
|
# check that some commands remain untouched
|
|
#####################################################################
|
|
|
|
$input = <<EOT;
|
|
bindsym Mod1+s exec /usr/bin/urxvt
|
|
bindsym Mod1+s mark foo
|
|
bindsym Mod1+s restart
|
|
bindsym Mod1+s reload
|
|
bindsym Mod1+s exit
|
|
bind Mod1+c exec /usr/bin/urxvt
|
|
mode "asdf" {
|
|
bind 36 mode default
|
|
}
|
|
EOT
|
|
|
|
$output = migrate_config($input);
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s exec /usr/bin/urxvt$|), 'exec unchanged');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s mark foo$|), 'mark unchanged');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s restart$|), 'restart unchanged');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s reload$|), 'reload unchanged');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s exit$|), 'exit unchanged');
|
|
ok(line_exists($output, qr|^bindcode Mod1\+c exec /usr/bin/urxvt$|), 'bind changed to bindcode');
|
|
ok(line_exists($output, qr|^mode "asdf" {$|), 'mode asdf unchanged');
|
|
ok(line_exists($output, qr|^bindcode 36 mode \"default\"$|), 'mode default unchanged');
|
|
ok(line_exists($output, qr|^}$|), 'closing mode bracket still there');
|
|
|
|
#####################################################################
|
|
# check the simple command replacements
|
|
#####################################################################
|
|
|
|
$input = <<EOT;
|
|
bindsym Mod1+s s
|
|
bindsym Mod1+s d
|
|
bindsym Mod1+s T
|
|
|
|
bindsym Mod1+s f
|
|
bindsym Mod1+s fg
|
|
|
|
bindsym Mod1+s t
|
|
|
|
bindsym Mod1+s h
|
|
bindsym Mod1+s j
|
|
bindsym Mod1+s k
|
|
bindsym Mod1+s l
|
|
|
|
bindsym Mod1+s mh
|
|
bindsym Mod1+s mj
|
|
bindsym Mod1+s mk
|
|
bindsym Mod1+s ml
|
|
|
|
bindsym Mod1+s bn
|
|
bindsym Mod1+s bp
|
|
bindsym Mod1+s bb
|
|
bindsym Mod1+s bt
|
|
|
|
bindsym Mod1+j wch
|
|
bindsym Mod1+j wcml
|
|
|
|
bindsym Mod1+k kill
|
|
|
|
bindsym Mod1+n nw
|
|
bindsym Mod1+p pw
|
|
EOT
|
|
|
|
$output = migrate_config($input);
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s layout stacking$|), 's replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s layout toggle split$|), 'd replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s layout tabbed$|), 'T replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s fullscreen$|), 'f replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s fullscreen global$|), 'fg replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s floating toggle$|), 't replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s focus left$|), 'h replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s focus down$|), 'j replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s focus up$|), 'k replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s focus right$|), 'l replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s move left$|), 'mh replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s move down$|), 'mj replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s move up$|), 'mk replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s move right$|), 'ml replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s border normal$|), 'bn replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s border 1pixel$|), 'bp replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s border none$|), 'bb replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s border toggle$|), 'bt replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+j focus parent; focus left$|), 'with container replaced with focus parent; focus left');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+j focus parent; move right$|), 'with container replaced with focus parent; move right');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+k kill$|), 'kill unchanged');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+n workspace next$|), 'nw replaced');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+p workspace prev$|), 'pw replaced');
|
|
|
|
#####################################################################
|
|
# check more advanced replacements
|
|
#####################################################################
|
|
|
|
$input = <<EOT;
|
|
bindsym Mod1+s goto foo
|
|
EOT
|
|
|
|
$output = migrate_config($input);
|
|
ok(line_exists($output, qr|^bindsym Mod1\+s \[con_mark="foo"\] focus$|), 'goto replaced');
|
|
|
|
#####################################################################
|
|
# check whether focus's parameters get changed correctly
|
|
#####################################################################
|
|
|
|
$input = <<EOT;
|
|
bindsym Mod1+f focus 3
|
|
bindsym Mod1+f focus floating
|
|
bindsym Mod1+f focus tiling
|
|
bindsym Mod1+f focus ft
|
|
EOT
|
|
|
|
$output = migrate_config($input);
|
|
like($output->[0], qr|^#.*focus.*obsolete.*focus 3$|, 'focus [number] gone');
|
|
like($output->[1], qr|^bindsym Mod1\+f focus floating$|, 'focus floating unchanged');
|
|
like($output->[2], qr|^bindsym Mod1\+f focus tiling$|, 'focus tiling unchanged');
|
|
like($output->[3], qr|^bindsym Mod1\+f focus mode_toggle$|, 'focus ft changed');
|
|
|
|
#####################################################################
|
|
# check whether resize's parameters get changed correctly
|
|
#####################################################################
|
|
|
|
$input = <<EOT;
|
|
bindsym Mod1+f resize left +10
|
|
bindsym Mod1+f resize top -20
|
|
bindsym Mod1+f resize right -20
|
|
bindsym Mod1+f resize bottom +23
|
|
bindsym Mod1+f resize left \t +10
|
|
EOT
|
|
|
|
$output = migrate_config($input);
|
|
like($output->[0], qr|^bindsym Mod1\+f resize grow left 10 px$|, 'resize left changed');
|
|
like($output->[1], qr|^bindsym Mod1\+f resize shrink up 20 px$|, 'resize top changed');
|
|
like($output->[2], qr|^bindsym Mod1\+f resize shrink right 20 px$|, 'resize right changed');
|
|
like($output->[3], qr|^bindsym Mod1\+f resize grow down 23 px$|, 'resize bottom changed');
|
|
|
|
#####################################################################
|
|
# also resizing, but with indention this time
|
|
#####################################################################
|
|
|
|
like($output->[4], qr|^bindsym Mod1\+f resize grow left 10 px$|, 'resize left changed');
|
|
|
|
#####################################################################
|
|
# check whether jump's parameters get changed correctly
|
|
#####################################################################
|
|
|
|
$input = <<EOT;
|
|
bindsym Mod1+f jump 3
|
|
bindsym Mod1+f jump 3 4 5
|
|
bindsym Mod1+f jump "XTerm"
|
|
bindsym Mod1+f jump "XTerm/irssi"
|
|
EOT
|
|
|
|
$output = migrate_config($input);
|
|
like($output->[0], qr|^#.*obsolete.*jump 3$|, 'jump to workspace removed');
|
|
like($output->[1], qr|^#.*obsolete.*jump 3 4 5$|, 'jump to workspace + col/row removed');
|
|
like($output->[2], qr|^bindsym Mod1\+f \[class="XTerm"\] focus$|, 'jump changed');
|
|
like($output->[3], qr|^bindsym Mod1\+f \[class="XTerm" title="irssi"\] focus$|, 'jump changed');
|
|
|
|
#####################################################################
|
|
# check whether workspace commands are handled correctly
|
|
#####################################################################
|
|
|
|
$output = migrate_config('workspace 3 output VGA-1');
|
|
ok(line_exists($output, qr|^workspace 3 output VGA-1$|), 'workspace assignment unchanged');
|
|
|
|
$output = migrate_config('workspace 3 work');
|
|
ok(!line_exists($output, qr|^workspace|), 'workspace name not present');
|
|
ok(line_exists($output, qr|#.*workspace name.*bindings|), 'note present');
|
|
|
|
$input = <<EOT;
|
|
workspace 3 work
|
|
bindsym Mod1+3 3
|
|
EOT
|
|
$output = migrate_config($input);
|
|
ok(!line_exists($output, qr|^workspace|), 'workspace name not present');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+3 workspace work|), 'named workspace in bindings');
|
|
|
|
# The same, but in reverse order
|
|
$input = <<EOT;
|
|
bindsym Mod1+3 3
|
|
workspace 3 work
|
|
EOT
|
|
$output = migrate_config($input);
|
|
ok(!line_exists($output, qr|^workspace|), 'workspace name not present');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+3 workspace work|), 'named workspace in bindings');
|
|
|
|
$output = migrate_config('bindsym Mod1+3 3');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+3 workspace 3|), 'workspace changed');
|
|
|
|
$output = migrate_config('bindsym Mod1+3 m3');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+3 move container to workspace 3|), 'move workspace changed');
|
|
|
|
$input = <<EOT;
|
|
workspace 3 work
|
|
bindsym Mod1+3 m3
|
|
EOT
|
|
$output = migrate_config($input);
|
|
ok(!line_exists($output, qr|^workspace|), 'workspace name not present');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+3 move container to workspace work|), 'move to named workspace in bindings');
|
|
|
|
#####################################################################
|
|
# check whether an i3bar call is added if the workspace bar bar was enabled
|
|
#####################################################################
|
|
|
|
$output = migrate_config('');
|
|
ok(line_exists($output, qr|bar {|), 'i3bar added');
|
|
|
|
$output = migrate_config('workspace_bar enable');
|
|
ok(line_exists($output, qr|bar {|), 'i3bar added');
|
|
|
|
$output = migrate_config('workspace_bar no');
|
|
ok(!line_exists($output, qr|bar {|), 'no i3bar added');
|
|
|
|
#####################################################################
|
|
# check whether the mode command gets quotes
|
|
#####################################################################
|
|
|
|
$output = migrate_config('bindsym Mod1+m mode foobar');
|
|
ok(line_exists($output, qr|^bindsym Mod1\+m mode "foobar"|), 'mode got quotes');
|
|
|
|
done_testing();
|